Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/12/2004, 18:38
Carsipe
 
Fecha de Ingreso: diciembre-2004
Mensajes: 2
Antigüedad: 20 años, 4 meses
Puntos: 0
Problema con registros BD con ASP

Hola.
En una base de datos puedo insertar sin dificultad un registro, pero cuando lo quiero MODIFICAR o BORRAR me da éste error en la línea Set RS = Conn.Execute(sSQL) :

Microsoft JET Database Engine error '80040e07'
Data type mismatch in criteria expression.
/Carsipe/AVIS/VEHICLES/esborrar2_reg_Avis.asp, line 18

En insertar registro, con esa misma sentencia funciona correctamente!!

parte del código (de modificar) es:
.......
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Server.MapPath("Vehicles_AVIS.mdb"))

'Creem la sentència SQL i la executem

sSQL="Update Vehicles Set Model='" & Model & "' Where Num='" & Num & "'"
sSQL="Update Vehicles Set Marca='" & Marca & "' Where Num='" & Num & "'"
sSQL="Update Vehicles Set Matricula='" & Matricula & "' Where Num='" & Num & "'"
sSQL="Update Vehicles Set Km='" & Km & "' Where Num='" & Num & "'"
sSQL="Update Vehicles Set Preu='" & Preu & "' Where Num='" & Num & "'"

'Executem la ordre
Set RS = Conn.Execute(sSQL)
........

para borrar, parte del còdigo és:
.......
Num=Request.Form("Num")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=5;Data Source=" & Server.MapPath("Vehicles_AVIS.mdb"))

'Creem la sentència SQL i la executem
sSQL="Delete From Vehicles Where Num='" & Num & "'"
Set RS = Conn.Execute(sSQL)
.........

en todos los artículos y ejemplos de còdigo que he visto esto pareceria correcto, pero... no va!

Alguien me podria decir donde està el error.
Grácias de antemano

Última edición por Carsipe; 01/12/2004 a las 18:40