actualizar registro en dbase

[tomasy]

saludoss, estoy intentando hacer una actualizacion en un archivo .dbf en este ejemplo realizo una consulta, mi pregunta es como puedo actualizar los datos de esta tabla, he puesto la operacion de la actualizacion comentada porque la he intentado realizar y me da error en la linea dbbase.Execute cad alguna sugerencia

Código:

Public dbbase As ADODB.Connection
Public RgPersonal As ADODB.Recordset

Private Sub Command1_Click()

 ejecuta ("Provider=MSDASQL.1;Persist Security Info=False;Data Source=base;Initial Catalog=C:\directorio")
 MsgBox ("Proceso concluido")
End Sub
Private Sub ejecuta(cadena As String)
 Set dbbase = New ADODB.Connection
 With dbbase
    .ConnectionString = cadena
    .Open
  End With
  
  Set RgPersonal = New ADODB.Recordset
  With RgPersonal
    .ActiveConnection = dbbase
    .CursorType = adOpenDynamic
    .LockType = adLockOptimistic
  End With
  
  valor = "MP20040001TT"
  
 cad = "SELECT * FROM TABCAJA WHERE TIPO_TARIM = 'MP20040001'"
 RgPersonal.Open cad, dbbase, adOpenKeyset, adLockOptimistic, adasynfech
 Do While Not RgPersonal.EOF

  Text1.Text = RgPersonal!TIPO_TARIM
  Text2.Text = RgPersonal!TIPO_TARIM
   
 'cad = "UPDATE TABCAJA set TIPO_TARIM  =" & valor & " WHERE TIPO_TARIM = " & RgPersonal!TIPO_TARIM
 ' dbbase.Execute cad

 RgPersonal.MoveNext
 Loop
 RgPersonal.Close
 dbbase.Close
 
End Sub

[Gakex]

Hola una pregunta la parte del with RgPersonal es necesaria?

solo le agregue una linea pero no se si funcione me cuentas si funciono.

Código:

Public dbbase As ADODB.Connection
Public RgPersonal As ADODB.Recordset

Private Sub Command1_Click()

 ejecuta ("Provider=MSDASQL.1;Persist Security Info=False;Data Source=base;Initial Catalog=C:\directorio")
 MsgBox ("Proceso concluido")
End Sub
Private Sub ejecuta(cadena As String)
Set dbbase = New ADODB.Connection
       With dbbase
                .ConnectionString = cadena
                .Open
      End With
  
Set RgPersonal = New ADODB.Recordset
      With RgPersonal
               .ActiveConnection = dbbase
               .CursorType = adOpenDynamic
               .LockType = adLockOptimistic
      End With
  
valor = "MP20040001TT"
  
cad = "SELECT * FROM TABCAJA WHERE TIPO_TARIM = 'MP20040001'"

 RgPersonal.Open cad, dbbase, adOpenKeyset, adLockOptimistic, adasynfech
 
Do While Not RgPersonal.EOF

     Text1.Text = RgPersonal!TIPO_TARIM
     Text2.Text = RgPersonal!TIPO_TARIM
   
     cad = "UPDATE TABCAJA set TIPO_TARIM  =" & valor & " WHERE TIPO_TARIM = " & RgPersonal!TIPO_TARIM
     on error resume next
     dbbase.Execute cad

     RgPersonal.MoveNext

 Loop

 RgPersonal.Close
 dbbase.Close
 
End Sub