captainmogo - Professional Profile

Public Class Query
Implements IDisposable

Private m_trigger_time as Datetime 
Private m_cfg as TriggerCfg
Private m_handle as System.Threading.AutoResetEvent
Pivate m_connection As Client.OracleConnection
Private WithEvents m_bgworker as System.ComponentModel.BackgroundWorker

Public Sub New(ByRef cfg as TtriggerCfg, ByVal time as DateTime)
m_cfg = cfg
m_trigger_time = time
m_handle = New System.Threading.AutoResetEvent(False)
m_bgworker = New System.ComponentModel. BackgroundWorker
m_connection = New Client.OracleCOnnection(My.Settings.OraConnectionString.ToString)

m_bgworker.RunWorkerAsync
End Sub


Private TriggerAction(ByVal sender as Object, ByVal e as System.ComponentModel.DoWorkEventArgs) Handles m_bgworker.DoWork

...Do db query

m_handle.Wait(New TimeSpan(0,0,10),False)

...Do db query
End Sub

Private Sub Completed(ByVal sender as Object, ByVal e as System.ComponentModel.RunWorkerCompletedEventsArgs) Handles m_bgworker.RunWorkerCompleted

Dim worker as System.ComponentModel.BackgroundWorker = Ctype(sender, System.ComponentModel.BackgroundWorker)

If e.Error IsNot Thing Then 
MsgBox(e.Error.Message)
Else If e.Cancelled Then
MsgBox("Cancelled")
Else
Me.Dispose()
End Sub

End Class