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
|
