पहले app.config कनेक्शन स्ट्रिंग को मान निर्दिष्ट करें:
My.Settings.Item("CustomerConnectionString") = "Data Source=FAROOK-PC\SQLEXPRESS;Initial
Catalog= '" & Me.ComboBox1.Text & "'; uid = '" & Me.Login1.Text & "'; pwd = '" &
Me.Password1.Text & "'"
फिर ट्राई कैच ब्लॉक का इस्तेमाल करें। यदि कनेक्शन विफल हो जाता है तो कैच ब्लॉक में अपने संदेश बॉक्स का उपयोग करें।
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 स्ट्रिंग का उपयोग कर सकते हैं।