Originally Posted by cguan_77

hi, this might give you an idea:

Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

    num = 1 ' initialize counter
 'rs is the reference to your recordset change if needed
    Do While Not rs.EOF
        ' See if the data has been found
        If product_id = rs!product_id Then
            'do something here
        End If
 
        ' If not found move to the next record.
        num = num + 1
        rs.MoveNext
    Loop

num = 1 ' initialize counter 'rs is the reference to your recordset change if needed Do While Not rs.EOF ' See if the data has been found If product_id = rs!product_id Then 'do something here End If ' If not found move to the next record. num = num + 1 rs.MoveNext Loop

and just curious why you need me on this code;

Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

dim productid as integer
productid=me.productid.text

dim productid as integer productid=me.productid.text

why not do like this:
productid=productid.text

i hope it helps..

Originally Posted by ProfessorPC

what are you using to connect to the DB? i am guessing something like this:

Help with Code Tags

Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text)

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
 
Set cn = New ADODB.Connection
cn.Open 'connection string
Set rs = New ADODB.Recordset
rs.Open "Select fields from table where id = " & productid.text & "", cn
While Not rs.EOF
do something
rs.MoveNext
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection cn.Open 'connection string Set rs = New ADODB.Recordset rs.Open "Select fields from table where id = " & productid.text & "", cn While Not rs.EOF do something rs.MoveNext rs.Close Set rs = Nothing cn.Close Set cn = Nothing

Originally Posted by mpande

Thanks For your help, Proffessor PC.
I think it works, but won't see that properly now because it gives an error later on when I say: if productid=rs!product_id then
rs.open"select fields from table", "update field set data"
but it gives me an error on open(wrong number of arguments or invalid property assignment), could you please help, i have also tried .execute instead of .open, but it gives me the same error message.
Please help!!!!

Originally Posted by cguan_77

hi mpande, the code that Proffessor PC gives you it seems to work fine.. so maybe you can post the code that you try

Originally Posted by mpande

Hi cguan the code that I'm using is this:
If productid = rs!product_id Then
Set updatedb = New ADODB.Connection
updatedb.Open "DSN=waterdb;Password=andile;User ID=eco;Data Source=waterdb"
Set rs1 = New ADODB.Recordset
rs1.Open "Select product_id,qty,stock_date,trans_type,qtydb from stock", "update stock set product_id=productid", "update stock set qty=qty", "update stock set stock_date=date", "update stock set trans_type=trans_type", "update stock set qtydb=qtydb"
With Adodc1
.Recordset.Update
.Recordset.Fields("product_id") = productid
.Recordset.Fields("qty") = qty
.Recordset.Fields("stock_date") = dop
.Recordset.Fields("trans_type") = "trans_type"
.Recordset.Fields("qtydb") = qtydb

End With

Else: MsgBox ("invalid product id")
End If
db.CommitTrans
rs.MoveNext
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
Loop

But the problem is at rsi.open, it gives me an error saying-wrong number of arguments or invalid property assignment.
Please help!!