Info Message Event
Imports System Imports System.Collections Imports System.Data Imports System.IO Imports System.Xml.Serialization 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=master;Integrated Security=SSPI") Dim cmd As New SqlCommand() cmd.CommandText = "PRINT('This raises an InfoMessage event')" cmd.Connection = con Try con.Open() cmd.ExecuteNonQuery() Finally con.Close() End Try End Sub Shared Sub con_InfoMessage(ByVal Sender As Object, _ ByVal E As SqlInfoMessageEventArgs) Handles con.InfoMessage Console.WriteLine( _ "{0} - {1}", "InfoMessage", E.Errors.Item(0).ToString()) End Sub End Class