SQL INSERT PERL SCRIPT

PERLSCRIPT UNIDAD 5: INTRODUCION A LAS BASES DE DATOS

TEMA 8: INSERCION O ADICION DE REGISTROS

Insertar o agreger registros o renglones nuevos a una tabla en disco es un proceso sencillo solo se usan los metodos addnew para agregarlo a recordset y update para actualizar la tabla en disco, como lo muestra el siguiente ejemplo:

Prog16.html


<html> <h3 align="center">CAPTURA O ALTA REGISTRO</h3>

<td width="424">

<form method=post action=http://programacionfacil.com:4080/tusitio/prog16.asp>

<p><strong>Nombre</strong><br>

<input type="text" size="40" name=nombre><br>

<strong>Edad</strong><br>

<input type="text" size="20" name=edad><br>

<p><input type=Submit value=agregar> </font></p>

</form></td></tr></table></center></div></html>

nota: lo unico de recordar que esta forma html de captura no lleva incluida el campo llave (clave) recordar que es de tipo autonumber en access y al hacer la insercion access lo agrega automaticamente.

Corrida prog16.html:

prog16.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');

# abriendo recordset para inserccion

$Rs->Open('mitabla', $coneccion, 2, 2);

# capturando los datos a insertar desde forma

$nombre=$Request->Form('nombre')->item;

$edad=$Request->Form('edad')->item;

# construir dos arreglos normales uno para NAME,VALUE de un arreglo

# asociativo

@campo =["nombre", "edad"];

@valor =[$nombre, $edad];

# usando la propiedad ADDNEW DE RECORSET PARA INSERTAR

$Rs->AddNew( @campo, @valor);

#actualizando la tabla en disco

$Rs->Update();

# cerrar y liberar recordset y coneccion

$Response->Write('ya inserte SDQ');

$Rs->Close;

$coneccion->Close;

undef $Rs;

undef $conneccion;

%>

notas: como se indico anteriormente, solo usar metodos addnew y update, no olvidar cerrar y liberar memoria.

Corrida prog16.asp:

Usando prog15.asp para ver toda la base

TAREAS PROGRAMACION PERLSCRIPT :

1.- construir muchos programas de inserccion en las tablas de las bases de datos que tengan construidas