Eliminar registro con checkbox

goten · #1 (**permalink**) 16/06/2003, 20:34

hola a todo necesito saber como puedo eliminar registro de una base de datos con checkbox por ejemplo como hace el correo hotmail ya que uno puede borrar uno o varios correo al mismo tiempo con checkbox a ver si me pueden ayudar con este codigo...

<%
if eliminar1 then
response.write("hola")
else

%>

<html>
<head>
<title>Pruebas</title>
</head>
<body>
<H1>CONTENIDO DE LA BASE DE DATOS</H1>
<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))

strSQL = "SELECT id, Nombre, apellido, telefono, direccion, email FROM prueba order by nombre"
Set objRS = oConn.Execute(strSQL)

%>
<form method="post" action="eliminar.htm">
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="732">
<TR >
<TD height="23" width="124" valign="top" bgcolor="#0066FF">
<div align="center"> Nombre</div>
</TD>
<TD valign="top" width="115" bgcolor="#0066FF">
<div align="center"> Apellido </div>
</TD>
<TD width="125" valign="top">
<div align="center"> Télefono</div>
</TD>
<TD width="128" valign="top">
<div align="center"> Dirección</div>
</TD>
<TD width="140" valign="top">
<div align="center"> E-mail</div>
</TD>
<td width="67" valign="top"> Eliminar</td>
</TR>

<%
dim a
a=0
while (not objRS.Eof)
a=a+1
if colorfila = 1 then
color= "#DEDEBE"
colorfila=0
else
color="#F0F0F0"
colorfila=1
end if

Response.Write("<tr><td bgcolor='"&color&"'>  " & objRS("Nombre") & "</td><td bgcolor='"&color&"'> " & objRS("Apellido") & " </td><td bgcolor='"&color&"'>  " & objRS("telefono") & "</td><td bgcolor='"&color&"'>  " & objRS("direccion") & "</td><td bgcolor='"&color&"'>  " & objRS("email") & "</td><td><input type=checkbox name=eliminar[] value ="& objRS("id") &" ></tr>")
'Response.Write("<input type=checkbox name=eliminar[] value= & objRS(id) & >")
objRS.MoveNext
wend
' response.write(a)
oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
<table width="732" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="656" height="39"></td>
<td width="76" valign="top">
<input type=submit name="eliminar1" value=Eliminar></td>
</tr>
</table>
</form>
</body>
</html>
<%
end if
%>

ProgramacionWeb · #2 (**permalink**) 16/06/2003, 20:36

Transladen esto al foro ASP por favor

goten · #3 (**permalink**) 16/06/2003, 20:40

hola a todo necesito saber como puedo eliminar registro de una base de datos con checkbox por ejemplo como hace el correo hotmail ya que uno puede borrar uno o varios correo al mismo tiempo con checkbox a ver si me pueden ayudar con este codigo...

<%
if eliminar1 then
response.write("hola")
else

%>

<html>
<head>
<title>Pruebas</title>
</head>
<body>
<H1>CONTENIDO DE LA BASE DE DATOS</H1>
<%
Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))

strSQL = "SELECT id, Nombre, apellido, telefono, direccion, email FROM prueba order by nombre"
Set objRS = oConn.Execute(strSQL)

%>
<form method="post" action="eliminar.htm">
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="732">
<TR >
<TD height="23" width="124" valign="top" bgcolor="#0066FF">
<div align="center"> Nombre</div>
</TD>
<TD valign="top" width="115" bgcolor="#0066FF">
<div align="center"> Apellido </div>
</TD>
<TD width="125" valign="top">
<div align="center"> Télefono</div>
</TD>
<TD width="128" valign="top">
<div align="center"> Dirección</div>
</TD>
<TD width="140" valign="top">
<div align="center"> E-mail</div>
</TD>
<td width="67" valign="top"> Eliminar</td>
</TR>

<%
dim a
a=0
while (not objRS.Eof)
a=a+1
if colorfila = 1 then
color= "#DEDEBE"
colorfila=0
else
color="#F0F0F0"
colorfila=1
end if

Response.Write("<tr><td bgcolor='"&color&"'>  " & objRS("Nombre") & "</td><td bgcolor='"&color&"'> " & objRS("Apellido") & " </td><td bgcolor='"&color&"'>  " & objRS("telefono") & "</td><td bgcolor='"&color&"'>  " & objRS("direccion") & "</td><td bgcolor='"&color&"'>  " & objRS("email") & "</td><td><input type=checkbox name=eliminar[] value ="& objRS("id") &" ></tr>")
'Response.Write("<input type=checkbox name=eliminar[] value= & objRS(id) & >")
objRS.MoveNext
wend
' response.write(a)
oConn.Close
set objRS = nothing
set oConn = nothing

%>
</table>
<table width="732" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="656" height="39"></td>
<td width="76" valign="top">
<input type=submit name="eliminar1" value=Eliminar></td>
</tr>
</table>
</form>
</body>
</html>
<%
end if
%>

Helbira · #4 (**permalink**) 17/06/2003, 02:19

Tu código retocado. Fíjate que cambié el action del formulario y te he puesto una estructura como la de hotmail para que lo entiendas mejor:

Código PHP:

  <html> 

<head> 

<title>Pruebas</title> 

</head> 

<body> 

<H1>CONTENIDO DE LA BASE DE DATOS</H1> 

<% 

Dim oConn,strSQL, objRS 

Set oConn = Server.CreateObject("ADODB.Connection") 

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb")) 

strSQL = "SELECT id, Nombre, apellido, telefono, direccion, email FROM prueba order by nombre" 

Set objRS = oConn.Execute(strSQL) 

%> 

<form name="formulario" method="get" action="eliminar.asp"> 

  <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="789">

    <TR> 

      <TD colspan="6" valign="top"><input type=submit name="Eliminar" value=Eliminar></TD>

    </TR>

    <TR> 

      <TD width="1" valign="top">&nbsp;</TD>

      <TD height="23" width="124" valign="top" bgcolor="#0066FF"> <div align="center"> 

          Nombre</div></TD>

      <TD valign="top" width="115" bgcolor="#0066FF"> <div align="center"> Apellido 

        </div></TD>

      <TD width="125" valign="top"> <div align="center"> Télefono</div></TD>

      <TD width="128" valign="top"> <div align="center"> Dirección</div></TD>

      <TD width="140" valign="top"> <div align="center"> E-mail</div></TD>

    </TR>

    <%

    Dim a

    a=0

    While (Not objRS.Eof) 

      a=a+1

      If colorfila = 1 Then

        color= "#DEDEBE"

        colorfila=0

      Else

        color="#F0F0F0"

        colorfila=1

      End If

    %>

    <tr><td><input type=checkbox name="elimina[]" value="<%=objRS("id")%>"></td>

    <td bgcolor="<%=color%>"><%=objRS("Nombre")%></td>

    <td bgcolor="<%=color%>"><%=objRS("Apellidos")%></td>

    <td bgcolor="<%=color%>"><%=objRS("telefono")%></td> 

    <td bgcolor="<%=color%>"><%=objRS("direccion")%></td>

    <td bgcolor="<%=color%>"><%=objRS("email")%></td>

    </tr> 

    <%

      objRS.MoveNext 

    WEnd 

    oConn.Close 

    set objRS = nothing 

    set oConn = nothing 

    %>

  </table> 

</form>

</body> 

</html>

Página que llama el formulario. Date cuenta que es un asp y no un html como tenías puesto:

eliminar.asp

Código PHP:

  <html>

<head>

</head>

<body>

<%

Dim elimina_r

Dim i 

 
elimina_r = Split(Request.Form("elimina"), ", ", -1, 1)

 
For i = LBound(elimina_r) To UBound(elimina_r)

    Response.Write ("valor " & i & ": "&elimina_r(i))

    ' Más bien aquí colocarías tu código que construye 

    ' la consulta SQL Delete con las claves primarias de los registros

     que quieres eliminar

