Wijs eerst de waarde toe aan app.config verbindingsreeks:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
Gebruik dan Try Catch Block. Als de verbinding mislukt, gebruik dan je berichtvenster in het catch-blok.
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
Declareer globalConnStr als globale variabele en wanneer u klaar bent met het controleren van de inloggegevens, wijst u de verbindingsreeks toe aan globalConnStr. Hierna kunt u de string globalConnStr zo vaak gebruiken als u wilt in uw programma.