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:

image172.jpg

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:

image173.jpg

Usando prog15.asp para ver toda la base

image174.jpg

TAREAS PROGRAMACION PERLSCRIPT :

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

Politica de Privacidad