Connection state change event : SqlConnection « Database ADO.net « VB.Net

1. VB.Net
2. Database ADO.net
3. SqlConnection

Connection state change event

 
Imports System
Imports System.Collections
Imports System.Data
Imports System.IO
Imports System.Xml.Serialization
Imports System.Xml
Imports System.Windows.Forms
Imports System.Data.SqlClient


Public Class MainClass
    Shared Dim WithEvents con As SqlConnection

    Shared Sub Main()
        con = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI") 

        Dim cmd As New SqlCommand()
        cmd.CommandText = "SELECT TOP 5 FirstName, LastName FROM Employee"
        cmd.Connection = con

        Try
            con.Open()

            Dim reader As SqlDataReader = cmd.ExecuteReader()
            While reader.Read()
                Console.WriteLine( _
                       "{0} - {1}", reader.GetString(0), reader.GetString(1))
            End While
            reader.Close()
        Finally
            con.Close()
        End Try
    End Sub

    Shared Sub con_StateChange(ByVal Sender As Object, _
                 ByVal E As StateChangeEventArgs) Handles con.StateChange
        Console.WriteLine( _
                   "{0} - {1}", "ConnectionState", E.CurrentState.ToString())
    End Sub
End Class
           
         
  

Related examples in the same category

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