Connessione - Evento InfoMessage

Module Module1
Dim WithEvents Con As SqlConnection


Sub Main()

Con = New sqlconnection(configurationSettings.appsettings("Constring")
Dim Cmd As New sqlcommand()
cmd.Commandtext = " Select Top 5 * from Customers"
cmd.connection = Con

Try
Con.open()
Dim Reader As sqlDataAdapter = 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


Sub cON_InfoMessage(Byval Sender As Object, Byval E As Statechangeeventargs) Handles CON.InfoMessage

Console.writeline("{0} - {1}", "InfoMessage ", e errors.item(0).tostring())

End Sub
End Module