Warning: file_get_contents(/data/phpspider/zhask/data//catemap/7/sql-server/25.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql server vb.net crystal report要求数据库登录和密码,但登录失败_Sql Server_Vb.net_Crystal Reports - Fatal编程技术网

Sql server vb.net crystal report要求数据库登录和密码,但登录失败

Sql server vb.net crystal report要求数据库登录和密码,但登录失败,sql-server,vb.net,crystal-reports,Sql Server,Vb.net,Crystal Reports,我是制作crystal reports的新手,我已经完成了crystal report的创建,但是当运行我的程序时,它会询问我的登录信息,但在我登录后,它会说 登录失败 我试图在网站上查找其他问题,但没有找到答案。我的Visual Studio是2013旗舰版,我的sql是sql server 2014 express 这是我的密码: Imports System.Data.SqlClient Imports System.Data.Sql Public Class Form1 Pri

我是制作crystal reports的新手,我已经完成了crystal report的创建,但是当运行我的程序时,它会询问我的登录信息,但在我登录后,它会说

登录失败

我试图在网站上查找其他问题,但没有找到答案。我的Visual Studio是2013旗舰版,我的sql是sql server 2014 express

这是我的密码:

Imports System.Data.SqlClient
Imports System.Data.Sql
Public Class Form1

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim show As String = String.Empty
        show &= "select * from fruit_stock "
        show &= "where date_received=@daterec"

        Using conn As New SqlConnection("server=WIN10;database=fruit_storage;user=fruit_admin;password=admin;")
            Using cmd As New SqlCommand
                With cmd
                    .Connection = conn
                    .CommandType = CommandType.Text
                    .CommandText = show
                    .Parameters.AddWithValue("@daterec", TextBox1.Text)
                End With

                Try
                    conn.Open()
                    Dim da As New SqlDataAdapter
                    Dim ds As New DataSet
                    da.SelectCommand = cmd
                    da.Fill(ds, "fruit_stock")
                    Dim report As New CrystalReport1
                    CrystalReportViewer1.ReportSource = report
                    CrystalReportViewer1.Refresh()

                    conn.Close()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try

            End Using
        End Using
    End Sub
End Class
如果您使用的是嵌入式报表

Dim report As New <Name of your embedded crystal report>
report.SetDataSource(ds.Tables("fruit_stock"))

<your_crystal_report_viewer_in_your_form>.ReportSource = report

首先,我不会在这里共享任何密码。其次,您确定您的连接字符串是正确的吗?为什么它只是一个sql登录名和密码。是的,它是正确的,使用AddWithValue也不是一个好主意,读这篇文章我真正需要的是如何在每次我运行代码时不显示我数据库的登录名和密码如果它要求你登录/通过,那么这意味着你的连接字符串不正确,或者crystal report正在使用自己的连接,而不使用您的connectionstring
Dim report As New <Name of your embedded crystal report>
report.SetDataSource(ds.Tables("fruit_stock"))

<your_crystal_report_viewer_in_your_form>.ReportSource = report