UNIDAD 5: VISUAL BASIC INTRODUCION A LAS BASES DE DATOS

TEMA 9: BUSQUEDA SQL SELECT

En este tema se analiza la busqueda de un registro o renglon determinado en este proceso el usuario del programa quiere que se despliegue un y solo un registro de informacion proporcionando un dato de busqueda generalmente la clave del registro.

La solucion es sencilla, solo usar otra vez la instruccion select, con el siguiente formato:

SELECT [ *, all, campos] FROM TABLA WHERE clave=claveabuscar;

les recuerdo que deben buscar y estudiar un buen tutorial de sql.

Codigo prog20.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.:<mobile:TEXTBOX ID=CLAVE runat=server />

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

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

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

</mobile:Form>

<SCRIPT RUNAT=SERVER>

' creandocargando coneccion, adapter, dataset como var globales

DIM coneccion AS OLEDBCONNECTION

DIM canal AS OLEDBDATAADAPTER

DIM tabla AS DATASET

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")

' reando y cargando canal con q y sus variables parametros apropiadas

DIM q AS STRING

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)

' cerrando conneccion recordar que FILL NO OCUPA CERRAR

coneccion.CLOSE()

END SUB

</SCRIPT>

notas:

no hay nada nuevo es una combinacion de los dos programas anteriores con las mismas notas, solo se usa un textbox para pedir la clave, aunque se puede usar cualquier campo para buscar.

RECORDAR QUE TODO ESTE CAPITULO ES SIMPLEMENTES SQL y las instrucciones o se mandan via el DATAADAPTER o se mandan via el COMMAND, esto depende del problema a resolver.

Corrida prog20.aspx

TAREAS PROGRAMACION visual basic mobile :

1.- hacer programas de busquedas para las bases hechas