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 dynamicsConn As DynamicsConnection = New DynamicsConnection( _
"Server=https://your_company.crm4.dynamics.com;User [email protected];Password=A123456789;")
Dim dynamicsMonitor As DynamicsMonitor = New DynamicsMonitor
AddHandler dynamicsMonitor.TraceEvent, AddressOf OnEvent
dynamicsMonitor.IsActive = True
Dim dynamicsCommand As DynamicsCommand = New DynamicsCommand("select count(*) from contact", dynamicsConn)
dynamicsConn.Open()
Console.WriteLine(dynamicsCommand.ExecuteScalar())
dynamicsConn.Close()
RemoveHandler dynamicsMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub