SQL SELECT VISUAL BASIC CGI

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

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

TAREAS PROGRAMACION VISUAL BASIC CGI

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