SQL SELECT VISUAL BASIC SCRIPT

UNIDAD 5: VBSCRIPT INTRODUCION A LAS BASES DE DATOS

TEMA 9: BUSQUEDA SQL SELECT VBSCRIPT

Recordar que existen una serie de procesos basicos con archivos, el famoso ABC(altas, bajas, consultas y modificaciones) con ellos.

Actualmente estos procesos o similares a ellos se llaman insertar, eliminar, editar, etc, en las modernas bases de datos.

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

La solucion es sencilla:

Codigo html

<HTML> <P> FORMA HTML PROG 20</P>

CLAVE<INPUT TYPE=TEXT NAME=clave><BR>

</FORM> </HTML>

nota: no hay nada nuevo, solo un input text para pedir la clave, aunque se puede usar cualquier campo para buscar

corrida prog20.html

codigo prog20.asp

<%@ Language = “VBScript”%>

<%

' creando enlace o coneccion a base de datos

set coneccion=Server.CreateObject(“ADODB.Connection”)

coneccion.Provider=“Microsoft.Jet.OLEDB.4.0”

' abriendo la base de datos

coneccion.Open “c:/progfacil/lauro/mibase.mdb”

' creando el recordset

set tabla=Server.CreateObject(“ADODB.recordset”)

' cargando el recordset con la tabla en disco

tabla.Open “mitabla”, coneccion, 2, 2

'cargando clave a buscar

set clave=request.form(“clave”)

'primero hay que moverse al primer renglon real de la tabla (el 1)

tabla.movefirst

'buscando y posicionadose en el renglon deseado

tabla.find “clave =”&clave

'desplegando dicho renglon, recordar usar for para columnas

For col = 0 To tabla.Fields.Count-1

Response.Write tabla.Fields(col).Value & vbNewLine

tabla.Close

set tabla = nothing

coneccion.Close

set coneccion = nothing

%>

notas:

1.- La primera parte es la comun en todos los programas, abrir enlaces, bases de datos y cargar el recordset.

2.- Despues cargar una variable clave con un request.form, esta variable queda cargada con el valor numerico de la clave

3.- Posicionarse en el primer renglón real del recordset, recordar que el renglón cero tiene los nombres de las columnas esto se hace con un movenext o movefirst

4.- Se usa la propiedad FIND de recordset para buscar y posicionar el apuntador interno del recordset al renglon apropiado de la tabla, FIND ocupa una string describiendo una condición de igualdad, ejemplo clave=5, nombre='lauro' (ojo con este tipo de condición, el dato string va entre apostrofe, componerla usando =“nombre='”&“lauro'” o mejor todavia =“nombre='” & nombre & ”'” ), edad = 20, etc.

5.- Como ya estamos en el renglon apropiado solo basta desplegarlo y recordar nuevamente para desplegar varios renglones usamos do until loop con un for col adentro pero para desplegar un solo renglon solo usamos un for col count-1.

6.- Al final no olvidar cerrar y liberar todo.

Corrida prog20.asp

TAREAS PROGRAMACION VISUAL BASIC SCRIPT :

1.- hacer programas de busquedas para las bases hechas