PERLSCRIPT UNIDAD 5: INTRODUCION A LAS BASES DE DATOS

TEMA 12: BAJA O ELIMINACION

Eliminacion es otro proceso simple y comun con las bases de datos el modelo con ADO que estamos usando hace este tipo de operaciones muy faciles:

1.- Pedir la clave a eliminar en una forma.html

2.- Posicionarse en el renglon indicado del recordset

3.- Usar delete y update como lo muestra el ejemplo

prog20.html

<HTML> <P> FORMA HTML PROG 20</P>
<FORM ACTION=HTTP://PROGRAMACIONFACIL.COM:4080/tusitio/PROG20.ASP METHOD=POST>
CLAVE<INPUT TYPE=TEXT NAME=clave><BR>
<INPUT TYPE=SUBMIT VALUE=eliminar>
</FORM> </HTML>

prog20.asp

<% @LANGUAGE = PerlScript %>
<%
# creando objetos conecciones y recordset de ado
$coneccion = $Server->CreateObject('ADODB.Connection');
$driver='Driver={Microsoft Access Driver (*.mdb)}; DBQ=c:\progfacil\lauro\mibase.mdb';
$coneccion->Open($driver);
$Rs=$Server->CreateObject('ADODB.RecordSet');
$Rs->Open('mitabla', $coneccion, 2, 2);
# cargar clave a buscar
$clave=$Request->Form('clave')->item;
# usando propiedad filter, para buscar
$Rs->{'Filter'} = "clave = $clave ";
if($Rs->EOF) { $Response->Write(" clave inexistente"); return; };
# ya estamos en renglon apropiado, usar propiedad delete de recordset
$Rs->Delete();
# acuatlizar el registro o renglon
$Rs->Update();
$Response->Write('BEEP RENGLON ELIMINADO BEEEP');
# cerrar y liberar recordset y coneccion
$Rs->Close;
$coneccion->Close;
undef $Rs;
undef $conneccion;
%>

tabla original prog15.asp

image177.jpg

Vamos a eliminar el pobre y viejo perico:

Prog20.html y prog20.asp

image178.jpg

Nueva tabla prog15.asp

image179.jpg

QEPD periquito, saludos lauro

TAREAS PROGRAMACION PERLSCRIPT :

1.- construir este proceso para las tablas y bases de datos que tengan construidas.

Politica de Privacidad