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

TEMA 9: BUSQUEDA SELECT VISUAL BASIC PROGRAMACION CGI

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.html

<HTML>
<FORM ACTION=/cgi-bin/tusitio/prog20.exe METHOD=get>
CLAVE A BUSCAR.:<INPUT TYPE=text NAME=CLAVE><BR>
<INPUT TYPE=submit VALUE=BUSCAR>
</FORM></HTML>

corrida prog20.html

image314.jpg

prog20.vb

Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
PUBLIC CLASS prog20
' creando y cargando coneccion, adpater, dataset como variables globales
SHARED DIM coneccion AS OLEDBCONNECTION
SHARED DIM canal AS OLEDBDATAADAPTER
SHARED DIM tabla AS DATASET
PUBLIC SHARED SUB MAIN()
' variables a usar
dim q, clave, temp as string
' enlazando coneccion a la base de datos
coneccion = NEW OLEDBCONNECTION("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\progfacil\tusitio\mibase.mdb")
'capturando clave a buscar
DIM capturar AS lnet = new lnet()
'clave se captura como string porque se usa mas adelante un oledbtype
'para conertirla y mandarla
clave = capturar.getparametro("CLAVE")
'creando string q con instruccion sql apropiada
' observar que tambien puede llevar variables parametros
q = "select * from mitabla where clave = @CLAVE"
canal = new OleDbDataAdapter(q, coneccion)
' cargando variable parametro con su valor y su tipo de dato
canal.SelectCommand.Parameters.Add(new OleDbParameter("@CLAVE", OleDbType.Integer))
canal.SelectCommand.Parameters("@CLAVE").Value = clave
' NO SE USO OBJETO COMMAND PARA DEMOSTRAR QUE OLEDBADAPTER TAMBIEN
' PUEDE USAR SELECT, INSERT, UPDATE, DELETE(ver tema asp.net)
'cargando el dataset y solo tendra un renglon de informacion(el cero)
'este problema es buscar un renglon de informacion
tabla = NEW DATASET()
canal.FILL(tabla, "mitabla")
' cargando el renglon que esta en dataset en un table de html
System.Console.WriteLine("Content-Type:text/html" & vbCrLf)
System.Console.WriteLine("<HTML><TABLE Border=10 CellPadding=5><TR>")
' construyendo los encabezados de la tabla
System.Console.WriteLine("<th bgcolor=Green>CLAVE</th><th bgcolor=White>NOMBRE</th><th bgcolor=Red>EDAD</th></TR>")
' solo usar ciclo col para desplegar y renglon como constante
' recordar unidad arreglos
dim col as integer
System.Console.WriteLine("<TR>")
for col = 0 to 2
'cargando el dato a una variable string para que
'no quede muy grande el writeline de despliegue
temp = tabla.Tables("mitabla").Rows(0)(col).ToString()
System.Console.WriteLine("<TD>"&temp.ToString() &"</TD>")
next col
System.Console.WriteLine("</TR>")
System.Console.WriteLine("</HTML>")
' cerrando todo
coneccion.Close()
END SUB
END CLASS

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

Tambien recordar que el dataset despues de la busqueda solo queda cargado con el renglon que el canal se trajo de la base de datos.

Corrida prog20.exe

image387.jpg

TAREAS PROGRAMACION VISUAL BASIC CGI

1.- hacer programas de busquedas para las bases y tablas que tengan

Politica de Privacidad