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 bigcommerceConn As BigcommerceConnection = New BigcommerceConnection( _
"Server=https://bigcommerce-store.mybigcommerce.com/api/v2/;User Id=User;Authentication Token=qweASDzcx1234567890rtyuiqweASDzcx1234567;")
Dim bigcommerceMonitor As BigcommerceMonitor = New BigcommerceMonitor
AddHandler bigcommerceMonitor.TraceEvent, AddressOf OnEvent
bigcommerceMonitor.IsActive = True
Dim bigcommerceCommand As BigcommerceCommand = New BigcommerceCommand("select count(*) from customers", bigcommerceConn)
bigcommerceConn.Open()
Console.WriteLine(bigcommerceCommand.ExecuteScalar())
bigcommerceConn.Close()
RemoveHandler bigcommerceMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub