image
Valora:   4.12/5 de 50
Inicio » ASP » Manual » Bases de Datos




Borrado de registros

Y finalmente, para cerrar el ciclo, nos queda el borrado de registros. El borrado de registros el uno de los procesos más sencillos.

Para indicar que elemento vamos a borrar hemos usado un enlace a la página borra.asp pasándole el ID_Prueba de cada registro, de esta manera la página borra.asp sabe que elemento de la tabla ha de borrar.


ejem07e.asp
<!-- Manual de ASP de WebEstilo.com -->
<html>
<head>
   <title>Ejemplo de ASP</title>
</head>
<body>
<H1>Ejemplo de uso de bases de datos con ASP y ADO</H1>
<%
   Dim oConn,strSQL, objRS
   
   Set oConn = Server.CreateObject("ADODB.Connection")

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
   
   strSQL = "SELECT * FROM prueba"
   Set objRS = oConn.Execute(strSQL)
   
%>

   <TABLE BORDER=1 CELLSPACING=1 CELLPADDING=1>
      <TR><TD>&nbsp;Nombre</TD> <TD>&nbsp;Apellidos&nbsp;</TD> <TD>Borrar</TD></TR>
<%      

   while (not objRS.Eof)
      Response.Write("<tr><td>&nbsp;" & objRS("Nombre") & "</td><td>&nbsp;" & objRS("Apellidos") & "&nbsp;</td><td><a href=""borra.asp?id=" & objRS("id_prueba") &""">borrar</a></td></tr>")
      objRS.MoveNext
   wend
   
   oConn.Close
   set objRS = nothing
   set oConn = nothing

%>

</table>
</body>
</html>

Ejecutar ejemplo Ver código


borra.asp
<%
   Dim oConn,strSQL
   
   Set oConn = Server.CreateObject("ADODB.Connection")

   oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("\webestilo\db\datos.mdb"))
   
   strSQL = "delete from prueba where id_prueba = " & Request.QueryString("id")
   oConn.Execute(strSQL)
   oConn.Close
   set oConn = nothing
   
   Response.Redirect("ejem07e.asp")
%>




La página borra.asp se conecta a la base de datos y borra el registro indicado en la variable id que ha sido pasado desde la página ejem07e.asp. Una vez el registro se ha borrado se vuelve a cargar la página ejem07e.asp







Comparte


Aportaciones de usuarios A�adir una aportaci�n



 
Valid HTML 4.01!
Última modificación:31 de Agosto de 2017. Spain - Espa�a.
© 1998-2004 por . Todos los derechos reservados.