Mega Code Archive

 

Categories / VB.Net by API / System Data Sqlclient

 

SqlConnection InfoMessage

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