Next

%>

</body>

</html>

Suerte

tunait · #5 (**permalink**) 17/06/2003, 03:36

trasladado al foro de ASP

saludos

Fr@Nc3$c0 · #6 (**permalink**) 17/06/2003, 06:07

Borrar registros tipo Hotmail??
En los faqs del mismo foro hay comentado eso.

Saludos.

DotNetDeveloper · #7 (**permalink**) 17/06/2003, 09:28

http://www.forosdelweb.com/showthrea...threadid=89836

goten · #8 (**permalink**) 21/06/2003, 14:58

todavia no puedo borrar registro con checkbox
<html>
<head>
</head>
<body>
<%
Dim elimina_r
Dim i

elimina_r = Split(Request.Form("elimina"), ", ", -1, 1)

For i = LBound(elimina_r) To UBound(elimina_r)
Response.Write ("valor " & i & ": "&elimina_r(i))
' Más bien aquí colocarías tu código que construye
' la consulta SQL Delete con las claves primarias de los registros
' que quieres eliminar
Next
%>
</body>
</html>

en la parte de response.Write() no muestrana

me pueden ayuar porfavor

goten · #9 (**permalink**) 21/06/2003, 15:43

con el codigo anterior quiero mostrar los archivos que voy a eliminar pero no muestra nada y con este codigo quiero eliminar pero tampoco funciona............. por favor necesito ayuda
<html>
<head>
</head>
<body>
<%
'Conectamos la base de dato

Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))

Dim elimina_r
Dim i

elimina_r = Split(Request.Form("elimina"),",",-1,1)
Response.write(eliminar_r)
For i = LBound(elimina_r) To UBound(elimina_r)
' Response.Write ("valor " & i & ": "&elimina_r(i))

' Más bien aquí colocarías tu código que construye
' la consulta SQL Delete con las claves primarias de los registros
' que quieres eliminar
'Ahora creamos la sentencia SQL
strSQL="Delete From prueba Where Id='" & eliminar_r(i) &"' "
'Ejecutamos la orden
set objRS = oConn.Execute(strSQL)
Next
Response.Write ("hola")
Response.Write(i)
Response.write(eliminar_r)
'Cerramos el sistema de conexion
oConn.Close
set objRS = nothing
set oConn = nothing
'Response.Redirect ("mostrar.asp")

%>

</body>
</html>

necesito ayuda urgente Por Favor se lo Agradeceria
atte.
Ronald("Goten")

OXIGENO · #10 (**permalink**) 21/06/2003, 23:24

y que error te tira?

OXIGENO · #11 (**permalink**) 22/06/2003, 09:37

acabo de probarlo..... es verdad!! No funciona!!
el problema esta aca....

<input type=checkbox name="elimina[]" value="<%=objRS("id")%>

El name="elimina[]" no te esta almacenando absolutamente nada... entonces cuando quieres recuperar los valores en la pagina eliminar.asp, esta no recupera y consecuentemente no muestra.

Al estar de esta forma "elimina[]" esta como si fuera un array y tendria que ir almacenando un valor dependiendo de la cantidad de checkbox... pero realmente no entiendo bien por que esta asi.

lo probe de varias formas y no lo pude sacar... pero voy a seguir investigando y te aviso amigo.

goten · #12 (**permalink**) 22/06/2003, 10:24

ok gracias oxigeno

DotNetDeveloper · #13 (**permalink**) 22/06/2003, 12:43

Leiste el link que te deje? Ahi viene la solución y sin tanto código basura y mucho más sencillo, tal vez ya lo hubieras resuelto hace algun rato pero bueno...

goten · #14 (**permalink**) 22/06/2003, 13:29

DotNetDeveloper si lei el link pero no me resulta ya que no lo entendi mucho.....

gracias por tu preocupacion

DotNetDeveloper · #15 (**permalink**) 22/06/2003, 14:30

Segun el post.

primer paso:

<html>

<head>

<title>Prueba Hotmail</title>

</head>

<body>

<form method=post action=Recibir.asp>

<table> <tr> <td> Id Pedido </td> <td> Usuario </td> <td> Total </td> </tr>

<%

Option Explicit

Dim oConn, Rs,SQL

Set oConn=Server.CreateObject("ADODB.Connection")

oConn.Open "DSN"

SQL="SELECT * FROM PEDIDOS"

Set Rs=oConn.Execute(SQL)

Do While Not Rs.EOF %>

<tr> <td> <input type="checkbox" name="Id" value="<%=Rs("Id_Pedido")%>"> </td> <td> <%=Rs("Usuario")%> </td> <td> <%=Rs("Total")%> </td> </tr>

<% Rs.MoveNext Loop %>

</table>

<input type=submit>

</form>

</body>

</html>

Supongo que ya pintaste los checkboxes no?

Segundo paso, eliminar:

SQL="DELETE * FROM PEDIDOS WHERE ID_PEDIDO IN("&Request.Form("Id")&")"
Set Rs=oConn.Execute(SQL)

goten · #16 (**permalink**) 22/06/2003, 14:43

gracias DotNetDeveloper te pasaste ahora lo estoy entendio
pero a hora me arroja un error cuando elimino el cual es
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Controlador ODBC Microsoft Access] No se pudo eliminar nada en las tablas especificadas.

este es el codigo que tengo

<%
'Conectamos la base de dato

Dim oConn,strSQL, objRS

Set oConn = Server.CreateObject("ADODB.Connection")

oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))

'SQL="DELETE * FROM prueba WHERE Id IN("&Request.Form("id")&")"
'Set Rs=oConn.Execute(SQL)

gracias por tu comprencion

DotNetDeveloper · #17 (**permalink**) 22/06/2003, 14:56

'SQL="DELETE * FROM prueba WHERE Id IN("&Request.Form("id")&")"
'Set Rs=oConn.Execute(SQL)

Supongo que en tu código realmente no esta comentado o si?

pon esto:

SQL="DELETE * FROM prueba WHERE Id IN("&Request.Form("id")&")"
Response.Write SQL

y enseñanos que te muestra

goten · #18 (**permalink**) 22/06/2003, 15:35

no mi codigo no esta comentado
SQL="DELETE * FROM prueba WHERE Id IN("&Request.Form("id")&")"
Set Rs=oConn.Execute(SQL)

esto es lo que muestra DotNetDeveloper

DELETE * FROM prueba WHERE Id IN()

goten · #19 (**permalink**) 22/06/2003, 15:47

esto es lo que realmente muestra

DELETE * FROM prueba WHERE Id IN(1)

Helbira · #20 (**permalink**) 23/06/2003, 02:13

Prueba estas tres cosas:

DELETE * FROM prueba WHERE Id IN('1')

o bien:

DELETE * FROM prueba WHERE Id = 1

O bien:

DELETE * FROM prueba WHERE Id = '1'

Suerte

P.D.: Vi tus MP un poco tarde.. estuve de vacaciones

DotNetDeveloper · #21 (**permalink**) 23/06/2003, 12:43

Cita:

Mensaje Original por Helbira
Prueba estas tres cosas:

DELETE * FROM prueba WHERE Id IN('1') Esto no debe ser a menos que tu campo sea alfabético cosa que realmente no creo

o bien:

DELETE * FROM prueba WHERE Id = 1 Esto no debe ser por que solo te va a borrar un registro

O bien:

DELETE * FROM prueba WHERE Id = '1' Esto tampoco debe ser

Suerte

P.D.: Vi tus MP un poco tarde.. estuve de vacaciones

DELETE * FROM prueba WHERE Id IN(1) El SQL que se generó es correcto, el error debe estar por otro lado.

