
21/02/2005, 12:05
|
| | Fecha de Ingreso: enero-2003 Ubicación: punta arenas
Mensajes: 65
Antigüedad: 22 años, 4 meses Puntos: 0 | |
Me Explico Mejor por ejemplo creo una base de nombre agenda.mdb con una tabla llamada clientes y con dos campos uno llamado Nombre y otro llamado telefono ambos campos son solo texto OK!
ahora el codigo de borrar_usuario.asp sería:
<html>.....
<%
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("agenda.mdb")&";"
%>
<FORM METHOD="POST" ACTION="borrar.asp">
Nombre<br>
<%
sql = "SELECT * FROM clientes ORDER BY nombre DESC"
Set RS = con.Execute(sql)
%>
<select name="nombre">
<%do while not RS.eof%>
<option><%=RS("nombre")%>
<%RS.movenext
loop
%>
</select>
<br>
<INPUT TYPE="SUBMIT" value="Borrar">
</FORM>
....</html>
EL CODIGO PARA DE borrar.asp sería:
<%
nombre=Request.Form("nombre") <-- recuperamos del formulario
Set con = Server.CreateObject("ADODB.Connection")
Con.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("agenda.mdb")&";"
sql="Delete From clientes Where nombre='" & nombre & "'"
set RS = con.Execute(sql)
%>
<h1><div align="center">Registro Borrado</div></h1>
<div align="center"><a href="borrar.asp">Volver</a></div>
<%
con.Close
%>
<%
if session("lkjkljfkljfdlk") = "" then response.redirect "borrar.asp"%> <-- esto nos redirecciona automaticamente a la pagina anterior, es opcional.
ESTOY 100% SEGURO QUE SI PRUEBAN ESTO LES FUNCIONA CORECTAMENTE...
PERO SI AL CAMPO NOMBRE DE PONEN NOM_BRE, NO LES VÁ A FUNCIONAR.
O SI, LE AGRAGAN EL CAMPO id (AUTONUMERICO) Y EN VEZ DE BORRAR EL NOMBRE, BORRAN EL id NO LES FUNCIONA. |