[RESOLVED] Recordset does not support scrolling backwards?

[mintuz]

i have been geeking away with my stock control system i am creating and have incountered a problem.

Basically it pops up the message Recordset does not support scrolling backwards with this code.

Public Sub List_Update()
zero = 0
    
Set rs = New ADODB.Recordset

sql = "SELECT * FROM itemsInStock"
    
rs.Open sql, con, adOpenForwardOnly, adLockReadOnly, adCmdText

  With lstOutOfStockItems
    .clear 'clears any data already in the list
    Do While Not rs.EOF ' do the following when not end of table
       rs.Find "itemsInStock = " & zero & ""
      .AddItem rs.Fields("itemName").Value 'adds an item to the list from itemsInStock table
      .ItemData(.NewIndex) = rs.Fields("itemsID").Value 'primary key from database set as list index
      rs.MoveNext 'move to next record
    Loop 'carry on loop until end of table
  End With

  rs.Close 'closes the recordset
  Set rs = Nothing 'sets rs to nothing
'End If
End Sub

my stock goes down everytime someone buys something and when it reaches 0 i got a form which displays which items are out of stock...and this form is where ive got the problem. Any ideas? Thanks in advance

[Jim Davis]

What about the enum 'adOpenForwardOnly'? Can you tell me what does it mean?
Can you just write into ADODB recordset, by set the adLockReadOnly ?

Copy pasting vb6 code will not work. Never. Instead of that, read tutorials. Worth the effort, to learn the usage.

http://www.vb6.us/tutorials/database...o-vb6-tutorial

[mintuz]

adOpenForwardOnly ...makes forward movement only possible which is what i want as i want the items to show up in order they were inputted.

[dee-u]

adOpenForwardOnly says it only, such recordset type only supports scrolling forward, try another type instead.

[Jim Davis]

Sure, sorry for my harsh manner.

First, set it to adOpenDynamic lets see how it works now. Also you are about to modify the recordset, dont open it as readonly.

at where the error occurs?

edit:
heh no you doesnt modify, i mispelld :P

So. where the error occurs?

[mintuz]

it occurs on this line

       rs.Find "itemsInStock = " & zero & ""

[brucevde]

Find requires a scrollable cursor.

You can keep using ForwardOnly if you eliminate the use of the Find method.

Add a Where clause to the SQL statement instead.

sql = "SELECT * FROM itemsInStock where itemsInStock = 0"

[mintuz]

Ok i got it working thanks i didnt no you have to get rid of .find if using forward only.