UNIDAD 5: VBSCRIPT INTRODUCION A LAS BASES DE DATOS

TEMA 10: FILTROS VISUAL BASIC SCRIPT


Otro problema similar al anterior es el de filtros es decir en muchas ocasiones es necesario obtener información acerca de un subconjunto de renglones de la tabla.

Por ejemplo todos los estudiantes que sean mayores de 17 años, todos los clientes que sean de Tijuana, etc., a esto le llamamos filtros o condiciones.

Tambien se resuelve de manera similar al anterior, es decir usando la propiedad FILTER de recordset, sin embargo es de tomar nota que cuando se pone esta intrucción tabla.filter=condición, a partir de ese momento el recordset solo muestra los registros o renglones que cumplen la condición y esto sucedera hasta que se encuentre una instrucción que diga tabla.filter= 0 o tabla.filter 0

Codigo prog21.html


FORMA HTML PROG 21

FILTRO EDAD>=

Nota: seria prudente mejor usar dos combobox uno para la variable otro para el operador relacional y un text para el dato y mandar estos tres datos al prog21.asp, pero eso se los dejo de tarea.

Corrida prog21.html

image130.jpg

codigo prog21.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/tusitio/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 el filtro de form-post

set filtro=request.form(“filtro”)

'filtrando la tabla

tabla.filter=“edad >=”&filtro

' el resultado son varios renglones , usar do until para reng y

' recordar usar for para columnas y construyendo tabla html

Response.Write ”<TABLE Border=1 CellPadding=5>” & vbNewLIne

Response.Write ”<TR>” & vbNewLine

'COUNT de RECORDSET nos indica cuantas columnas existen

' pero para circular entre ellas recordar que la primera es 0(cero)

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

' estamos en primer renglon de tabla, empezamos sacando los 'encabezados de la tabla

'usando la propiedad NAME del RECORDSET

Response.Write ”<TH>” & tabla.Fields(col).Name & ”</TH>” & vbNewLine

Next

Response.Write ”</TR>” & vbNewLine

'vaciando el resto de la tabla en memoria a la tabla html

'esto se hace renglon por renglon y usando propiedad value de RECORDSET

Do Until tabla.EOF

Response.Write ”<TR>” & vbNewLine

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

Response.Write ”<TD>” & tabla.Fields(col).Value & ”</TD>” & vbNewLine

Next

Response.Write ”</TR>” & vbNewLine

tabla.MoveNext

Loop

Response.Write ”</TABLE>” & vbNewLine

'no olvidar cerrar tabla y coneccion y liberar memoria servidor

tabla.Close

set tabla = nothing

coneccion.Close

set coneccion = nothing

%>


corrida prog21.asp

image131.jpg

sencillo verdad.

TAREAS PROGRAMACION VISUAL BASIC SCRIPT :

1.- preparar programas de filtrado para sus bases de datos, recordar que sus formas html deben construirlas con 2 combos y un text, suerte

Politica de Privacidad