OPERACIONES DB VISUAL BASIC SCRIPT

UNIDAD 5: VBSCRIPT INTRODUCION A LAS BASES DE DATOS

TEMA 11: OPERACIONES CON CAMPOS VISUAL BASIC SCRIPT

Este es tambien un caso comun con elementos de una tabla, sin embargo es tambien facil de resolver.

Es necesario recordar primero algunas cosas elementales:

1.- Recordar que el numero de columna en una tabla empieza en 0, esto es que para realizar alguna operación por ejemplo la columna edad del ejemplo que estamos siguiendo, su numero de columna es la 2.

2.- La operación que se plantee se tendra que hacer sobre el renglon activo de la tabla o recordset, recordar que existe un apuntador interno que nos permite movernos o circular dentro de la tabla o recordset.

3.- Tambien recordar que el renglon 0 solo tiene información no datos, asi que no intenten realizar operaciones con alguna columna cuando el apuntador se encuentra en este renglón generalmente en cuanto se abre la tabla.

4.- Para realizar aritmetica con alguna columna, solo usar la propiedad value de fields, ejemplo tabla.fields(num columna).value * 50

5.- En el ejemplo anterior solo se realizara la operación en el renglon activo de la tabla no olvidar realizar un movenext y un update para que la nueva información se actuelize en disco.

6.- Si se quiere realizar una misma operación con todos los renglones de la tabla en disco, solo usar un do until loop para circular por toda la tabla.

El siguiente programa, pide la clave, la localizamos en el recordset y le aumentamos 10 años a esa clave.

Prog22.html

<HTML> <P> FORMA HTML PROG 22</P>

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

</FORM>

</HTML>

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

'YA EN RENGLON REALIZAR LA OPERACION CON PROPIEDAD VALUE

'como ya se conoce el numero de columna, solo usarla

tabla.fields(2)=tabla.fields(2).value + 10

'moverse un renglon

tabla.movenext

'y actualizar

tabla.update

'avisando

response.write”ya termine”

'cerrando todo

tabla.Close

set tabla = nothing

coneccion.Close

set coneccion = nothing

%>

nota: analizar el renglon donde se realiza la operacion aritmetica y mucha suerte

tareas programacion visual basic script :

1.- construir una tabla en access que traiga matricula, nombre, calif1, calif2, calif3 y promedio, cargar en access unos 5 renglones de alumnos, no cargar promedio, el promedio lo deberan calcular con un asp.