Recordset Counting on Current Record

[mateo107]

Hi Everyone,

I have my recordset declared as rs. I'm trying to run a progress bar which will show how many records the search has gone through. I don't have VB6 on this machine, so I was wondering if someone could just check my logic/syntax.

So to accomplish this I will do the following:

Open the Recordset

Dim iCsrNum as Integer 'to hold the total number of customers
iCsrNum = rs.RecordsetCount
ProgressBar1.Max = iCsrNum
ProgressBar1.Value = 1

My question is, is there any built-in way to find the current record number, as opposed to creating a counter for each record? For example is there any easy way like?

Do Until rs.EOF
ProgressBar1.Value = rs.CurrentRecordNum
Loop

As opposed to this?

Dim iCurrentRecCount as Integer
iCurrentRecCount = 0
Do Until rs.EOF
iCurrentRecCount = iCurrentRecCount + 1
ProgressBar1.Value = iCurrentRecCount
Loop

Does my question make sense?

[dee-u]

Try the AbsolutePosition property.....

[mateo107]

So that'd be

rs.AbsolutePosition

?

[dee-u]

Do Until rs.EOF
    ProgressBar1.Value = rs.AbsolutePosition + 1
Loop

[dglienna]

This is the coolest way to do it.

http://www.vbforums.com/showthread.p...ht=progressbar

Use the Fetch event of your query.