SQL DELETE PERL SCRIPT

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

Vamos a eliminar el pobre y viejo perico:

Prog20.html y prog20.asp

Nueva tabla prog15.asp

QEPD periquito, saludos lauro

TAREAS PROGRAMACION PERLSCRIPT :

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