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 quickBooksConn As QuickBooksConnection = New QuickBooksConnection( _
"Company Id=1440905870;Refresh Token=AB11590759756UCO8O6CpRQcAMP00sIANafgS8Y4RN10rpLJNM;Token Server=file://D:\\temp\\QuickBooksToken.txt")
Dim quickBooksMonitor As QuickBooksMonitor = New QuickBooksMonitor
AddHandler quickBooksMonitor.TraceEvent, AddressOf OnEvent
quickBooksMonitor.IsActive = True
Dim quickBooksCommand As QuickBooksCommand = New QuickBooksCommand("select count(*) from Customer", quickBooksConn)
quickBooksConn.Open()
Console.WriteLine(quickBooksCommand.ExecuteScalar())
quickBooksConn.Close()
RemoveHandler quickBooksMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub