Cómo borrar un registro. Scripts de ejemplo.
Otra de las operaciones elementales que se pueden realizar sobre una base de datos es el borrar un registro. Para hacerlo, SQL nos propone sentencias del tipo Delete. Veámoslo con un ejemplo aplicado a nuestra agenda. Primero, crearemos un menú desplegable dinámico como para el caso de las actualizaciones:
El siguiente paso es hacer efectiva la operación a partir de la ejecución de la sentencia SQL que construimos a partir de los datos del formulario:
Para ver funcionar el script pincha aquí
|
<HTML> <HEAD> <TITLE>Borrar1.asp</TITLE> </HEAD> <BODY> <div align="center"> <h1>Borrar un registro</h1> <br> <% 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" %> <FORM METHOD="POST" ACTION="borrar2.asp"> Nombre<br> <% 'Creamos la sentencia SQL y la ejecutamos sSQL="Select nombre From clientes Order By nombre" set RS = conn.execute(sSQL) %> <select name="nombre"> <% 'Generamos el menu desplegable Do While not RS.eof%> <option><%=RS("nombre")%> <%RS.movenext Loop %> </select> <br> <INPUT TYPE="SUBMIT" value="Borrar"> </FORM> </div> </BODY> </HTML> |
El siguiente paso es hacer efectiva la operación a partir de la ejecución de la sentencia SQL que construimos a partir de los datos del formulario:
|
<HTML> <HEAD> <TITLE>Borrar2.asp</TITLE> </HEAD> <BODY> <% 'Recogemos los valores del formulario nombre=Request.Form("nombre") 'Instanciamos y abrimos nuestro objeto conexion Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "Mibase" 'Ahora creamos la sentencia SQL sSQL="Delete From Clientes Where nombre='" & nombre & "'" 'Ejecutamos la orden set RS = Conn.Execute(sSQL) %> <h1><div align="center">Registro Borrado</div></h1> <div align="center"><a href="lectura.asp">Visualizar el contenido de la base</a></div> <% 'Cerramos el sistema de conexion Conn.Close %> </BODY> </HTML> |
Para ver funcionar el script pincha aquí
Rubén Alvarez
Rubén es doctor en química y programador principalmente en sus ratos libres con...