25/11/2003, 09:33
|
| |
| Revise tu codigo y observe tresas que talvés te están afectando:
1.
consulta = "insert into Usuario (dni/cif, nombre) values ('20012122','Juanjo')"
'20012122' = si este valor es numerico no necesita " ' " y talves estas tratando de insertar un valor caracter a un campo numerico de Access, recuerda que cuando un valor que posee numeros por estar en " ' " este se convierte en caracter aunque posea numeros.
2.
set resultado = conexion.Execute(consulta, ,adCmdText + adExecuteNoRecords)
En la anterior sentencia solo es necesario lo siguiente:
set resultado = conexion.Execute(consulta)
El resto es "paja" o basura.
3.
Set conexion = Server.CreateObject("ADODB.Connection")
conexion.Mode = adModeWrite
conexion.CursorLocation = adUseClient
files = server.MapPath("aplicacion.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"
En la anterior consulta solo necesitas lo siguiente:
Set conexion = Server.CreateObject("ADODB.Connection")
files = server.MapPath("aplicacion.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False" |