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 adobe commerceConn As MagentoConnection = New MagentoConnection( _
"domain=192.168.10.68/magento;user=Test;apikey=testpassword;")
Dim adobe commerceMonitor As MagentoMonitor = New MagentoMonitor
AddHandler adobe commerceMonitor.TraceEvent, AddressOf OnEvent
adobe commerceMonitor.IsActive = True
Dim adobe commerceCommand As MagentoCommand = New MagentoCommand("select count(*) from Customers", adobe commerceConn)
adobe commerceConn.Open()
Console.WriteLine(adobe commerceCommand.ExecuteScalar())
adobe commerceConn.Close()
RemoveHandler adobe commerceMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub