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 db2Conn As DB2Connection = New DB2Connection( _
"user id=db2admin;server=db2;database=SAMPLE;")
Dim db2Monitor As DB2Monitor = New DB2Monitor
AddHandler db2Monitor.TraceEvent, AddressOf OnEvent
db2Monitor.IsActive = True
Dim db2Command As DB2Command = New DB2Command("select count(*) from Dept", db2Conn)
db2Conn.Open()
Console.WriteLine(db2Command.ExecuteScalar())
db2Conn.Close()
RemoveHandler db2Monitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub