Sub OnEvent(ByVal sender As Object, ByVal e As MonitorEventArgs)
If e.TracePoint = MonitorTracePoint.BeforeEvent Then
Console.WriteLine("Description: " & e.Description)
Console.WriteLine(" Extra info: " & e.ExtraInfo)
End If
End Sub
<MTAThread()> _
Sub Main()
Dim pgConn As PgSqlConnection = New PgSqlConnection( _
"host=server;database=test;user id=postgres;")
Dim pgMonitor As PgSqlMonitor = New PgSqlMonitor
AddHandler pgMonitor.TraceEvent, AddressOf OnEvent
pgMonitor.IsActive = True
Dim pgCommand As PgSqlCommand = New PgSqlCommand("select count(*) from Test.Dept", pgConn)
pgConn.Open()
Console.WriteLine(pgCommand.ExecuteScalar())
pgConn.Close()
RemoveHandler pgMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub