Как использовать Try Catch для отображения ошибки входа в систему для строки подключения (App.Config) - PullRequest
Новая
       23

Как использовать Try Catch для отображения ошибки входа в систему для строки подключения (App.Config)

0 голосов
/ 11 января 2012

Мое кодирование упрощается благодаря использованию одной строки кода для подключения к базам данных MS-SQL 2008 R2.Однако я хочу, чтобы при сбое логина / пароля отображалось сообщение msgbox.Вот кодировка. 

My.Settings.Item("CustomerConnectionString") = "Data Source=.\SQLEXPRESS; Initial        
Catalog=customer; uid = temp ; pwd = temp"

<< catch error required >>

Спасибо.

1 Ответ

0 голосов
/ 11 января 2012

Сначала присвойте значение строке подключения 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 Block.Если соединение не удается, используйте окно сообщения yor в блоке catch. 

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 столько раз, сколько вам нужно в вашей программе.

...