INSERT UPDATE Y DELETE bloqueados
Publicado por Trenti1980 (2 intervenciones) el 12/08/2007 14:22:07
Hola que tal amigos, verán tengo el siguiente código de pruebas que funciona correctamente con select, pero una vez que cambio la consulta select por un update, delete o insert no hace nada, no da errores pero no hace nada. He buscado en google y por aquí y no he encontrado nada parecido. Os pongo el código.
Tengo que decir que tengo mi pc como servidor para probar, tengo puesto el IIS que trae el XP PRO.
On error resume next
set conexion=CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\InetPub\wwwroot\pruebas\bd1.mdb"
consulta="select * from tabla"
set resultado=Conexion.Execute(resultado)
if Err.Description <> "" Then
Response.Write("Error en la consulta")
Else
If No resultado.EOF Then
Response.Write(resultado("nombre")
End If
End If
conexion.close
resultado.close
set conexion=Nothing
set resutlado=Nothing
Esto lo hace bien, pero luego al cambiar la consulta por un update, insert o delete no hace nada, da error en la consutla, este es el código.
On error resume next
set conexion=CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\InetPub\wwwroot\pruebas\bd1.mdb"
consulta="Aqui pongo la consulta de inserccion, eleminacion o modificacion"
set resultado=Conexion.Execute(resultado)
if Err.Description <> "" Then
Response.Write("Error en la consulta")
End If
conexion.close
resultado.close
set conexion=Nothing
set resutlado=Nothing
Desde dentro de Access todo lo hace bién.
Muchas gracias.
Disculpen las molestias.
Tengo que decir que tengo mi pc como servidor para probar, tengo puesto el IIS que trae el XP PRO.
On error resume next
set conexion=CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\InetPub\wwwroot\pruebas\bd1.mdb"
consulta="select * from tabla"
set resultado=Conexion.Execute(resultado)
if Err.Description <> "" Then
Response.Write("Error en la consulta")
Else
If No resultado.EOF Then
Response.Write(resultado("nombre")
End If
End If
conexion.close
resultado.close
set conexion=Nothing
set resutlado=Nothing
Esto lo hace bien, pero luego al cambiar la consulta por un update, insert o delete no hace nada, da error en la consutla, este es el código.
On error resume next
set conexion=CreateObject("ADODB.Connection")
conexion.Open "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=C:\InetPub\wwwroot\pruebas\bd1.mdb"
consulta="Aqui pongo la consulta de inserccion, eleminacion o modificacion"
set resultado=Conexion.Execute(resultado)
if Err.Description <> "" Then
Response.Write("Error en la consulta")
End If
conexion.close
resultado.close
set conexion=Nothing
set resutlado=Nothing
Desde dentro de Access todo lo hace bién.
Muchas gracias.
Disculpen las molestias.
Valora esta pregunta


0