ConnectionString 属性尚未初始化。 VB.Net

Question

我有以下代码：

            Dim command As New SqlCommand

        command.Parameters.AddWithValue("@customerid", textbox1.text)
        command.Parameters.AddWithValue("@password", textbox2.text)

        command .Connection = SharedVar.ConnectionString
        SharedVar.ConnectionString.Open()
        command .CommandText = ("SELECT Customer FROM Accounts WHERE CustomerID = @customerid AND Password = @password")

当我执行代码时，我在这个位置得到一个错误：

SharedVar.ConnectionString.Open()

我收到的错误是：ConnectionString 属性尚未初始化。

SharedVar 是一个模块，在这个模块中有一个名为 ConnectionString 的变量。 ConnectionString 被声明为 SQLConnection。连接字符串本身保存在 application.settings 中。 SharedVar.ConnectionString 的代码是：

    Public ConnectionString As New SqlConnection(My.Settings.ConnectionString)

我不确定为什么会收到此错误，因为我已经在以下位置声明了 ConnectionString 属性：

command .Connection = SharedVar.ConnectionString

My.Settings.ConnectionString 中保存的连接字符串为：

Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Nico\Documents\Visual Studio 2015\Database\CustomerDatabase.mdf;Integrated Security=True

感谢您的帮助。

Answer 1

您可能需要重新评估变量命名，因为这可能会有些混乱。您当前的代码将实际的SqlConnection 对象实例化为ConnectionString（而不仅仅是连接字符串本身，它是String）：

' This creates an actual connection. (My.Settings.ConnectionString is '
' your connnection string) '                                           
Public ConnectionString As New SqlConnection(My.Settings.ConnectionString)

在构建查询时考虑使用如下模式：

' Build your connection '
Using connection As New SqlConnection(My.Settings.ConnectionString)
    ' Create your query '
    Dim query = "SELECT Customer FROM Accounts WHERE CustomerID = @customerid AND Password = @password"
    ' Build a command to execute '
    Using command As New SqlCommand(query, connection)
         ' Open your connection '
         connection.Open()
         ' Add your parameters ' 
         command.Parameters.AddWithValue("@customerid", textbox1.Text)
         command.Parameters.AddWithValue("@password", textbox2.Text)
         ' Execute your query into a reader '
         Using reader = command.ExecuteReader()
               While reader.Read()
                    ' Access your custom information here '
                    Dim customer = reader("Customer")
                    ' Do something else here ... '
               End While
         End Using
    End Using
End Using

此外，如果不查看整个 sn-p 代码，就很难准确判断您的某些属性何时设置。这可能只是连接字符串的一个实例，只是在调用 Open() 方法之前没有在 Connection 上设置。