Base de datos u objeto de sólo lectura.
Publicado por Diego Campillo (9 intervenciones) el 15/05/2001 10:07:49
Hola a todos:
Estoy haciendo una página ASP, y cuando necesito leer datos no tengo problema, pero si lo tengo cuando pretendo guardar.
El mensaje de error que me da es:
=================================
Microsoft JET Database Engine error '80040e09'
No se puede actualizar. Base de datos u objeto de sólo lectura.
/Fin.asp, line 33
El código de la página que me da el error:
==========================================
<% @LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>Resultados</TITLE>
</HEAD>
<BODY>
<!-- #INCLUDE File="ADOVBS.inc" -->
<CENTER>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<H3>LOS DATOS HAN SIDO ALMACENADOS CORRECTAMENTE.</H3>
<BR>
<BR>
</CENTER>
<%
Set cnn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\GIC\Avisos00.mdb"
cnn.Open
rs.Open "Trabajos",cnn,adOpenUnspecified, adLockOptimistic
rs.Addnew
rs("Fecha")=date
rs("Contacto")=Request.Form("txtCon")
rs("Telefono")=Request.Form("txtTel")
rs("Ubicacion")=Request.Form("cmbUbi")
rs("Negociad
Estoy haciendo una página ASP, y cuando necesito leer datos no tengo problema, pero si lo tengo cuando pretendo guardar.
El mensaje de error que me da es:
=================================
Microsoft JET Database Engine error '80040e09'
No se puede actualizar. Base de datos u objeto de sólo lectura.
/Fin.asp, line 33
El código de la página que me da el error:
==========================================
<% @LANGUAGE="VBScript" %>
<HTML>
<HEAD>
<TITLE>Resultados</TITLE>
</HEAD>
<BODY>
<!-- #INCLUDE File="ADOVBS.inc" -->
<CENTER>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<BR>
<H3>LOS DATOS HAN SIDO ALMACENADOS CORRECTAMENTE.</H3>
<BR>
<BR>
</CENTER>
<%
Set cnn = Server.CreateObject("ADODB.Connection")
Set rs=Server.CreateObject("ADODB.Recordset")
cnn.ConnectionString ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\GIC\Avisos00.mdb"
cnn.Open
rs.Open "Trabajos",cnn,adOpenUnspecified, adLockOptimistic
rs.Addnew
rs("Fecha")=date
rs("Contacto")=Request.Form("txtCon")
rs("Telefono")=Request.Form("txtTel")
rs("Ubicacion")=Request.Form("cmbUbi")
rs("Negociad
Valora esta pregunta
0