Visual Basic - Como uso un insert para un tabla dbf de fox

Life is soft - evento anual de software empresarial
 
Vista:

Como uso un insert para un tabla dbf de fox

Publicado por Elvis (21 intervenciones) el 14/08/2003 23:50:21
Yo utilizo el siguiente codigo para obtener informacion de la tabla dbf.

Set cnFox2 = New ADODB.Connection
cnFox2.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & App.Path & "\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
cnFox2.Open

texto = String(15 - Len(Trim(TxtCedula)), "0") + Trim(TxtCedula)

Set rsFox2 = New ADODB.Recordset
rsFox2.Open "select * from clientes ", cnFox2, adOpenForwardOnly, adLockReadOnly

BuscaNombre = "No se encontró"

Do While Not rsFox2.EOF
If rsFox2!codigo = texto Then
BuscaNombre = rsFox2!cliente
Exit Do
End If
rsFox2.MoveNext
Loop

rsFox2.Close
cnFox2.Close


Pero no se cual es el comado para insertar informacion

Probe con este:

Set cnFox3 = New ADODB.Connection
cnFox3.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Extended Properties=Driver={Microsoft Visual FoxPro Driver};UID=;SourceDB=" & App.Path & "\;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
cnFox3.Open


Set rsFox3 = New ADODB.Recordset
rsFox3.Open "insert into Exceden values ('001','Elvis',0,0,'','',25,0,'') ", cnFox3, adOpenForwardOnly, adLockReadOnly


rsFox3.Close%
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder