Question

这里有很多类似的问题。已经检查了每个问题，事情是每个问题都有不同的情况与我的情况不同。

这是我的代码

Module Module1
Public connection As New SqlConnection
Public Sub connectserver()

    Dim streamreader As New StreamReader(Application.StartupPath & "\asd.txt")
    Dim server As String = streamreader.ReadLine
    Dim database As String = streamreader.ReadLine

    Try
        If connection.State = ConnectionState.Closed Then
            connection.ConnectionString = "Database = " & database & ";Server = " & server & ";Trusted_Connection = True;"
            connection.Open()
        End If
        connection.Close()
    Catch ex As Exception
        MsgBox(ex.Message)
    Finally
        connection.Dispose()
    End Try
End Sub
End Module

执行后。错误显示＆＃34; ConnectionString属性尚未初始化。＆＃34;。我已经尝试过我所知道的事情来解决这个类似问题，但同样的错误显示。谢谢你的帮助。

Answer 1

connection.ConnectionString = "Database=" & database & ";Data Source=" & server & ";Trusted_Connection=True;"

尝试在代码中使用此行。

Answer 2

在主函数中调用connectserver()，而在connection.ConnectionString变量中没有任何其他参数设置。

错误VB。 NET＆＃34; ConnectionString属性尚未初始化。＆＃34;

2 个答案: