ProgramacionFacil

UNIDAD 5: VISUAL BASIC INTRODUCION A LAS BASES DE DATOS

TEMA 14: GRAFICOS PDA

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 agregar un objeto MOBILECONTROL IMAGE(recordar que en la primera unidad se indico que estudiaran todos los objetos mobilcntrols)en el programa 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 o solamente pato.jpg(yo use este metodo en el programa ejemplo)

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

Prog25.aspx


' inicializando objetos mobiles

' y definiendo lenguaje a usar por servidor

<%@ Page Inherits="System.Web.UI.MobileControls.MobilePage"

Language=VB%>

<%@ Register TagPrefix="mobile"

Namespace="System.Web.UI.MobileControls"

Assembly="System.Web.Mobile"%>

<%@ Import Namespace="System" %>

<%@ Import Namespace="System.Data" %>

<%@ Import Namespace="System.Data.OleDb" %>

' todos los controles ponerlos dentro de una forma

<B>BUSQUEDA</B>

<mobile:Form runat=server Paginate=true>

CLAVE BUSCAR<mobile:TEXTBOX SIZE=3 ID=CLAVE runat=server />

<mobile:Command runat=server OnClick=BUSCAR Text=BUSCAR />

<mobile:Image runat=server id=FOTO />

NOMBRE:<mobile:LABEL ID=NOMBRE runat=server />

EDAD..:<mobile:LABEL ID=EDAD runat=server />

</mobile:Form>

<SCRIPT RUNAT=SERVER>

' creandocargando coneccion, adapter, dataset como var globales

DIM coneccion AS OLEDBCONNECTION

DIM canal AS OLEDBDATAADAPTER

DIM tabla AS DATASET

DIM q AS STRING

DIM orden AS OLEDBCOMMAND

SUB BUSCAR(Sender As Object, E As EventArgs)

' cargando conecion

coneccion = NEW OLEDBCONNECTION("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\lauro\mibase.mdb")

' Creando y cargando canal con q y var parametros apropiadas

q = "select * from mitabla where clave = @CLAVE"

canal=new OleDbDataAdapter(q, coneccion)

canal.SelectCommand.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))

canal.SelectCommand.Parameters("@CLAVE").Value = CLAVE.Text

' cargando el dataset

tabla = NEW DATASET()

canal.FILL(tabla, "mitabla")

' cargando las etiquetas

DIM cren AS INTEGER

cren = tabla.Tables("mitabla").Rows.Count

NOMBRE.Text = tabla.Tables("mitabla").Rows(cren-1)(1)

EDAD.Text = tabla.Tables("mitabla").Rows(cren-1)(2)

FOTO.ImageUrl=tabla.Tables("mitabla").Rows(cren-1)(3)

' cerrando conneccion recordar que FILL NO OCUPA CERRAR

coneccion.CLOSE()

END SUB

</SCRIPT>

corrida: prog25.aspx

image514.jpg

Recordar que para que no salga el campo fotourl en el datagrid el select de sql puede pedirse como select campo1,campo2, campo.. from mi tabla etcetera.

Y el objeto MOBILE CONTROL IMAGE tiene muchas propiedades, usenlas.

PROYECTO CONSTRUIR UN SISTEMA visual basic mobile 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

 




 


Recent changes RSS feed Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki

Politica de Privacidad