UNIDAD 5: PROGRAMACION VISUAL BASIC CGI INTRODUCION A LAS BASES DE DATOS

TEMA 14: GRAFICOS VISUAL BASIC PROGRAMACION CGI

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

Para manejar este elemento con ado-asp.net existen dos maneras:

1.- Agregar un campo BLOB a la tabla en access y usar componentes asp.net especializados en imagenes tanto para subirlas 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 usar el tag <img src> de html y ademas agregar un campo de texto llamado fotourl o foto a la tabla en access y grabar la direccion http de la imagen en este campo, por ejemplo http://programacionfacil.com/tusitio/pato.jpg

Despues solo cargar este tag imageurl 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.

Prog26.html

<HTML>
<FORM ACTION=/cgi-bin/tusitio/prog26.exe METHOD=get>
CLAVE A BUSCAR.:<INPUT TYPE=text NAME=CLAVE><BR>
<INPUT TYPE=submit VALUE=BUSCAR>
</FORM></HTML>

prog26.vb

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
PUBLIC CLASS prog26
' creando y cargando coneccion, adpater, dataset como variables globales
SHARED DIM coneccion AS OLEDBCONNECTION
SHARED DIM canal AS OLEDBDATAADAPTER
SHARED DIM tabla AS DATASET
PUBLIC SHARED SUB MAIN()
' variables a usar
dim q, clave, temp as string
' enlazando coneccion a la base de datos
coneccion = NEW OLEDBCONNECTION("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\tusitio\mibase.mdb")
'capturando clave a buscar
DIM capturar AS lnet = new lnet()
'clave se captura como string porque se usa mas adelante un oledbtype
'para conertirla y mandarla
clave = capturar.getparametro("CLAVE")
'creando string q con instruccion sql apropiada
' observar que tamben puede llevar variables parametros
q = "select * from mitabla where clave = @CLAVE"
canal = new OleDbDataAdapter(q, coneccion)
' cargando variable parametro con su valor y su tipo de dato
canal.SelectCommand.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))
canal.SelectCommand.Parameters("@CLAVE").Value = clave
' NO SE USO OBJETO COMMAND PARA DEMOSTRAR QUE OLEDBADAPTER TAMBIEN
' PUEDE USAR SELECT, INSERT, UPDATE, DELETE(ver tema asp.net)
'cargando el dataset y solo tendra un renglon de informacion(el cero)
'este problema es buscar un renglon de informacion
tabla = NEW DATASET()
canal.FILL(tabla, "mitabla")
' desplegando el renglon que esta en dataset
System.Console.WriteLine("Content-Type:text/html" & vbCrLf)
System.Console.WriteLine(tabla.Tables("mitabla").Rows(0)(0) &" ")
System.Console.WriteLine(tabla.Tables("mitabla").Rows(0)(1) &" ")
System.Console.WriteLine(tabla.Tables("mitabla").Rows(0)(2) &" ")
' desplegando foto
dim foto as string
foto = tabla.Tables("mitabla").Rows(0)(3)
System.Console.WriteLine("<img src= " &foto &" align=middle>")
' cerrando todo
coneccion.Close()
END SUB
END CLASS

Corrida prog26.html

image400.jpg

corrida: prog26.vb o exe

image401.jpg

Recordar que para que no salga el campo fotourl desplegado, solo su valor cargarlo en una variable string y meterlo al img src como se hizo en el programa ejemplo.

PROYECTO CONSTRUIR EN VISUAL BASIC CGI UN SISTEMA COMPLETO INTEGRADO CON TODAS LAS OPERACIONES USANDO AL MENOS DOS TABLAS.

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

Politica de Privacidad