Ado
Hola, tengo hecho un programa que mete artículos en el programa de S.P Tpvplus élite y la base de datos es Foxpro. La tabla de artículos tiene una fecha y no puedo de ninguna manera meter un registro con la instrucción "INSERT INTO" me dice que el tipo fecha que meto que no es compatible.
Hago Así,
strsql(0) = ""
strsql(0) = strsql(0) & "INSERT INTO articulo ("
strsql(0) = strsql(0) & " cref,"
strsql(0) = strsql(0) & " cdetalle,"
strsql(0) = strsql(0) & " fecha"
strsql(0) = strsql(0) & ") VALUES ("
strsql(0) = strsql(0) & " '" & Trim$("" & acref) & "',"
strsql(0) = strsql(0) & " '" & Trim$("" & acdetalle) & "',"
strsql(0) = strsql(0) & " " & format(now,"ddmmyy") & ""
Probé con #, con % con cvdate para convertir la fecha y nada
*************************************
Así me conecto a la base de datos
*************************************
Public Function conecta(esto As String) As Boolean
On Error GoTo vete
conecta = False
esto = esto & ";"
Set oconn = New ADODB.Connection
oconn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB= " & esto & "" & _
"Exclusive=no;"
conecta = True
Exit Function
vete:
If MsgBox(err.Description & " Error Abriendo la Base de Datos", vbCritical, "Abriendo base de datos") Then
End If
End Function
Hago Así,
strsql(0) = ""
strsql(0) = strsql(0) & "INSERT INTO articulo ("
strsql(0) = strsql(0) & " cref,"
strsql(0) = strsql(0) & " cdetalle,"
strsql(0) = strsql(0) & " fecha"
strsql(0) = strsql(0) & ") VALUES ("
strsql(0) = strsql(0) & " '" & Trim$("" & acref) & "',"
strsql(0) = strsql(0) & " '" & Trim$("" & acdetalle) & "',"
strsql(0) = strsql(0) & " " & format(now,"ddmmyy") & ""
Probé con #, con % con cvdate para convertir la fecha y nada
*************************************
Así me conecto a la base de datos
*************************************
Public Function conecta(esto As String) As Boolean
On Error GoTo vete
conecta = False
esto = esto & ";"
Set oconn = New ADODB.Connection
oconn.Open "Driver={Microsoft Visual FoxPro Driver};" & _
"SourceType=DBF;" & _
"SourceDB= " & esto & "" & _
"Exclusive=no;"
conecta = True
Exit Function
vete:
If MsgBox(err.Description & " Error Abriendo la Base de Datos", vbCritical, "Abriendo base de datos") Then
End If
End Function
4 respuestas
Respuesta de ballena
1
Respuesta de leosoft
1
Respuesta de smunoz
Respuesta de eramirez