Consulta actualizable

21/02/2004 - 03:13 por Luis Medina | Informe spam
Amigos, para aprender, estoy utilizando el siguiente código para agregar
datos pero ahora no funciona avisándome que debe ser una consulta
actualzable

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

De otra parte, con otro código me sale el aviso de que la base de datos es
de solo lectura.

Su ayuda es muy valiosa - Gracias

Luis
 

Leer las respuestas

#1 Gabriel South
21/02/2004 - 04:21 | Informe spam
Tienes solo un problema de configuracion de seguridad de windows
(IIS)... Configura la seguridad del directorio donde esta la BD para
escritura tambien...

Saludos...


"Luis Medina" escreveu na mensagem
news:uSc$bCC%
Amigos, para aprender, estoy utilizando el siguiente código para agregar
datos pero ahora no funciona avisándome que debe ser una consulta
actualzable

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

De otra parte, con otro código me sale el aviso de que la base de datos es
de solo lectura.

Su ayuda es muy valiosa - Gracias

Luis






Preguntas similares