I have a search button. When the button is clicked it performs a search. i have another button called reset. How can I stop the either the thread or db fill when the user clicks the reset.
Private Sub StartDoWork()
Dim workThread As New System.Threading.Thread(Ad
dressOf DoWork) <<<<<<<<<----End This preferably
workthread.Start()
End Sub
Private Sub DoWork()
showimage()
DbDataSet.Clear()
'OleDbConnection1
If online.Netstatus = True Then
Me.OleDbConnection1.Connec
tionString
= "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""Z:\TRDB2\TRDB.mdb
"";Passw" & _
"ord=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""
Micr" & _
"osoft.Jet.OLEDB.4.0"";Jet
OLEDB:System database=;Jet OLEDB:SFP=False;Extended Pro" & _
"perties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create " & _
"System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False" & _
""
Else
Me.OleDbConnection1.Connec
tionString
= "Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Registry Path=;Jet OLEDB:Database L" & _
"ocking Mode=1;Jet OLEDB:Database Password=;Data Source=""C:\Program Files\TRDB\TRDB.mdb"";Pass
w" & _
"ord=;Jet OLEDB:Engine Type=5;Jet OLEDB:Global Bulk Transactions=1;Provider=""
Micr" & _
"osoft.Jet.OLEDB.4.0"";Jet
OLEDB:System database=;Jet OLEDB:SFP=False;Extended Pro" & _
"perties=;Mode=Share Deny None;Jet OLEDB:New Database Password=;Jet OLEDB:Create " & _
"System Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet OLEDB:Com" & _
"pact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Encrypt Database=False" & _
""
'
End If
Me.OleDbDataAdapter1.Fill(
Me.DbDataS
et) <<<<<<<<--------------- Or end this
'// Do your work here
hideimage()
End Sub
Thanks, MJ