18. Borrado de un registro

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:

<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>

Indaya.com – http://www.gnu.org/copyleft/fdl.es.html