(VB2010) Mám otázku jakým způsobem máte zrealizovaný test připojení do MSSQL. Potřebuju totiž nějaký db checker aby mi pri nedostupnosti db přepnul na druhou. Připojení řeším takhle ,ale i když se nepřipojím nevyhodí mi chybovou hlášku.
Public conn As New SqlConnection
Public cmd As New SqlCommand
Public dr As SqlDataReader
Public str As String
Public da As New SqlDataAdapter
Sub connect()
If conn.State = ConnectionState.Open Then conn.Close()
conn.ConnectionString = "Data Source=NOTEBOOK-HP\SQLEXPRESS;Initial Catalog=fox-crm;Integrated Security=SSPI;"
conn.Open()
End Sub
|