Consulta actualizable

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

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)

> (?,?,?,?,?)"
> 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

> de solo lectura.
>
> Su ayuda es muy valiosa - Gracias
>
> Luis
>
>
>
>
>
>