Ayuda con bd
Publicado por heli (1 intervención) el 12/12/2006 04:53:27
Hola, kisiera ver si me pueden ayudar, trato de guardar datos en una tabla y me marca el siguiente error, es urgente es para una calificacion final, muchisimas gracias
Tipo de error:
Microsoft JET Database Engine (0x80040E21)
No se puede actualizar. Base de datos u objeto de sólo lectura.
/3/eliminar.asp, línea 51
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
Página:
POST 7 bytes to /3/eliminar.asp
Datos de POST:
txtid=3
------------------------------------------------------------------
el codigo es el siguiente:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<STYLE TYPE="text/css">
A{text-decoration: none;}
A:link{color: Black; }
A:visited{color: navy;}
A:hover {COLOR: red; TEXT-DECORATION: underline overline;}
.pr4
{
FILTER: Glow(Strength=2, Color=#FFD9D9)
}
.tit
{
FILTER: Glow(Strength=4, Color=yellow)
}
</STYLE>
<center>
<table border=0 width=600 height=20 bgcolor="#000000">
<tr>
<td align="Middle"><center><font face="Britannic bold" color="#ffffff"><div class=tit style="HEIGHT: 10px;"><b>Eliminar registro</b></div></font><Center></td>
</tr>
</table>
</head>
<body bgcolor="#FB9925">
<%
'Declaramos las variables
dim con,rs,sql
'Si en la caja de texto no introducimos nada nos saldra un mensage que es el que esta dentro del reponse.write()
if Trim(request.form("txtid")) = "" then
response.write("<center><b>Debes introducir algun id</b></center>")
'Si introducimos un id correcto
else
'Creamos el objeto que enlaza la base de datos
set con = server.createobject("ADODB.Connection")
'Creamos la conexion a la base de datos con el objeto ya creado
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source= c:\users.mdb"
'Creamos el objeto que hace refrencia a la tabla
set rs = server.CreateObject("ADODB.Recordset")
'Agregamos el valor a la variable sql, que seleciona un regstro el cual su id sea igual al que hemos introducido en el formulario
sql = "Select * From Tabla1 Where (ID Like '%%" & Request.Form("txtid") & "%%')"
'Ejecutamos la sentencia sql en la base de datos
rs.open sql,con,1,2
'Comprobamos que exista ese id
if rs.eof and rs.bof then
'si no es asi no saldra un mensage de error
response.write("<center><b>Este id de registro no existe</b></center>")
else
'Si se encuentra borramos el registro
rs.delete
'confirmamos que el registro ha sido borrado
response.write("<center><b>Registro borrado</b></center>")
'Actualizamos la tabla
rs.update
End If
End If%>
</table>
</body>
</html>
Tipo de error:
Microsoft JET Database Engine (0x80040E21)
No se puede actualizar. Base de datos u objeto de sólo lectura.
/3/eliminar.asp, línea 51
Tipo de explorador:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)
Página:
POST 7 bytes to /3/eliminar.asp
Datos de POST:
txtid=3
------------------------------------------------------------------
el codigo es el siguiente:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<STYLE TYPE="text/css">
A{text-decoration: none;}
A:link{color: Black; }
A:visited{color: navy;}
A:hover {COLOR: red; TEXT-DECORATION: underline overline;}
.pr4
{
FILTER: Glow(Strength=2, Color=#FFD9D9)
}
.tit
{
FILTER: Glow(Strength=4, Color=yellow)
}
</STYLE>
<center>
<table border=0 width=600 height=20 bgcolor="#000000">
<tr>
<td align="Middle"><center><font face="Britannic bold" color="#ffffff"><div class=tit style="HEIGHT: 10px;"><b>Eliminar registro</b></div></font><Center></td>
</tr>
</table>
</head>
<body bgcolor="#FB9925">
<%
'Declaramos las variables
dim con,rs,sql
'Si en la caja de texto no introducimos nada nos saldra un mensage que es el que esta dentro del reponse.write()
if Trim(request.form("txtid")) = "" then
response.write("<center><b>Debes introducir algun id</b></center>")
'Si introducimos un id correcto
else
'Creamos el objeto que enlaza la base de datos
set con = server.createobject("ADODB.Connection")
'Creamos la conexion a la base de datos con el objeto ya creado
con.open "Provider=Microsoft.Jet.OLEDB.4.0;Data source= c:\users.mdb"
'Creamos el objeto que hace refrencia a la tabla
set rs = server.CreateObject("ADODB.Recordset")
'Agregamos el valor a la variable sql, que seleciona un regstro el cual su id sea igual al que hemos introducido en el formulario
sql = "Select * From Tabla1 Where (ID Like '%%" & Request.Form("txtid") & "%%')"
'Ejecutamos la sentencia sql en la base de datos
rs.open sql,con,1,2
'Comprobamos que exista ese id
if rs.eof and rs.bof then
'si no es asi no saldra un mensage de error
response.write("<center><b>Este id de registro no existe</b></center>")
else
'Si se encuentra borramos el registro
rs.delete
'confirmamos que el registro ha sido borrado
response.write("<center><b>Registro borrado</b></center>")
'Actualizamos la tabla
rs.update
End If
End If%>
</table>
</body>
</html>
Valora esta pregunta
0