GRAFICOS VISUAL BASIC CGI

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

corrida: prog26.vb o exe

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