UNIDAD 5: VISUAL BASIC NET INTRODUCION A LAS BASES DE DATOS

TEMA 9: SQL SELECT BUSQUEDA

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 sql 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 prog27.aspx

<%@ PAGE LANGUAGE=VB%>

<%@ Import Namespace="System" %>

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

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

<FORM RUNAT=SERVER>

CLAVE A BUSCAR<ASP:TEXTBOX ID=CLAVE SIZE=3 RUNAT=SERVER/>

<ASP:BUTTON ONCLICK=BUSCAR TEXT=BUSCAR RUNAT=SERVER /><BR>

<ASP:DATAGRID ID=TABLAGRID RUNAT=SERVER

Width=400

BackColor=#ccccff

BorderColor=black

ShowFooter=false

CellPadding=3

CellSpacing=0

Font-Name=Verdana

Font-Size=8pt

HeaderStyle-BackColor=#aaaadd

EnableViewState=false

/></FORM>

<script runat=server>

' creando y cargando coneccion, adpater, dataset como variables 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\tusitio\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 el datagrid

TABLAGRID.DATASOURCE = tabla

TABLAGRID.DATAMEMBER = "mitabla"

TABLAGRID.DATABIND()

' 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 asp 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 prog27.aspx

TAREAS VISUAL BASIC NET

1.- hacer programas visual basic net de busquedas para las bases de datos hechas