首先分配值的app.config連接字符串:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
然後使用try catch塊。如果連接失敗,則使用catch塊中的yor消息框。
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
聲明globalConnStr爲全局變量,當你與登錄憑證的檢查進行分配連接字符串globalConnStr。之後,您可以在程序中多次使用globalConnStr字符串。
你的問題到底是什麼?順便說一句,你可能最好簡化這段代碼,以防止簡單的SQL注入攻擊。 – Afshin 2012-01-11 06:26:37