Helbira · #22 (**permalink**) 23/06/2003, 12:47

Más que nada me refería a las comillas sobre todo.. era por probar.

goten · #23 (**permalink**) 23/06/2003, 15:12

e probado todo y no me resulta nada

que puedo hacer hekp!!!!!!

goten · #24 (**permalink**) 23/06/2003, 18:10

estoy desesperado .................help!,Help!!

Helbira · #25 (**permalink**) 24/06/2003, 02:39

A ver si ahora. Los cambios principales que he hecho son:

- Pasar los datos del formulario con el método get para leerlos con Request.QueryString en vez de con Request.Form que parece que es lo que fallaba al haber más de uno con el mismo nombre.
- Ahora los nombres de los checkbox no es con corchetes.
- He cambiado la forma de contruir el array con todos los valores seleccionados.
- Faltaba una condicional en el caso de que no se seleccione ninguno para que no te de error Lbound y Ubound.

La página del formulario del ejemplo que me hice queda como sigue:

Cita:

<html>
<head>
<title>Pruebas</title>
</head>
<body>
<H1>CONTENIDO DE LA BASE DE DATOS</H1>
<%
Dim oConn,strSQL, objRS
Set oConn = Server.CreateObject("ADODB.Connection")
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ejemplo.mdb"))
strSQL = "SELECT id, Nombre, apellido, telefono, direccion, email FROM prueba order by nombre"
Set objRS = oConn.Execute(strSQL)
%>
<form name="formulario" method="get" action="eliminar.asp">
<TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1 width="789">
<TR>
<TD colspan="6" valign="top"><input type=submit name="Eliminar" value=Eliminar></TD>
</TR>
<TR>
<TD width="1" valign="top"> </TD>
<TD height="23" width="124" valign="top" bgcolor="#0066FF"> <div align="center">
Nombre</div></TD>
<TD valign="top" width="115" bgcolor="#0066FF"> <div align="center"> Apellido
</div></TD>
<TD width="125" valign="top"> <div align="center"> Télefono</div></TD>
<TD width="128" valign="top"> <div align="center"> Dirección</div></TD>
<TD width="140" valign="top"> <div align="center"> E-mail</div></TD>
</TR>
<%
Dim a
a=0
While (Not objRS.Eof)
a=a+1
If colorfila = 1 Then
color= "#DEDEBE"
colorfila=0
Else
color="#F0F0F0"
colorfila=1
End If
%>
<tr><td><input type=checkbox name="elimina" value="<%=objRS("id")%>"></td>
<td bgcolor="<%=color%>"><%=objRS("Nombre")%></td>
<td bgcolor="<%=color%>"><%=objRS("Apellidos")%></td>
<td bgcolor="<%=color%>"><%=objRS("telefono")%></td>
<td bgcolor="<%=color%>"><%=objRS("direccion")%></td>
<td bgcolor="<%=color%>"><%=objRS("email")%></td>
</tr>
<%
objRS.MoveNext
WEnd
oConn.Close
set objRS = nothing
set oConn = nothing
%>
</table>
</form>
</body>
</html>

La página a la que llama el formulario (eliminar.asp) queda como sigue:

Cita:

<html>
<head>
</head>
<body>
<%
Dim elimina_r(), I , seleccionado
seleccionado = 0
I = 0

For Each Valor In Request.QueryString("elimina")
seleccionado = 1 'Booleano que dirá si seleccionó al menos un elem
Redim Preserve elimina_r(I)
elimina_r(I) = Valor
I = I + 1
Next

If seleccionado = 1 Then
For i = LBound(elimina_r) To UBound(elimina_r)
Response.Write ( "valor " & i & ": " & elimina_r(i) & "<br>")
' Más bien aquí colocarías tu código que construye
' la consulta SQL Delete con las claves primarias de los registros
' que quieres eliminar
Next
Else
Response.Write "No ha seleccionado ningún checkbox"
End If
%>
</body>
</html>

Suerte