[SOLVED][2005]test connection connected ...? how?

[Devdude]

Hi guys,

I have got a test connection button which tests the connectionstring that is been made by the user by typing in all relevant info.

How do i check whether it has connected or it cant connect due to a faulty password for example.


heres my code:

currently i am using the state property but everytime it cant connect it just breaks the program, saying it cant hold a null value or something.

   Private Sub bntTestConn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntTestConn.Click
        Dim myConnection As New SqlConnection

        If rdoWinAuth.Checked = True Then
            Dim WinConn As New ServerConnection
            Dim server As New Server(WinConn)

            WinConn.LoginSecure = True
            WinConn.DatabaseName = txtSQLDatabase.Text
            WinConn.ServerInstance = txtSQLServer.Text

            'Open the Win Connection
            'WinConn.Connect()

            If server.State = 0 Then
                MsgBox(" Unable to establish an SQL connection - Connection Failed")
            Else : MsgBox("Connection Succesfull")
            End If


            'Close the Win connection
            WinConn.Disconnect()
        End If

        If rdoSecAuth.Checked = True Then
            Dim SecConn As New ServerConnection
            Dim server As New Server(SecConn)

         

            If txtPassword.Text = "" Or txtUserName.Text = "" Then
                MsgBox("Please enter your Username/Password")
            Else

                'Declare the connectionstring
                SecConn.LoginSecure = False
                SecConn.DatabaseName = txtSQLServer.Text
                SecConn.ServerInstance = txtSQLDatabase.Text
                SecConn.Login = txtUserName.Text
                SecConn.Password = txtPassword.Text

              
                'Open the Sec connection 
                SecConn.Connect()

                If server.State = 0 Then
                    MsgBox(" Unable to establish an SQL connection - Connection Failed")
                Else : MsgBox("Connection Succesfull")
                End If

                'Close the Sec connection
                SecConn.Disconnect()
            End If
        End If
    End Sub

Any help is appreciated.

Thanks!

Rob

[jmcilhinney]

The only way to test a connection is to open it:

Try
    myConnection.Open()
    myConnection.Close()
    MessageBox.Show("Success")
Catch ex As Excpetion
    MessageBox.Show("Failure")
End Try

[Devdude]

Thanks JMC that seems to work and show me a message box.
Only problem still is that it still highlights the line showing up an error:
Failed to connect to server2.
What can i do about this?

Thanks,
Rob

[Devdude]

ok sorry about that,
i think i will be able to figure that one out.
i think i understand why its doing that.

my code needs a little facelift.

ill post back my final result and let you know how its going.

Thanks,

Rob

[Devdude]

Thanks JMC,

That worked out fine, so far I do not have any issues.

Thanks for helping me out with this one!



Rob