Error base de datos solo de lectura
Publicado por gerardo (6 intervenciones) el 11/08/2003 21:00:04
Hola tengo el siguiente error, parece que la base de datos es de lectura y cuando hago el update para insertar un registro me da el error.¿Alguien sabe que puedo hacer?
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
/foro/addforo.asp, línea 41
El programa es el siguiente, es para hacer un foro:
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4%>
<%foro=request.form("foro")
if foro="" then %>
<html>
<head>
<title>Error al insertar pregunta</title>
</head>
<body bgcolor="#CCFFCC">
<p align="center"><img border="0" src="images/titulo.jpg"></p>
<p align="center">Ningun campo puede estar en blanco,
<a href="insertarforo.htm">
inténtalo otra vez</a></p>
</body>
</html>
<%else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("/foro/pyr.mdb")
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "foros",conn
rs.Addnew
rs("foro")=foro
rs.Update
rs.Close
response.redirect "foros.asp"
end if%>
Tambien he probado rs.CursorType = adKeySet y no me funciona
Gracias!
Gerardo
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se puede actualizar. Base de datos u objeto de sólo lectura.
/foro/addforo.asp, línea 41
El programa es el siguiente, es para hacer un foro:
<%
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4%>
<%foro=request.form("foro")
if foro="" then %>
<html>
<head>
<title>Error al insertar pregunta</title>
</head>
<body bgcolor="#CCFFCC">
<p align="center"><img border="0" src="images/titulo.jpg"></p>
<p align="center">Ningun campo puede estar en blanco,
<a href="insertarforo.htm">
inténtalo otra vez</a></p>
</body>
</html>
<%else
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.Mappath("/foro/pyr.mdb")
set rs=createobject("ADODB.Recordset")
rs.CursorType = adOpenStatic
rs.LockType = adLockOptimistic
rs.Open "foros",conn
rs.Addnew
rs("foro")=foro
rs.Update
rs.Close
response.redirect "foros.asp"
end if%>
Tambien he probado rs.CursorType = adKeySet y no me funciona
Gracias!
Gerardo
Valora esta pregunta
0