UNIDAD 5:VBSCRIPT INTRODUCION A LAS BASES DE DATOS

TEMA 14: GRAFICOS IMAGE VISUAL BASIC SCRIPT


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 subirla 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

Despues usar un 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.

Prog26.html


FORMA HTML PROG 26

CLAVE

prog26.asp


<%@ Language = “VBScript”%>

<%

' creando enlace o coneccion a base de datos

set coneccion=Server.CreateObject(“ADODB.Connection”)

coneccion.Provider=“Microsoft.Jet.OLEDB.4.0”

' abriendo la base de datos

coneccion.Open “c:/progfacil/lauro/mibase.mdb”

' creando el recordset

set tabla=Server.CreateObject(“ADODB.recordset”)

' cargando el recordset con la tabla en disco

tabla.Open “mitabla”, coneccion, 2, 2

'cargando clave a buscar

set clave=request.form(“clave”)

'primero hay que moverse al primer renglon real de la tabla (el 1)

tabla.movefirst

'buscando y posicionadose en el renglon deseado

tabla.find “clave =”&clave

'desplegando dicho renglon, recordar usar for para columnas

' y es count -2 para que no salga fotourl

For col = 0 To tabla.Fields.Count-2

Response.Write tabla.Fields(col).Value & vbNewLine

Next

'desplegando imagen

response.write(”<br>”)

set foto=tabla(“fotourl”)

response.write(”<IMG SRC=” & foto & ”>” )

'cerrando todo

tabla.Close

set tabla = nothing

coneccion.Close

set coneccion = nothing

%>


corrida prog26.html

image132.jpg

corrida: prog26.asp

image133.jpg

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

TAREAS PROGRAMACION VISUAL BASIC SCRIPT HACER UN PROYECTO COMPLETO EN VBSCRIPT MUY ORIGINAL POR EJEMPLO UN GUESTBOOK O UN CONTADOR GRAFICO O UN CHAT(SON SENCILLOS SOLO OCUPAN UNA TABLA DE ACCESS SI LO RAZONAN TANTITO) O UN SISTEMA DE INFORMACION NORMAL(VIDEO, AUTOS USADOS, FERRETERIA, ETC) AL MENOS CON DOS TABLAS

Politica de Privacidad