Problema: consulta actualizable

21/02/2004 - 19:47 por Luis Medina | Informe spam
Había utilizado el siguiente código para ingresar datos a una BD Access pero
ahora me genera el mensaje de error: la operación debe usar una consulta
actualizable:

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=c:\inetpub\wwwroot\librovisitas.mdb;"
Set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
Set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
cm.CommandText = "INSERT INTO Libro (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES
(?,?,?,?,?)"
Set objparam = cm.CreateParameter(, 200, , 255, strTB1)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB2)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB3)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB4)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1)
cm.Parameters.Append objparam
cm.Execute

Gracias por sus sugerencias

Luis

Preguntas similare

Leer las respuestas

#1 Xus
25/02/2004 - 16:33 | Informe spam
Permisos o instrucción SQL mal echa.

Da "Control total" sobre el MDB para el usuario "IUSR_NOMBRETUMAQUINA"


Suerte,

XUS


"Luis Medina" escribió en el mensaje
news:ekv5PsK#
Había utilizado el siguiente código para ingresar datos a una BD Access


pero
ahora me genera el mensaje de error: la operación debe usar una consulta
actualizable:

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data
Source=c:\inetpub\wwwroot\librovisitas.mdb;"
Set objConn = server.createobject("ADODB.Connection")
objConn.Open strProvider
Set cm = Server.CreateObject("ADODB.Command")
cm.ActiveConnection = objConn
cm.CommandText = "INSERT INTO Libro (FTB1,FTB2,FTB3,FTB4,FMB1) VALUES
(?,?,?,?,?)"
Set objparam = cm.CreateParameter(, 200, , 255, strTB1)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB2)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB3)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 200, , 255, strTB4)
cm.Parameters.Append objparam
Set objparam = cm.CreateParameter(, 201, , iLenMB1, strMB1)
cm.Parameters.Append objparam
cm.Execute

Gracias por sus sugerencias

Luis


email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida