eliminar un usuario (error ADODB.Recordset (0x800A0E78)

cxbxvx · #1 (**permalink**) 31/08/2006, 01:20

hola a todos los del foro, lo que me pasa es lo siguiente , quiero eliminar un usuario desde mi pagina asp y me arroja el siguiente error :
Tipo de error:
ADODB.Recordset (0x800A0E78)
La operación no está permitida si el objeto está cerrado.
/respuesta_eliminar_usuario.asp, línea 31.....
ok
el codigo que estoy utilizando es este

<form method="POST" action="sistema_principal.asp">
<style type="text/css">

</style>
<%

Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
sqltext = "delete * FROM usuario"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim usuario,password
usuario = Request.Form("usua")
password = Request.Form("pass")
if usuario = "" or password ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End

end if
'Si está todo correcto, procedemos a eliminar los datos a la base de datos
rst.delete
rst("usuario") = usuario
rst("password") = password
rst.update
'Terminamos e imprimimos un mensaje
Response.Write " "

%>
<html>

<head>
<title>USUARIO ELIMINADO</title>

<style type="text/css">

</style>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"></head>

<body>
 <p> </p>
<p> </p>
<p> </p>
<p> </p>
<p align="center"><strong><font color="#FF0000">USUARIO ELIMIDADO SATISFACTORIAMENTE</font></strong></p>
<p> </p>
<p align="center"> </p>
<div align="center">
<INPUT TYPE="Submit" VALUE="regresar">
</div>
</body>
</html>

ojala me puedan ayudar , porque por mi parte no he podido sacar el error , gracias de ante mano

orharo2003 · #2 (**permalink**) 31/08/2006, 07:31

Aqui borras a todos los de tu tabla usuarios, no veo la condicion para borrar a un solo usuario, ahi borras a Todos.

sqltext = "delete * FROM usuario WHERE CONDICIONES "
rst.Open sqltext,cnn,3,3
y luego esto

va.

rst.delete
rst("usuario") = usuario
rst("password") = password
rst.update

por eso te marca el error,

cxbxvx · #3 (**permalink**) 31/08/2006, 10:36

ahora no me arroja ese error , pero lo que yo no quiero es que se me borren todos los usuarios sino solo uno , haber si me dicen como lo hago porfa , lo que pasa es que recien estoy empesando con asp y no capto mucho

cxbxvx · #4 (**permalink**) 31/08/2006, 11:37

holas soy yo de nuevo, lo que pasa que quiero borrar un usuario , el codigo al ejecutarlo no me arroja ningun error pero lo que le pasa que al revisar la base de datos para ver si lo borro to do sigue igual como esta no se que pasa , aqui les muestro el codigo haber que me dicen :
<%

Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")
sqltext = "delete * FROM usuario where (usuario='"&usuario&"' and password='"&password&"')"
rst.Open sqltext,cnn,3,3
'Recogemos los datos y validamos que no haya ningun campo vacio
dim usuario,password
usuario = Request.Form("usua")
password = Request.Form("pass")
if usuario = "" or password ="" then
error = "Debe completar todos los datos."
Response.Write error
Response.End

end if
'Terminamos e imprimimos un mensaje
Response.Write " "
%>

AlZuwaga · #5 (**permalink**) 31/08/2006, 12:18

Hola, antes que nada, pedirte que no abras nuevos temas para tratar un mismo problema.

Ahora si:

Código:

<%
'Response.Buffer = true
dim cnn,rst
' Creamos la conexión a la base de datos sin DSN
set cnn = Server.CreateObject("ADODB.Connection")
set rst = Server.CreateObject("ADODB.RecordSet")
cnn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("inventario.mdb")

'Recogemos los datos y validamos que no haya ningun campo vacio
dim usuario,password
usuario = Request.Form("usua")
password = Request.Form("pass")

if usuario = "" or password ="" then
  error = "Debe completar todos los datos."
  Response.Write error
  Response.End
Else
  sqltext = "delete FROM usuario where (usuario='"&usuario&"' and password='"&password&"')"
  rst.Open sqltext,cnn,3,3
  'Terminamos e imprimimos un mensaje
  Response.Write " "
end if
%>

Recogías el nombre de usuario y el password DESPUÉS de tratar de eliminarlos, por lo tanto, intentabas eliminar un registro cuyos compos usuario y password fueran vacíos.

Ah, no uses el * en las sentencias delete... sólo access lo entiende (en el resto de las bases de datos arrojaría un error)

cxbxvx · #6 (**permalink**) 31/08/2006, 13:43

muchas gracias por la ayuda se me soluciono el problema , con lo referente al abrir un nuevo tema me di cuenta que lo habia hecho despues de haberlo mandado , asi que disculpen por haberlo hecho y que no se repetira ok , gracias