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 myConn As OracleConnection = New OracleConnection( _
"User Id=Scott;Password=tiger;Data Source=Ora;")
Dim myMonitor As OracleMonitor = New OracleMonitor
AddHandler myMonitor.TraceEvent, AddressOf OnEvent
myMonitor.IsActive = True
Dim myCommand As OracleCommand = New OracleCommand("select count(*) from Test.Dept", myConn)
myConn.Open()
Console.WriteLine(myCommand.ExecuteScalar())
myConn.Close()
RemoveHandler myMonitor.TraceEvent, AddressOf OnEvent
Console.ReadLine()
End Sub