Help with recordset EOF option

[PdBeer]

Hi everyone,

I am using ADOR.recordsets in my VB6 program. I want to cycle though the recordset using a DO UNTIL loop (can't use a for, because I am moving the cursor of the recordset an unspecified amount of times inside the loop).

This is the code I am using: (labels is my recordset)

labels.movenext
Do Until labels.EOF
varid = labels.Fields(0).value
Print #3, "value Label" & varid & "n"
Do Until labels.EOF Or labels.Fields(0).value <> varid
Print #3, labels.Fields(1).value
labels.MoveNext
Loop
Print #3, ";"
Loop

The problem comes when the value of labels.EOF equals TRUE the loop still just keeps on going into an endless loop. I put a watch on labels.EOF and the value does become TRUE, but still the loop does not stop.

Hopefully you get the idea.

Any help would be appreciated!

[MPRWorks]

Hello PdBeer

It looks to me like it would be worth trying to move the labels.MoveNext command down to in front of the second Loop instruction. That is the loop it refers to?

Hi everyone,

I am using ADOR.recordsets in my VB6 program. I want to cycle though the recordset using a DO UNTIL loop (can't use a for, because I am moving the cursor of the recordset an unspecified amount of times inside the loop).

This is the code I am using: (labels is my recordset)

labels.movenext
Do Until labels.EOF
varid = labels.Fields(0).value
Print #3, "value Label" & varid & "n"
Do Until labels.EOF Or labels.Fields(0).value <> varid
Print #3, labels.Fields(1).value
labels.MoveNext
Loop
Print #3, ";"
Loop

The problem comes when the value of labels.EOF equals TRUE the loop still just keeps on going into an endless loop. I put a watch on labels.EOF and the value does become TRUE, but still the loop does not stop.

Hopefully you get the idea.

Any help would be appreciated!