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