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 sqConn As SQLiteConnection = New SQLiteConnection( _
"DataSource=mydatabase.db;")
Dim sqMonitor As SQLiteMonitor = New SQLiteMonitor
AddHandler sqMonitor.TraceEvent, AddressOf OnEvent
sqMonitor.IsActive = True
Dim sqCommand As SQLiteCommand = New SQLiteCommand("select count(*) from Dept", sqConn)
sqConn.Open()
Console.WriteLine(sqCommand.ExecuteScalar())
sqConn.Close()
RemoveHandler sqMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub