PERLSCRIPT UNIDAD 5: INTRODUCION A LAS BASES DE DATOS

TEMA 14: GRAFICOS

Campos de graficos o de imagenes se han convertido en elementos importantes de cualquier base de datos.

Para manejar este elemento con ado-asp exsten dos maneras:

1.- Agregar un campo BLOB a la tabla en access y usar componentes activex especializados en imagenes tanto para subir como para desplegar la imagen.

Este metodo provoca que la base de datos crezca mucho recordar que una imagen aun de tipo jpg ocupa mucho espacio.

2.- El segundo metodo es mas sencillo primero subir las imagenes ( de preferencia jpg) con un ftp normal a tusitio y despues agregar un campo fotourl a la tabla en access y grabar la direccion http de la imagen en este campo, por ejemplo http://programacionfacil.com/tusitio/pato.jpg y usar el tag <img src..> en la pagina que se construira que no es otra cosa que el programa de busqueda con el despliegue del campo extra, como lo muestra el programa ejemplo.

Prog23.html

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

prog23.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');
# en open tambien es valido usar un select de sql
$Rs->Open('mitabla', $coneccion, 1, 1);
# y los numeros son modos de usar open ver ado open
# cargar clave a buscar
$clave = $Request->Form('clave')->item;
# usando propiedad filter, para buscar
$Rs->{'Filter'} = "clave = $clave ";
if($Rs->EOF) { $Response->Write(" no hay registros "); return; };
# cargar el campo de url
$foto=$Rs->Fields(3)->{value};
# desplegar encabezados de columnas
$Response->Write ($Rs->Fields(0)->{Name} ." ");
$Response->Write ($Rs->Fields(1)->{Name} ." ");
$Response->Write ($Rs->Fields(2)->{Name} ." <br />");
# desplegando datos
$Response->Write ($Rs->Fields(0)->{value} ." ");
$Response->Write ($Rs->Fields(1)->{value} ." ");
$Response->Write ($Rs->Fields(2)->{value} ." <br />");
# desplegando foto
$Response->Write("<img src=$foto>");
# cerrar y liberar recordset y coneccion
$Rs->Close;
$coneccion->Close;
undef $Rs;
undef $conneccion;
%>

corrida prog23.html

image183.jpg

corrida: prog23.asp

image184.jpg

la peach

image185.jpg

mi hamster

image186.jpg

tan tan el curso se acabo y esten pendiente de los proximos de perl, javascript, jscript, php, phyton, xml, apml, net, csharp, et al

CONSTRUIR UN PROYECTO COMPLETO AL MENOS DOS TABLAS Y TODOS LOS PROCESOS VISTOS

Politica de Privacidad