| 
                         (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
                        
                     |