HOW TO USE: BackgroundWorker

Hi,

Anybody here can help me please. If I execute the function below, and the records was all up to 20K, my program is not responding. The function is used to get the total rows within the date range on my criteria. I am using FireBird database. I overheard that using BackgroundWorker will do, but I really don't have an idea on how to use it.

Where do I use the BackgroundWorker in my code as follows:

Example:

PrivateFunction GetTotalRows()AsInteger

Dim dQueryAs DateTime

Dim dStartAs DateTime =Me.dtpFrom.Value.Date

Dim dEndAs DateTime =Me.dtpTo.Value.Date

Try

iCtr = 0

' Loop through database record

SQL("SELECT * FROM logrecord")

If Dr.HasRows =TrueThen

DoWhile Dr.Read

dQuery =CDate(Dr.Item("logdate").ToString)

If dQuery.Date >= dStart.DateAnd dQuery.Date <= dEnd.DateThen

iCtr = iCtr + 1

EndIf

Loop

EndIf

iRowCount = iCtr

' Clean

Dr.Close()

Cmd.Dispose()

Catch exAs SqlException

MsgBox(ex.ToString, MsgBoxStyle.Critical,"ODBC Error")

Catch exAs Exception

MsgBox(ex.ToString, MsgBoxStyle.Critical,"General Error")

EndTry

Return iRowCount

EndFunction

Thanks

[3277 byte] By [CyberJunkie] at [2008-1-10]