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

image505.jpg

TAREAS PROGRAMACION visual basic mobile :

1.- hacer programas de busquedas para las bases hechas

Politica de Privacidad