I have problems to update recordset extracted from a Visual FoxPro involving a 'join' condition.
Every thing works well in a recordset from a simple single table.
I'm using ADO in VB5.
Thanks!Code:Option Explicit Public cn As ADODB.Connection Public rs As ADODB.Recordset Public SQL As String Private Sub Form_Load() Set cn = New Connection Set rs = New ADODB.Recordset cn.ConnectionString = "DSN=Prueba;UID=;PWD=;OLE DB Services=-1;" cn.Open cn.CursorLocation = adUseClient SQL = "SELECT t1.* FROM t1,t2 WHERE t1.ncontra = t2.ncontra AND t2.usuario = 'JMESCO'" rs.Open SQL, cn, dOpenKeyset, dLockOptimistic, -1 rs.MoveFirst Text1.Text = rs!ncontra Text2.Text = rs!Desc Text3.Text = rs!Number End Sub Private Sub Command1_Click() rs!ncontra = Text1.Text rs!Desc = Text2.Text rs!Number = Val(Text3.Text) rs.Update End Sub
If you want to reproduce the problem, I can send you the database (is very short).
[This message has been edited by Tonatiuh (edited 09-23-1999).]


Reply With Quote