Weisen Sie zuerst den Wert der app.config-Verbindungszeichenfolge zu:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Verwenden Sie dann Try Catch Block. Wenn die Verbindung fehlschlägt, verwenden Sie Ihr Nachrichtenfeld im Catch-Block.
Dim sqlCnn As New SqlConnection
Dim connString as string = My.Settings.Item("CustomerConnectionString").value
Try
sqlCnn = New SqlConnection(connString)
sqlCnn.open()
globalConnStr = connString
Catch ex As SqlException
MsgBox("Login Failed")
Finally
sqlCnn.close()
End Try
Deklarieren Sie globalConnStr als globale Variable und wenn Sie mit der Überprüfung der Anmeldeinformationen fertig sind, weisen Sie globalConnStr den Verbindungsstring zu. Danach können Sie den globalConnStr-String beliebig oft in Ihrem Programm verwenden.