Statement too long error while using update

[computerguy2]

When I use the update command in the following code I get a Run Time Error......Statement too long. Could you tell me how to use the update command in this case. It's VB6 and Visual FoxPro 6. Thanks

Private Sub Command2_Click()
Set conn = New ADODB.Connection
Let conn.ConnectionString = "Driver={Microsoft Visual Foxpro Driver};UID=;SourceType=DBF;SourceDB=c:\inventory;Exclusive=No;BackgroundFetch=No;Collate=Machine;Null=Yes;Deleted=Yes;"
conn.Open

hasconnected = True

Set rs1 = New ADODB.Recordset
rs1.Open "select * from stock", conn, adOpenDynamic, adLockOptimistic

rs1.Requery
rs1.MoveFirst

Text1.Text = rs1("BarcodeNo&quot
Do While rs1.EOF = False
Text1.Text = rs1("qoh&quot
If Trim(rs1("Barcodeno&quot) = "5190600014" Then
MsgBox rs1("qoh&quot
rs1("qoh&quot = "55"
rs1.Update
End If

rs1.MoveNext
Loop

End Sub

 

[aata]

try using rs1.edit before you assign the new value like this.....

If Trim(rs1("Barcodeno&quot) = "5190600014" Then
MsgBox rs1("qoh&quot
rs1.edit
rs1("qoh&quot = "55"
rs1.Update
End If

 

[LazyMe]

ADO recordsets don't have an Edit method...

Greetings,
Rick

 

[petermeachem]

Why don't you do

update stock set qoh = '55' where Barcodeno = '5190600014'

Just execute that, I see no need for a loop, the above will certainly be quicker.

http://www.therockalltimes.co.uk

http://www.ourhouseinportugal.co.uk/