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

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Date Time
8.Development
9.Event
10.File Directory
11.Generics
12.GUI
13.Internationalization I18N
14.Language Basics
15.LINQ
16.Network Remote
17.Reflection
18.Security
19.Thread
20.Windows Presentation Foundation
21.Windows System
22.XML
23.XML LINQ
VB.Net » Database ADO.net » SqlConnection 




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 StringAs 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.
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.