SQL Server Online Check : SqlConnection « Database ADO.net « VB.Net

SQL Server Online Check


Imports System.Windows.Forms
Imports System.Data.SqlClient
Imports System.Data

Public Class MainClass
    Public Shared Function IsSQLServerOnline(ByVal ServerAddress As String) As Boolean
            Dim objIPHost As New System.Net.IPHostEntry()
            objIPHost = System.Net.Dns.Resolve(ServerAddress)
            Dim objAddress As System.Net.IPAddress
            objAddress = objIPHost.AddressList(0)
            Dim objTCP As System.Net.Sockets.TcpClient = New System.Net.Sockets.TcpClient()
            objTCP.Connect(objAddress, 1433)
            objTCP = Nothing
            objAddress = Nothing
            objIPHost = Nothing
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Shared Sub Main()
        If IsSQLServerOnline("") Then
            System.Console.WriteLine("Can connect to server!")
            System.Console.WriteLine("Server not available!")
        End If

    End Sub
End Class


Related examples in the same category

1.Connection state change eventConnection state change event
2.Info Message EventInfo Message Event
3.Display the information about the connection.
4.Execute Non Query Example
5.Obtain a pooled connection
6.Parameterized Command Example
7.Parse the SQL Server connection string and display the component configuration parameters.