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
        Try
            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.Close()
            objTCP = Nothing
            objAddress = Nothing
            objIPHost = Nothing
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Public Shared Sub Main()
        If IsSQLServerOnline("127.0.0.1") Then
            System.Console.WriteLine("Can connect to server!")
        Else
            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.