Los formularios son tratados como controles con sus propiedades, eventos y métodos. Aunque digamos que se trata de un control especial que utilizamos para contener los controles más usuales con los que construiremos nuestras aplicaciones: textbox, label, commandbutton, etc.
En este capítulo vamos
a ver las propiedades y eventos más importantes de los formularios,
como trabajar con múltiples formularios y como se establece la comunicación
entre ellos.
3.1 ¿Qué
es un Formulario de Arranque?
Es el primer formulario
que se despliega en la Aplicación por lo general es el primer formulario
que se crea en el Ambiente de desarrollo. No necesariamente una Aplicación
tiene que arrancar con el primer formulario del Proyecto ya que esto se
puede modificar.
Pasos para especificar
un Formulario de Arranque:
1. Del Menú de Proyecto
escoger la opción propiedades del Proyecto.
2. Hacer Click en la pestaña
de Objeto inicial y seleccionar el Formulario de arranque que desea.
3.2 ¿Qué
es un Control Personalizado y Objetos Insertables?
Un Control personalizado
es un archivo con una extensión .vbx u .ocx que cuando se añade
a un Proyecto extiende la caja de herramientas de Visual Basic, pueden
añadirse dentro de la opción de Menú Proyecto
en la opción Componentes .
Un Objeto Insertable
es un tipo de control Personalizado que es un Objeto y una Aplicación
servidora OLE, como una hoja de trabajo en Excell o un Documento de Word,
esto lo puede accesar dentro de la opción Proyecto, Componentes
en la pestaña Objetos Insertables.
3.3 ¿Por Qué
usar los Procedimientos de Arranque y los Controles Personalizados?
La ventaja de usar
los Controles Personalizados es obvia puesto que no es necesario Programar
algo que ya esta hecho.
3.5 ¿Cómo
se utilizan los Formularios?
En Visual Basic el
uso de Formularios es una Actividad realmente flexible. Puede hacer que
todos los Formularios de un programa sean visibles de forma simultanea
o podrá cargar y descargar formularios a medida que el Programa
los valla necesitando.
Un formulario que
tenga que ser utilizado cuando se muestre por pantalla se denomina formulario
modal (el Formulario acaparara la atención del Programa hasta que
el usuario pulse Aceptar, Cancelar o sea eliminado por otros medios).
Un formulario que el
usuario puede seleccionar o ignorar en pantalla recibe el nombre de Formulario
No Modal. La mayoría de aplicaciones desarrolladas por Microsoft
utilizan formularios no Modales para mostrar Información, ya que
proporcionan más flexibilidad de empleo del usuario.
3.6 Propiedades de los
Formularios.
Las propiedades más
comunes de los formularios y que son similares al resto de los controles
son las siguientes:
Name: Nombre del formulario,
necesario para llamar al formulario desde el código.
Caption: Texto que
aparece en el título del formulario
Backcolor: Color de
fondo del formulario.
Forecolor: color del
texto del formulario.
Otras propiedades que son
propias de los formularios y que es importante conocerlas para realizar
una buena presentación en nuestras aplicaciones son las siguientes:
WindowState: Nos permite
indicar el modo en el que aparecerá el formulario cuando sea llamado.
Tiene tres posibles valores:
0 - Normal
1 - Minimizado.
2 - Maximizado.
MinButton y MaxButton: Son
dos propiedades que admiten únicamente los valores True o False.
Permiten que queden habilitados los botones minimizar y maximizar, respectivamente
de un formulario. Nos sirven para controlar que el usuario no pueda cambiar
el tamaño en que presentemos un formulario en pantalla. Si sólo
desactivamos una de las propiedades, el botón correspondiente aparecerá
desactivado, pero si desactivamos las dos propiedades, no aparecerá
ninguno de los 2 botones, únicamente lo hará el botón
con la "x" de cerrar.
ShowInTaskbar: Mediante
esta propiedad podremos controlar que determinado formulario aparezca o
no en la barra de tareas de Windows. En una aplicación con múltiples
formularios, si para cada uno de los que aparezca en pantalla, nos aparece
también en la barra de tareas, al final la barra estará llena
de aplicaciones. Podemos hacer que determinados formularios no aparezcan
en ella colocando esta propiedad a False.
Icon: Nos permite modificar el icono que aparece a la izquierda de la barra del título de cualquier formulario, que es donde aparece el menú de control, para personalizarlo en nuestra aplicación
El icono que aparece por defecto en todos los formularios se puede cambiar por otro más simpático.
ControlBox: Controla la aparición del menú de control. Esta propiedad por defecto está activada, aunque si la ponemos a False, no sólo hacemos desaparecer el icono que simboliza al menú de control, sino que desaparecen también los botones de minimizar, maximizar y cerrar. Unicamente aparece la barra de titulo con el caption
Si además de colocar ControlBox a False, colocamos MinButton y MaxButton a False y dejamos vacía la propiedad Caption, es decir sin nada en el título, nos aparecerá un formulario sin barra de titulo, es decir, únicamente un rectángulo gris que sí podremos cambiar de tamaño apuntando sobre el borde.
BorderStyle: Esta propiedad
es la que más opciones tiene y la que más posibilidades ofrece
para cambiar el aspecto de nuestros formularios. El cambiar el valor de
esta propiedad afecta también a las propiedades MinButton, MaxButton
y ShowInTaskbar que cambian automáticamente según la opción
que hayamos seleccionado. En la siguiente tabla aparece una explicación
de cada una de sus opciones y de que valor adoptan otras propiedades del
formulario
| Opciones de BorderStyle | Utilidad | MinButton | MaxButton | ShowInTaskbar |
| 0- None | No aparecen bordes ni barra de titulo. No podemos modificar su tamaño de ninguna forma. Sirve para pantallas de presentación al principio de nuestra aplicación | False | False | False |
| 1 - Fixed Single | No se puede cambiar su tamaño. Ni siquiera se puede maximizar haciendo doble click sobre la barra del título, algo que sí se puede hacer desactivando los botones MinButton y MaxButton en un formulario normal | False | False | True |
| 2 - Sizable (aparece por defecto) | Formulario por defecto de VB. Contiene todos los botones de la barra del título, se puede cambiar su tamaño actuando sobre el borde y aparece en la barra de tareas. | True | True | True |
| 3 - Fixed Dialog | No se puede cambiar su tamaño y no aparece en la barra de tareas | False | False | False |
| 4 - Fixed ToolWindow | Aparece con la barra de titulo más pequeña, es el que utiliza VB para mostrar la caja de herramientas. No aparece el icono del menú de control ni aparece en la barra de tareas. | False | False | False |
| 5 - Sizable ToolWindow | Igual que el anterior pero sí permite modificar su tamaño actuando sobre el borde. | False | False | False |
3.7 Utilización de Múltiples Formularios
Para utilizar varios formularios en nuestra aplicación tendremos que añadir cada uno de ellos mediante la opción de menú Insert / Form o pulsando sobre el botón.
Para llamar a un formulario desde el código se utiliza el método Show. Si el formulario 2 tiene en la propiedad Name form2, para llamarlo desde otro formulario se escribe:
Form2.Show
Si no se pone ningún argumento se asume que el formulario aparece en modo no modal, es decir, se permitirá que se active cualquier otro formulario sin cerrar el formulario 2. La otra modalidad que existe es modal, lo que significa que no se permite el enfoque hacia ningún otro formulario hasta que no se cierre el actual. Este último modo puede servir para cuadros de diálogo que soliciten ciertos parámetros para que la aplicación siga funcionando: una contraseña.
Los argumentos del método Show son:
0
VbModeless No modal
1
VbModal Modal
Ejemplo:
Form2.Show vbModal
La sentencia Load seguida del nombre de un formulario provoca que se cargue el formulario en memoria pero sin visualizarse, ya que la propiedad Visible se coloca a False.
Ejemplo
Load Form2
Realmente el método Show realiza la carga del formulario en memoria, si no estaba cargado antes, y coloca la propiedad Visible del formulario a True. Durante este proceso se provoca la activación de los eventos Load y Activate del formulario en ese orden. En dichos eventos se puede colocar el código necesario que haga que el formulario se inicie siempre con los valores deseados.
Si el formulario ya estaba cargado en memoria, mediante una sentencia Load o porque se haya ocultado con el método Hide, al llamarlo con el método Show, únicamente se realizará la modificación de la propiedad Visible a True, y no se volverá a efectuar el proceso de carga del formulario a memoria. Por tanto el formulario aparecerá con los mismos datos que tenía cuando se ocultó. Ahora el único evento que se activará es el Activate que se activa cada vez que un formulario recibe el enfoque o pasa a ser el formulario activo.
Permite descargar un formulario de la memoria. Se introduce junto al nombre del formulario que se va a descargar:
Unload Form2
Si se esta dentro del mismo
formulario para descargarlo no hace falta colocar el nombre sino únicamente:
Unload me
En una aplicación con varios formularios se debe usar esta sentencia para los métodos que se terminan de utilizar, de esta forma se libera espacio en memoria para que los otros formularios puedan aprovecharla mejor.
La sentencia unload provoca la activación de los eventos:
Deactivate: Al contrario que el evento Activate, este se activa cada vez que un formulario pierde el enfoque. También se activa este evento al utilizar el método Hide.
Unload: Este evento
recibe el parámetro Cancel, y al modificar su valor se puede hacer
que se suspenda (cancele) el proceso de descarga de un formulario. Mediante
2 líneas de código se puede hacer una pregunta al usuario
cada vez que se cierra un formulario para que confirme la operación:
Este código provocará que cada vez que se cierre el formulario de cualquier forma, (no sólo mediante la sentencia Unload sino también haciendo click sobre la "x", el menú de control o con ALT + F4) aparezca un mensaje que pregunta si realmente se desea salir:
Query_Unload: Este
evento se produce realmente antes que el evento Unload.
En este evento además
de recoger el parámetro Cancel, también proporciona
el parámetro UnloadMode que según el valor que tenga se podrá
saber desde donde se produce la posible descarga del formulario. Los valores
que puede tener son los siguientes:
0 - vbFormControlMenu: Significa
que el cierre del formulario se ha producido:
Pulsando sobre la "x"
Mediante la opción
cerrar del Menú de Control.
Pulsando ALT + F4.
Cerrando el formulario desde
la Barra de Tareas.
1 - vbFormCode: Indica que se ha cerrado el formulario utilizando la sentencia Unload.
2 - vbAppWindows: Se cierra el formulario porque se apaga el sistema desde Inicio / Apagar Sistema.
3 - vbAppTaskManager: Desde el administrador de tareas de windows (CTRL + ALT + DEL) se cierra la aplicación que contiene el formulario
4 - vbFormMDIForm: Se produce
cuando se cierra un formulario hijo porque se está cerrando el formulario
MDI que lo contiene.
Mediante unas líneas
de código se va a probar las posibilidades de este evento. Según
desde donde se cierre el formulario del que consta la aplicación
aparecerá un mensaje distinto que pide confirmación en el
proceso de descarga.
Nota: Para el correcto funcionamiento de este ejemplo se debe compilar la aplicación mediante File / Make EXE File... y ejecutar la aplicación desde fuera del entorno de trabajo de VB. Esto es así para que se pueda cerrar la aplicación apagando el sistema y desde el administrador de tareas.
El código asociado
al evento Query_Unload es el siguiente:
Desde un formulario se puede tener acceso a los controles y propiedades de otro formulario.
En lugar de realizar el paso de parámetros cuando se llama a otro formulario que queremos que aparezca con unos determinados valores iniciales, lo que se hace es acceder a los controles del otro formulario y después mostrarlo mediante el método Show.
Para acceder a los controles
de otro formulario se sigue la siguiente sintaxis:
Formulario!Control.Propiedad
= valor
Se debe colocar una admiración "!" entre el formulario y el control y un punto entre el control y la propiedad
Ejemplo:
Form2!Label1.Caption = "Número
de Clientes"
Al acceder a las propiedades de otro formulario automáticamente se carga éste en memoria, si no lo estaba ya antes. Una vez que se hayan modificado sus propiedades los visualizaremos con el método Show.
No se puede acceder a las variables declaradas en otro formulario, de modo que si se quiere trabajar con variables generales, las cuales sean accesibles desde cualquier formulario de la aplicación, se tendrán que declararlas como Públicas desde un módulo de código
Para insertar un módulo en un proyecto de Visual Basic se tendrá que marcar en Proyecto y dentro de la opción proyecto Agregar Modulo o pulsar sobre el botón de la barra de herramientas. Aparecerá una ventana en la que únicamente se podrán colocar las variables y procedimientos o funciones que se deseen públicas para toda la aplicación.
En el siguiente ejemplo se
declara la variable Gen_var de tipo Integer que será accesible desde
cualquier formulario de la aplicación:
El Editor de Menú es una Aplicación de diseño de menús que se incluye en Visual Basic. El Editor Menú consiste en un cuadro de texto que consta de:
Caption: Se teclea el nombre del Menú o del comando que aparecerá en la Barra de Menú. Para permitir el acceso por teclado al elemento de Menú se inserta un Ampersand (&) antes de una letra. También puede crear una barra separadora tecleando un guión (-).
Name: Se usa para teclear el nombre del Control para el elemento del Menú. Es un identificador que se usa solamente para accesar el elemento del menú en código y no aparecerá en un Menú.
Index: Se usa para asignar un valor numérico que determina la posición del elemento del menu dentro de un arreglo de control.
Shortcut: Presenta
una lista desde la que puede seleccionar una tecla de atajo para el elemento
del menú.
HelpContextId: Se usa para
asignar un valor numérico para el Id de contexto. Este valor se
usa para encontrar el tema de ayuda apropiado en al archivo de ayuda identificado
por la propiedad HelpFile.
Checked: Es una casilla de verificación que se selecciona si desea que aparezca una marca de verificación a la izquierda.
Enable: Es una casilla
de verificación que se selecciona si desea que el elemento del menú
aparezca en el menú.
4.2 Hacer Clic con los botones para realizar acciones
Hay muchas formas de elegir un botón de comando en tiempo de ejecución:
§ Usar un Mouse para
hacer clic en el botón
§ Mover el enfoque
al botón presionando la tecla TAB y luego presionar ENTER
§ Presionar una tecla
de acceso a un botón de comando(ALT + la tecla subrayada)
§ Establecer la propiedad
Value del botón de comando en True en el código:
Command2.Value = True
§ Invocar al evento
Clic del botón de comando en el código:
Cmcerrar_Clic
§ Si el botón
de comando es el botón de comando predeterminado para el formulario,
al presionar ENTER se elige el botón aunque cambie el enfoque a
un control diferente de un botón de comando. Para especificar un
botón de comando en tiempo de diseño establezca la propiedad
Default del botón a True.
§ Si el botón
de comando es el botón cancelar predeterminado para el formulario,
al presionar ESC se elige el botón aunque cambie el enfoque a otro
control. Para especificar un botón Cancelar por defecto en tiempo
de diseño ponga la propiedad Cancel en True.
4.3 Controles para Introducir y Mostrar Textos
Los controles son Label y Text. Para cambiar el tamaño de una etiqueta y ajustarla al tamaño de su contenido se hace lo siguiente:
§ Los títulos
de etiquetas de una sola línea se pueden especificar en tiempo de
diseño en la ventana propiedades. Pero para hacerlo en tiempo de
ejecución es necesario utilizar dos propiedades: AutoSize
y WordWrap. El AutoSize determina si se debe cambiar el tamaño de
un control para ajustarlo a su contenido. Si esta establecida en True,
etiqueta crece horizontalmente. La WordWrap hace que la etiqueta crezca
verticalmente para ajustarse al contenido.
Durante el curso vamos a trabajar con bases de datos de Access, no porque sean las mejores, que no lo son, sino porque son las bases de datos más extendidas. Además el propio Visual Basic viene con un fichero de base de datos Biblio.mdb con el que podremos hacer pruebas.
Para iniciar se enseñará como realizar una pequeña aplicación que muestre en un formulario una tabla de una base de datos. A partir de este ejemplo que se irá comentando efusivamente se conocerá la base para realizar las aplicaciones y se irá ampliando para conocer todas las posibilidades que existen en el manejo de bases de datos.
Inicialmente se hará
el ejemplo de 2 formas distintas:
· Empleando los controles
que facilitan la labor con bases de datos
· Mediante código,
es decir "a pelo" utilizando un ListBox para mostrar el resultado.
5.1 CONTROLES DE BASES DE DATOS
Sin una sola línea
de código se puede visualizar cualquier tabla de una base de datos
con todos sus registros.
Data: este control viene en la caja de herramientas (toolbox) nada más cargar Visual Basic. Es un control muy potente, el más importante para bases de datos. Nos permite abrir una base de datos y manipular su contenido: situarnos en un registro concreto de una tabla, eliminar, añadir o modificar registros, etc.
Datacontrol: es un tipo de control propio de VB pensando especialmente para el acceso a bases de datos. El sistema de programación de acceso a bases de datos de VB tiene dos tipos de herramientas diseñados para este fin:
1 - DAO(Data Acces Objets) son objetos no visibles para acceder a bases de datos, es decir, no implementan ninguna interfaz para el ususario. Entre ellos podemos destacar Database, Table, Dynaset y QueryDef. Dao permite el acceso a las bases de datos desde programacion exclusivamente. Esto quiere decir que si se desea dotar a una aplicación de la potencia de un Dynaset, se deberá implementar la intefaz del usuario, incluyendo los botones y controles oportunos para realizar los diferentes procesos.
2 – DataControl: poseen de por si una interfaz con una apariencia fisica concreta, sobre la cual el usuario puede pulsar con el raton y desencadenar acciones directamente sin que dichas acciones hayan sido implementadas por el porgramador. La finalidad basica del DataControl es acelerar las fases de desarrollo de mantenimiento de archivos.
DataBaseName: le indicamos
donde está situado el archivo que contiene la base de datos, en
este caso Biblio.mdb que estará en el mismo directorio de Visual
basic. Recordemos que el concepto relacional de base de datos es diferente
a lo que se entiende como base de datos. Dentro de una base de datos
se puede tener una o varias tablas, lo cual quiere decir que una tabla
de datos no es lo mismo que un archivo de datos o una tabla.
Cada archivo de datos
representa una tabla que puede tener varios indices para acelerar el acceso
a los registros que contiene.
Conect: contiene un alfanumérico que especifica el tipo de formato de la base de datos a la que nos queremos conectar. El DataControl posee una lista de alfanumericos correctos para compararlos con el que le especificamos.
RecordSource: aparecerán
las tablas de las que consta la base de datos para que elijamos con cual
queremos trabajar. Más adelante veremos que podemos indicar mediante
una sentencia SELECT campos de distintas tablas que cumplan ciertas condiciones.
Esta propiedad tiene esencialmente dos funciones como se menciono
anteriormente:
1- Para especificar la tabla
de la cual queremos recuperar los datos.
2- Para especificar una
sentencia SELECT que obtenga datos concretos de una o varias tablas, ejemplo
:
Data1.RecorSource = “Clientes”
Este ejemplo establece
que la fuente de datos para nuestro DataControl llamado Data1 va a ser
la tabla clientes.
Los DataControl presentan los datos mediante controles vinculados a ellos. Se puede hacer que un DataControl muestre automaticamente sus datos en una serie de cajas de edicion de texto. Es lo que en el manual de VB se denomina DataBoundControl.
DataSource: indicamos el control Data con el que estará conectado este control que si se ha cambiado el nombre debe ser Data1. Es el único dato que necesita este control, de esta forma visualizará la tabla que hayamos indicado en la propiedad Recordsource del Data.
Al ejecutar la aplicación, el formulario tendrá un aspecto como este:
Como se puede observar junto con los datos aparece la cabecera que nos indica a que campo corresponde cada columna.
También nos podemos desplazar por todos los registros de los que consta la tabla de 2 formas: utilizando la barra de desplazamiento del control DBgrid o con las flechas del control Data, las cuales nos permiten desplazarnos al primer registro, registro anterior, registro posterior y último registro respectivamente.
Por ahora las únicas operaciones que podremos hacer con este formulario son las de desplazarnos a través de la tabla que indiquemos (no tiene por que ser necesariamente la tabla Autores o Authors, hay muchas más tablas en el archivo de base de datos Biblio.mdb), aunque para no haber introducido una sola línea de código ya es bastante.
DBgrid: Si el control no se encuentra inicialmente disponible en la toolbox, tendremos que buscarlo en la opción: Proyecto - Componentes (si estás utilizando la versión inglesa), aparecerá como 1ª opción de las muchas que existen Apex Data Bound Control, actívala y acepta. Este control permite visualizar un conjunto de registros, cabeceras incluidas, que haya sido indicado en un control Data.
Habrá que situar los
2 controles en el formulario y modificar las siguientes propiedades:
Control Data:
Más adelante veremos
las modificaciones que habrá que hacer para poder realizar otras
operaciones más útiles sobre los datos: añadir, eliminar,
modificar, buscar, o que al hacer click sobre un autor nos aparezcan los
libros que ha escrito en otro control DBgrid o en otro formulario, por
ejemplo.
5.2 PROGRAMACION DE DATACONTROLS
5.2.1 Funciones de Movimientos
los DataControl al igual que el resto de los objetos RecordSet muestran solo un registro a la vez, permitiendo posicionarse en diferentes registros. Para tal fin se dispone de tres funciones básicas de movimiento que equivalen a los cuatro botones del DataControl:
Data1.Recordset.MoveFirst
Data1.Recordset.MovePrevious
Data1.Recordset.MoveNext
Data1.Recordset.MoveLast
Ejemplo de lo anterior es son las siguientes intrucciones:
Sub Button1_Click ()
Data1.Recordset.MoveNext
If Data1.Recordset.EOF
Then
Data1.Recordset.MoveLast
End if
End Sub
Sub Button1_Click ()
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF
Then
Data1.Recordset.MoveFirst
End if
End Sub
En objetivo de utilizar este tipo de funciones es para que el usuario no vea el DataControl y para implementar una serie de mecanismos de seguridad que permitan al usuario avanzar o retroceder en función de variables de programas.
De este modo si especificamos
dentro del Evento Load del Form la instrucción Data1.Visible = False,
se ocultara el DataControl, de manera que solo el programa podrá
manejarlo y el usuario deberá interacturar con el DataControl exclusivamente
a través de los botones y controles que se hayan dispuestos a tal
efecto.
5.2.2 Obtener el valor
de un campo
Esto se hace a través de la colección Fields, a través de Recordset(campo) o a través del símbolo “!” el cual actúa como separador sintáctico entre registro y campo. Son expresiones validas las siguientes:
Data1.Recordset(“Apellido”)
Data1.Recordset!“Apellido”
Data1.Recordset.Fields(2).value
Pero puede surgir la posibilidad de asignar a una variable alfanumérica el valor Null, entonces para tratar tal posibilidad y evitar un error en tal caso se debe realizar lo siguiente:
If Isnuli(Data1.Recordset.fields(2).value)
Then
A$ = “ “
Else
A$ = Data1.Recordset.fields(2).value
End if
Recordemos que un recordset es un conjunto de registros que asignamos a una variable para poder tratarlos y hacer operaciones con los registros que la componen.
Para asignar un conjunto de registros a un recordset utilizábamos la siguiente sentencia:
set autores = mibase.openrecordset("authors", dbOpenTable)
En este caso hemos utilizado la constante dbOpenTable, con lo que le estamos diciendo que asigne al recordset autores todos los campos de la tabla authors, que deberá ser una tabla incluida en la base de datos mibase.
Las demás constantes que podemos introducir son dbOpenDynaset y dbOpenSnapShot y las características de todas ellas son las siguientes:
dbOpenTable: Sólo permite que se asigne a un recordset el contenido completo de una tabla con todos sus campos y registros. Podemos realizar operaciones de lectura, modificación y escritura sobre los registros. Es el método más rápido para realizar modificaciones en una única tabla.
dbOpenDynaset: Permite que se incluyan varios campos de varias tablas, también permite que se asignen los registros que cumplan ciertas condiciones y no necesariamente todos los que componen las tablas como ocurría con el método anterior. Para indicar los campos y registros que queramos se utiliza la sentencia SELECT del lenguaje SQL encerrada entre comillas en lugar de introducir únicamente el nombre de una tabla:
"SELECT nombre, apellidos, departamento FROM profesores, departamentos WHERE codprof=coddep AND coddep=3 ORDER BY nombre"
Esta sentencia SELECT obtiene el nombre, los apellidos y el departamento de todos los profesores que pertenezcan al departamento 3 ordenados alfabéticamente por el nombre.
El método dbOpenDynaset permite que se realicen operaciones de lectura, modificación y escritura aunque es más lento que el modo dbOpenTable.
dbOpenSnapShot: Este modo de abrir recordsets es parecido a dbOpenDynaset, con la diferencia de que la única operación permitida sobre sus registros es la de lectura, no permitiendo operaciones de modificación ni escritura. Por tanto este modo es más rápido que el anterior y lo utilizaremos cuando sólo nos interese realizar una vista o consulta de un conjunto de tablas. Para asignar el conjunto de registros al recordset utilizaremos también una sentencia SELECT.
* Un objeto Recordset representa los registros de una tabla base o los registros que se generan al ejecutar una consulta.
Comentarios
Utilice los objetos Recordset para manipular datos en una base de datos al nivel de registro. Cuando utiliza objetos de acceso de datos, interactúa con los datos prácticamente utilizando objetos Recordset. Todos los objetos Recordset se construyen utilizando registros (filas) y campos (columnas). Existen tres tipos de objetos Recordset:
§ Recordset de tipo
Table: una representación en código de una tabla base que
puede utilizarse para añadir, cambiar o eliminar registros desde
una única tabla de base de datos (sólo espacios de trabajo
Microsoft Jet).
§ Recordset de tipo
Dynaset: el resultado de una consulta cuyos registros pueden actualizarse.
Un objeto Recordset de tipo Dynaset es un conjunto dinámico de registros
que puede utilizarse para añadir, cambiar o eliminar registros desde
una tabla o tablas subyacentes de una base de datos. Un objeto Recordset
de tipo Dynaset puede contener campos de una o más tablas de una
base de datos. Este tipo corresponde a un cursor de tipo keyset ODBC.
§ Recordset de tipo
Snapshot: una copia estática de un conjunto de registros que puede
utilizar para encontrar datos o generar informes. Un objeto Recordset de
tipo Snapshot puede contener campos de una o más tablas de una base
de datos pero no se puede actualizar. Este tipo corresponde a un cursor
de tipo static ODBC.
§ Recordset de tipo
Forward-only: idéntico a un tipo Snapshot excepto que no se proporciona
ningún cursor. Sólo puede avanzar en los registros. Esto
mejora el rendimiento en situaciones donde sólo necesita hacer una
pasada sencilla en el conjunto de resultado. Este tipo corresponde a un
cursor de tipo forward-only ODBC.
§ Recordset de tipo
Dynamic: un conjunto de resultado de una consulta de una o más tablas
base en las que puede agregar, cambiar o eliminar registros de una consulta
que devuelve filas. Además, también aparecen en el objeto
Recordset los registros que agregan, eliminan o modifican otros usuarios
en la tablas base. Este tipo corresponde a un cursor de tipo dynamic ODBC
(sólo espacios de trabajo ODBCDirect).
Puede elegir el tipo de objeto Recordset que quiere crear usando el argumento tipo del método OpenRecordset.
En un espacio de trabajo Microsoft Jet, si no especifica un tipo, DAO intenta crear el tipo de objeto Recordset con la mayor funcionalidad disponible, comenzando con tabla. Si no está disponible este tipo, DAO intenta un Dynaset, después un Snapshot y por último un objeto Recordset de tipo Forward-only.
En un espacio de trabajo ODBCDirect, si no especifica un tipo, DAO intenta crear el tipo de objeto Recordset con la respuesta de consulta más rápida, comenzando con Forward-only. Si no está disponible este tipo, DAO intenta un Snapshot, después un Dynaset y por último un objeto Recordset de tipo Dynamic.
Cuando se crea un objeto Recordset utilizando un objeto TableDef no adjunto, se crean objetos Recordset de tipo Table. Sólo pueden crearse Recordset de tipo Dynaset o Snapshot con tablas adjuntas o tablas de bases de datos externas ODBC.
Cuando abre el objeto se agrega automáticamente un nuevo objeto Recordset a la colección Recordsets y se elimina automáticamente cuando lo cierra.
Nota Si utiliza variables para representar un objeto Recordset y el objeto Database que contiene el conjunto de registros, compruebe que las variables tengan el mismo alcance o duración. Por ejemplo, si establece una variable global que representa un objeto Recordset, debe asegurarse de que la variable que represente la base de datos que contiene el conjunto de registros también sea global o se encuentra en un procedimiento Sub o Function con la palabra clave Static.
IMPORTANTE!!! Su aplicación puede crear tantas variables objeto Recordset como se necesiten. Un objeto Recordset puede hacer referencia a una o más tablas o consultas y los campos sin conflictos.
Los Recordset de tipo Dynaset y Snapshot se almacenan en la memoria local. Si no hay suficiente espacio en la memoria local para almacenar los datos, el motor de base de datos Microsoft Jet guarda los datos adicionales en el disco TEMP. Si este espacio está agotado, se producirá un error.
IMPORTANTE!!! La colección predeterminada de un objeto Recordset es la colección Fields y la propiedad predeterminada de un objeto Field es la propiedad Value. El código puede simplificarse utilizando estos valores predeterminados.
Cuando se crea un objeto Recordset, el registro activo se coloca como primer registro si existen varios registros. Si no hay registros, el valor de la propiedad RecordCount será 0 y los valores de la propiedad BOF y EOF serán True.
IMPORTANTE!!! Puede utilizar los métodos MoveNext, MovePrevious, MoveFirst y MoveLast para volver a establecer el registro activo. Los objetos Recordset de tipo Forward-only sólo admiten el método MoveNext. Cuando se utilizan los métodos Move para moverse entre los registros (o "andar" a través del objeto Recordset), puede utilizar las propiedades BOF y EOF para comprobar el inicio o el fin del objeto Recordset.
Con los objetos Recordset de tipo Dynaset y Snapshot en un espacio de trabajo Microsoft Jet, también puede utilizar los métodos Find, como FindFirst, para localizar un registro específico basado en un criterio. Si no se encuentra el registro, la propiedad NoMatch se establece a True. Para objetos Recordset de tipo Table, puede buscar registros utilizando el método Seek.
La propiedad Type indica el tipo de objeto Recordset creado y la propiedad Updatable indica si puede cambiar los registros del objeto.
La información acerca de la estructura de la tabla base, como los nombres y los tipos de datos de cada objeto Field y cualquier objeto Index, se almacena en un objeto TableDef.
Para hacer referencia a un objeto Recordset en una colección por su número de orden o por el valor de la propiedad Name, utilice cualquiera de los formatos de sintaxis siguientes:
Recordsets(0)
Recordsets("nombre")
Recordsets![nombre]
Nota Puede abrir un objeto Recordset del mismo origen de datos o base de datos más de una vez creando nombres duplicados en la colección Recordsets. Debe asignar objetos Recordset a variables de objeto y hacer referencia a ellos por el nombre de variable.
Este ejemplo demuestra los objetos Recordset y la colección Recordsets abriendo cuatro tipos diferentes de Recordsets, enumerando la colección Recordsets de la Database actual y enumerando la colección Properties de cada Recordset.
Sub RecordsetX()
Dim dbsNeptuno As Database
Dim rstTable As Recordset
Dim rstDynaset As
Recordset
Dim rstSnapshot As
Recordset
Dim rstForwardOnly
As Recordset
Dim rstBucle As Recordset
Dim prpBucle As Property
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
With dbsNeptuno
' Abre cada tipo de
objeto Recordset.
Set rstTable = .OpenRecordset("Categorías",
_
dbOpenTable)
Set rstDynaset =
.OpenRecordset("Empleados", _
dbOpenDynaset)
Set rstSnapshot =
.OpenRecordset("Compañías de envíos", _
dbOpenSnapshot)
Set rstForwardOnly
= .OpenRecordset _
("Empleados",
dbOpenForwardOnly)
Debug.Print "Recordsets
en la colección " & _
" Recordsets
de dbsNeptuno"
' Enumera la colección
Recordsets.
For Each rstBucle
In .Recordsets
With rstBucle
Debug.Print
" " & .Name
' Enumera la colección Properties de cada
' objeto Recordset. Bloquea
cualquier
' propiedad
cuyo valor no es válido
' en
este contexto.
For Each
prpBucle In .Properties
On Error Resume Next
If prpBucle <> "" Then Debug.Print _
" " & prpBucle.Name &
_
" = " & prpBucle
On Error GoTo 0
Next
prpBucle
End With
Next rstBucle
rstTable.Close
rstDynaset.Close
rstSnapshot.Close
rstForwardOnly.Close
.Close
End With
End Sub
Recordset (Objeto)
Recordset (Objeto)
El objeto Recordset contiene
los siguientes colecciones, métodos y propiedades:
Leyenda:
§ Fields (predeterminada)
Una colección Fields contiene todos los objetos Field almacenados de un objeto Index, QueryDef, Recordset, Relation o TableDef.
Comentarios
Las colecciones Fields de objetos Index, QueryDef, Relation y TableDef contienen las especificaciones de los campos a los que representan estos objetos. La colección Fields de un objeto Recordset representa los objetos Field en una fila de datos, o en un registro. Los objetos Field de un objeto Recordset se utilizan para leer y establecer valores para los campos del registro activo del objeto Recordset.
Para hacer referencia a un objeto Field en una colección por su número de orden o por su valor de propiedad Name, utilice los formatos de sintaxis siguientes:
Fields(0)
Fields("nombre")
Fields![nombre]
Con los mismos formatos de
sintaxis, también puede hacer referencia a la propiedad Value de
un objeto Field que crea y agrega a una colección Fields. El contexto
de la referencia de campo determinará si hace referencia a un objeto
Field o a la propiedad Value del objeto Field.
§ Properties
Una colección Properties
contiene todos los objetos Property de una instancia determinada de un
objeto.
Comentarios
Todos los objetos de acceso de datos contienen una colección Properties, que tiene algunos objetos Property. Estos objetos Property (que a veces se denominan propiedades) caracterizan de forma exclusiva a esa instancia del objeto.
Además de las propiedades incorporadas, algunos objetos permiten crear y añadir propiedades definidas por el usuario. Para añadir una propiedad definida por el usuario a una instancia existente de un objeto, es necesario definir previamente sus características con el método CreateProperty y a continuación añadirla a la colección con el método Append. Hacer referencia a un objeto Property definido por el usuario que no se ha agregado a la colección Properties producirá un error, como agregar un objeto Property definido por el usuario a una colección Properties que contiene un objeto Property con el mismo nombre.
Puede utilizar el método Delete para eliminar propiedades definidas por el usuario de la colección Properties, pero no puede eliminar las propiedades incorporadas.
Nota Una propiedad definida por el usuario (objeto Property) sólo está asociada a la instancia específica del objeto. La propiedad no se define para todas las instancias de objetos del tipo seleccionado.
Se puede utilizar la colección Properties de un objeto para enumerar las propiedades incorporadas y definidas por el usuario del objeto. No es necesario que conozca de antemano exactamente qué propiedades existen o cuáles son sus características (propiedades Name y Type) para manipularlas. Sin embargo, si intenta leer una propiedad de sólo escritura, como la propiedad Password de un objeto Workspace) o intenta leer o escribir una propiedad en un contexto adecuado, como el valor de la propiedad Value de un objeto Field en la colección Fields de un objeto TableDef, se produce un error.
Para hacer referencia a un objeto Property incorporado en una colección por su número de orden o por el valor de la propiedad Name, utilice cualquiera de los formatos de sintaxis siguientes:
objeto.Properties(0)
objeto.Properties("nombre")
objeto.Properties![nombre]
Para una propiedad incorporada, también puede utilizar esta sintaxis:
objeto.nombre
Nota Para una propiedad definido
por el usuario, debe utilizar la sintaxis objeto
.Properties("nombre") completa.
Con los mismos formatos de
sintaxis, también puede hacer referencia a la propiedad Value de
un objeto Property. El contexto de la referencia determinará si
hace referencia al objeto Property por si mismo o a la propiedad Value
del objeto Property.
RECORDSET (MÉTODOS)
Crea un nuevo registro para un objeto Recordset de tipo Table o Dynaset.
Sintaxis
recordset.AddNew
El marcador de posición del recordset es una variable de objeto que representa un objeto Recordset que se puede actualizar al que puede agregar un registro nuevo.
Comentarios
Utilice el método AddNew para crear y agregar un nuevo registro en el objeto Recordset llamado por el recordset. Este método establece los campos a los valores predeterminados y si no se especifican valores predeterminados, establece los campos a Null (los valores predeterminados especificados pare el Recordset tipo Table).
Después de modificar el nuevo registro, utilice el método Update para guardar los cambios y agregar el registro al Recordset. No se producirán cambios en la base de datos hasta que no se utilice el método Update.
Precaución Si ejecuta un AddNew y a continuación realiza una operación que desplace otro registro sin usar Update, los cambios se perderán sin previo aviso. Además, si cierra el Recordset o finaliza el procedimiento que declara el Recordset o su objeto Database, el nuevo registro y los cambios realizados se descartarán sin previo aviso.
Nota Cuando utilice AddNew en un espacio de trabajo Microsoft Jet y el motor de base de datos tenga que crear una nueva página para almacenar el registro activo, el bloqueo de páginas será pesimista. Si el nuevo registro cabe en una página existente, el bloqueo de páginas será optimista.
Si no se ha desplazado hasta el último registro de su Recordset, los registros agregados a las tablas subyacentes pueden incluirse, si se colocan más allá del registro activo. Sin embargo, si agrega un registro a un Recordset, el registro será visible en el Recordset y se incluirá en la tabla subyacente donde estará visible para todos los nuevos objetos Recordset.
La posición del nuevo registro depende del tipo de Recordset:
· En un objeto Recordset
tipo Dynaset, los registros se insertan al final del conjunto del Recordset,
independientemente de las reglas de clasificación u orden que estuvieran
en vigor cuando se abrió el Recordset.
· En un objeto Recordset
tipo Table en el que su propiedad Index se haya establecido, los registros
se insertan en el lugar adecuado dentro del orden definido. Si no se ha
establecido la propiedad Index, los nuevos registros se insertarán
al final del Recordset.
El registro que estaba activo antes de utilizar AddNew permanece activo. Si desea convertir el nuevo registro en el registro activo, puede establecer la propiedad Bookmark con marcador identificado por el valor de la propiedad LastModified.
Nota Para agregar, modificar o eliminar un registro, debe haber sólo un índice único en el registro en el origen de datos base. Si no, se producirá un error "Permiso denegado " en el método AddNew, Delete o Edit que se llama en un espacio de trabajo Microsoft Jet o se producirá un error "Argumento no válido " en el método Update que se llama en un espacio de trabajo ODBCDirect.
Este ejemplo utiliza el método AddNew para crear un registro nuevo con el nombre especificado. Se necesita la función AgregarNombre para ejecutar este procedimiento.
Sub AddNewX()
Dim dbsNeptuno As Database
Dim rstEmpleados As
Recordset
Dim strNombre As String
Dim strApellidos As
String
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
Set rstEmpleados =
_
dbsNeptuno.OpenRecordset("Empleados",
dbOpenDynaset)
' Obtiene datos del
usuario.
strNombre = Trim(InputBox(
_
"Introduzca el nombre:"))
strApellidos = Trim(InputBox(
_
"Introduzca los apellidos:"))
' Sólo se ejecuta si el usuario escribe algo
' en los dos campos.
If strNombre <>
"" and strApellidos <> "" Then
' Llama a la función
que agrega el registro.
AgregarNombre rstEmpleados,
strNombre, strApellidos
' Muestra los datos
agregados más recientemente.
With rstEmpleados
Debug.Print
"Registro nuevo: " & !Nombre & _
" " &
!Apellidos
' Elimina el
registro nuevo porque esto es un ejemplo.
.Delete
End With
Else
Debug.Print _
"¡Debe
escribir una cadena para el nombre y los apellidos!"
End If
rstEmpleados.Close
dbsNeptuno.Close
End Sub
Function AgregarNombre(rstTemp
As Recordset, _
strNomrbe As String,
strApellidos As String)
' Agrega un registro
nuevo al Recordset utilizando
' datos transferidos
del procedimiento que llama.
' El registro nuevo
pasa a ser el registro actual.
With rstTemp
.AddNew
!Nombre = strNomrbe
!Apellidos = strApellidos
.Update
.Bookmark = .LastModified
End With
End Function
Delete
· Objetos Recordset:
elimina el registro activo de un objeto Recordset de tipo Dynaset o Table.
Para espacios de trabajo ODBCDirect, el tipo de controlador determina si
los objetos Recordset se pueden actualizar y, por tanto, admiten el método
Delete.
· Colecciones: elimina
un objeto persistente almacenado de una colección.
Sintaxis
recordset.Delete
colección.Delete
nombreobjeto
La sintaxis del método Delete utiliza los siguientes argumentos.
Argumentos Descripción
recordset Una variable de
objeto que identifica un objeto Recordset de tipo Dynaset o Table abierto,
que contiene el registro que desea eliminar.
colección Una variable
de objeto que representa una colección de la que se elimina nombreobjeto.
nombreobjeto Un tipo de
datos String que es el valor de la propiedad Name de un objeto existente
en una colección.
Comentarios
Puede utilizar el método Delete para eliminar un registro activo de un objeto Recordset o un miembro de una colección, como una tabla almacenada de una base de datos, un campo almacenado de una tabla y un índice de una tabla.
Recordsets
Un objeto Recordset debe
contener un registro activo antes de que utilice el método Delete;
en caso contrario se produce un error en tiempo de ejecución.
En objetos Recordset, Delete
elimina el registro activo y lo hace inaccesible. Aunque no pueda modificarlo
o utilizarlo, el registro eliminado permanecerá activo. Sin embargo,
una vez que se desplace a otro registro no podrá volver a convertir
en activo el registro eliminado. Las referencias subsiguientes a un registro
eliminado en un Recordset no son válidas y producen un error.
Puede recuperar un registro
utilizando transacciones y el método Rollback.
Si la tabla base es la tabla
principal en una relación de eliminación de cascada, al eliminar
el registro activo también se eliminarán uno o más
registros de una tabla externa.
Nota Para agregar, modificar o eliminar un registro, debe tener un índice único en el registro en el origen de datos de base. Si no es así, se producirá un error "Permiso denegado" en la llamada al método AddNew, Delete o Edit en un espacio de trabajo Microsoft Jet, o se producirá un error "Argumento no válido" el la llamada al método Update en un espacio de trabajo ODBCDirect.
Colecciones
Puede utilizar el método
Delete para eliminar un objeto persistente. Sin embargo, si la colección
es una colección Databases, Recordsets o Workspaces (cada una de
las cuales se almacena sólo en memoria), los objetos abiertos o
activos se eliminarán cerrando ese objeto mediante el método
Close.
La eliminación de
objetos almacenados ocurre inmediatamente, pero debe utilizar el método
Refresh en cualquier otra colección que se pueda ver afectada por
cambios en la estructura de la base de datos.
Cuando elimine un objeto TableDef de una colección TableDefs, se eliminará la definición de la tabla y los datos de la misma.
ste ejemplo utiliza el método
Delete para quitar un registro especificado de un objeto Recordset
. Se necesita el procedimiento
EliminarRegistro para ejecutar este procedimiento
Sub DeleteX()
Dim dbsNeptuno As Database
Dim rstEmpleados As
Recordset
Dim lngID As Long
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
Set rstEmpleados =
_dbsNeptuno.OpenRecordset("Empleados")
' Agrega un registro
temporal que se va a eliminar.
With rstEmpleados
.Index = "ClavePrincipal"
.AddNew
!Nombre = "Daniel"
!Apellidos = "López
Duque"
.Update
.Bookmark = .LastModified
lngID = !IdEmpleado
End With
' Elimina el registro de
empleado con el Número de
' Id especificado.
EliminarRegistro rstEmpleados,
lngID
rstEmpleados.Close
dbsNeptuno.Close
End Sub
Sub EliminarRegistro(rstTemp
As Recordset, _
lngSeek As Long)
With rstTemp
.Seek "=", lngSeek
If .NoMatch Then
MsgBox "¡No
existe el empleado #" & lngSeek & "en el archivo!"
Else
.Delete
MsgBox "¡Registro
del empleado #" & lngSeek & _
"eliminado!"
End If
End With
End Sub
Update
Guarda el contenido del búfer de copia en un objeto Recordset de tipo Dynaset o Table especificado.
Sintaxis
recordset.Update (tipo, obligar )
La sintaxis del método Update tiene las siguientes partes.
Parte Descripción
recordset Una variable de objeto que representa un objeto Recordset abierto que se puede actualizar.
tipo Opcional. Una constante que indica el tipo de actualización, como se especifica en Valores (sólo espacios de trabajo ODBCDirect).
obligar Opcional. Un valor
de tipo Boolean que indica si se pueden o no obligar los cambios en la
base de datos, sin tener en cuenta si los datos base se han cambiado por
otro usuario desde la llamada al método AddNew, Delete o Edit. Si
es True, los cambios se fuerzan y los cambios hechos por otros usuarios
se sobrescriben. Si es False (predeterminado), los cambios hechos por otros
usuarios mientras la actualización está pendiente provocarán
que falle la actualización para aquellos cambios conflictivos. No
se produce ningún error, pero las propiedades BatchCollisionCount
y BatchCollisions indicarán el número de conflictos y las
filas afectadas por los mismos, respectivamente (sólo espacios de
trabajo ODBCDirect).
Valores
Puede utilizar los siguientes valores en el argumento tipo. Puede utilizar los valores no predeterminados sólo cuando está activada la actualización por lotes.
Constante Descripción
dbUpdateRegular Predeterminado.
Los cambios pendientes no pasan a la memoria caché y se graban en
el disco inmediatamente.
dbUpdateBatch Todos se graban
en disco los cambios pendientes en la memoria caché de actualización.
dbUpdateCurrentRecord Sólo
se graban en disco los cambios pendientes del registro activo.
Comentarios
Utilice Update para guardar el registro activo y los cambios que haya efectuado en él.
Precaución Los cambios realizados en el registro activo se perderán si:
· Utiliza el método
Edit o AddNew y a continuación, pasa a otro registro sin actualizarlo
previamente mediante Update.
· Utiliza Edit o
AddNew y, a continuación, vuelve a usar Edit o AddNew sin utilizar
previamente Update.
· Establece la propiedad
Bookmark para otro registro.
· Cierra el conjunto
de registros a los que hace referencia recordset sin utilizar primero Update.
· Cancela la operación Edit utilizando el método CancelUpdate.
Para modificar un registro, utilice el método Edit para copiar el contenido del registro activo al búfer de copia. Si no utiliza Edit en primer lugar, se producirá un error cuando utilice Update o intente cambiar el valor de un campo.
En un espacio de trabajo ODBCDirect, puede realizar actualizaciones por lotes, proporcionadas por la biblioteca de cursores compatible con actualizaciones por lotes y si el objeto Recordset se abrió con la opción de bloqueo optimista.
En un espacio de trabajo Microsoft Jet, cuando el objeto Recordset de la propiedad LockEdits establecida como True (bloqueo pesimista) en un entorno multiusuario, el registro permanecerá bloqueado desde el momento en que se utiliza Edit hasta que se ejecuta el método Update o se cancele la edición. Si la configuración de la propiedad LockEdits es False (bloqueo optimista), el registro se bloquea y se compara con el registro previamente modificado justo antes de se actualizado en la base de datos. Si ha cambiado el registro desde que utilizó el método Edit, la operación Update falla. El bloqueo optimista se utiliza siempre en Microsoft Jet conectado a ODBC y ISAM instalable. Para que la operación Update continúe con los cambios, utilice de nuevo el método Update. Para volver al registro, tal como lo cambió el otro usuario, actualice el registro activo usando los métodos Move 0.
Nota Para agregar, modificar o eliminar un registro, debe haber un índice único en el registro del origen de datos base. Se obtiene no lo hay, se producirá un error "Permiso denegado" en la llamada al método AddNew, Delete o Edit en un espacio de trabajo Microsoft Jet, se producirá un error "Argumento no válido" en la llamada al método Update en un espacio de trabajo ODBCDirect.
EJEMPLO DEL METODO EDIT Y EL UPDATE
Este ejemplo demuestra el método Update en unión con el método Edit.
Sub UpdateX()
Dim dbsNeptuno As Database
Dim rstEmpleados As
Recordset
Dim strAntiguoNombre
As String
Dim strAntiguosApellidos
As String
Dim strMensaje As
String
Set dbsNeptuno = OpenDatabase("Neptuno.mdb")
Set rstEmpleados =
_
dbsNeptuno.OpenRecordset("Empleados")
With rstEmpleados
.Edit
' Almacena los datos
originales.
strAntiguoNombre
= !Nombre
strAntiguosApellidos
= !Apellidos
' Cambia los datos
en el búfer de modificación.
!Nombre = "María"
!Apellidos = "Álvarez"
' Muestra el contenido
del búfer y obtiene una entrada del usuario.
strMensaje = "Modificación
en progreso:" & vbCr & _"
Datos originales = " & strAntiguoNombre & " " & _strAntiguosApellidos
& vbCr & " Datos en el búfer = " &
_!Nombre &
" " & !Apellidos & vbCr & vbCr & _"¿Utilizar
Update para reemplazar los datos originales con " & _"los datos
del búfer en el Recordset?"
If MsgBox(strMensaje, vbYesNo)
= vbYes Then
.Update
Else
.CancelUpdate
End If
' Muestra los datos
resultantes.
MsgBox "Datos en
el Recordset = " & !Nombre & " " & _!Apellidos
' Restaura los datos
originales porque esto es un ejemplo.
If Not (strAntiguoNombre
= !Nombre And _strAntiguosApellidos
= !Apellidos) Then
.Edit
!Nombre = strAntiguoNombre
!Apellidos
= strAntiguosApellidos
.Update
End If
.Close
End With
dbsNeptuno.Close
End Sub
Este ejemplo demuestra el método Update en unión con el método AddNew.
5.4 VISUALIZAR DATOS DE UNA TABLA MEDIANTE CODIGO
Como contrapartida a obtener datos sin una sola línea de código, vamos a ver ahora como trabajar con bases de datos sin la ayuda de controles especializados, es decir, mediante código únicamente.
Y qué sentido puede tener el complicarnos la vida de esta manera. Si tengo unos controles que me lo hacen todo, ¿Para qué voy a hacer las cosas sin ayudarme de ellos? Pues se puede decir que mediante el código podemos manejar la información con una mayor flexibilidad, podemos superar los límites que siempre tienen los controles y personalizar mejor nuestras aplicaciones. Aunque siempre es recomendable llegar a un compromiso entre el uso del código y de los controles de bases de datos.
Vamos a visualizar el contenido también de la tabla autores de la base Biblio.mdb mediante código aunque ayudándonos del control ListBox para visualizar los registros.
Los pasos a seguir son los siguientes:
Creamos un formulario, situándonos
en la sección Form y el evento Load ya que vamos a hacer que aparezcan
los resultados nada más cargar la aplicación.
Definimos las variables:
Dim mibase as Database
Dim autores as Recordset
La primera línea declara una variable que contendrá la base de datos completa y la variable autores contendrá la tabla que vayamos a mostrar, aunque el tipo de datos recordset puede contener también campos de diversas tablas y no sólo de una como ya veremos.
Asignamos valores a las variables:
set mibase=Workspaces(0).Opendatabase(App.path
& "\biblio.mdb")
set autores=mibase.openrecordset("authors",
dbOpenTable)
Este tipo de variables se inicializan con Set puesto que realmente se trata de objetos que disponen de sus propiedades y sus métodos.
Al objeto mibase se le asigna la base de datos Biblio.mdb y al poner App.path le estamos diciendo que la busque en el mismo directorio donde se encuentra la aplicación, cuando almacene la aplicación debe hacerlo en el directorio que ofrece Visual Basic por defecto ya que es el mismo del archivo Biblio.mdb.(En este Caso, en otros usted puede definir la ruta)
Al colocar Workspaces(0) le decimos que trabajamos en el área de trabajo por defecto y con el método Opendatabase abrimos una base de datos existente, también podíamos haber utilizado otros métodos como CreateDataBase con lo que habríamos creado una base de datos con un determinado nombre.
Respecto al objeto autores le estamos asignando los registros de la tabla Authors, que es un nombre de tabla que debe estar en la base de datos mibase. dbOpenTable es una constante que indica que los registros son de una única tabla determinada, las otras opciones son dbOpenDynaset y dbOpenSnapShot que nos permiten abrir campos de varias tablas para modificarlos o sólo para lectura repectivamente, aunque ya los veremos en profundidad posteriormente.
La sentencia autores.movefirst nos sitúa en el primer registro del recordset. Si queremos asignar a un textbox el contenido de un campo del recordset haremos lo siguiente:
text1.text=autores!author
Si el nombre del campo es
compuesto utilizaremos
text1.text=autores("year
born")
Lo que necesitamos para presentar todos los registros de autores es un bucle que nos recorra el recordset y por cada iteración añadiremos al control ListBox los campos que nos interese.
¿Y cómo sabemos las veces que debemos recorrer el bucle, es decir, como sabemos los registros que tiene el recordset?. Lo que haremos por ahora es comprobar si hemos llegado al final del recordset mediante la propiedad EOF (End Of File), su funcionamiento es similar al de los ficheros de texto. Si comprobamos esta propiedad y hacemos autores.movenext cuando ya no hay más registros causaremos un error en tiempo de ejecución. El listado de la rutina que va añadiendo los registros a un listbox es la siguiente (acuérdese de incluir en el formulario un control ListBox que no lo he dicho antes):
Se ha declarado la variable cadena para contener los 3 campos que aparecerán en el listbox utilizando el método AddItem.
También se ha utilizado la propiedad no vista hasta ahora Recordcount que nos sirve para comprobar que el recordset autores tiene al menos un registro, ya que si nos colocamos en el primer registro con movefirst sin que haya ningún registro provocaremos un error en tiempo de ejecución. Debemos tratar de realizar nuestros programas de una forma robusta, eliminando todos los posibles errores que puedan aparecer.
En el bucle While nos vamos situando cada vez en el registro posterior y añadiéndolo a la lista. Cuando llegamos al final de la tabla autores.EOF saldremos del bucle.
Este sería el resultado
final, cada campo aparece a la misma distancia por que hemos separado cada
campo mediante chr(9), una tabulación
5.5 MODIFICAR UN REGISTRO O FILA DE LA TABLA
sub Actualizar_click
()
Data1.recordset.Update
End sub
Esta forma utiliza el metodo Delete con la seguridad de que no se llegara al final del archivo.
Sub Borrar_Click ()
On Error Resume
Next
Data1.Recordset.Delete
Data1.Recordset.MoveNext
If Data1.Recordset.EOF
Then
Data1.Recordset.Movefirst
End if
End sub
Para añadir
un nuevo registro se debe coordinar dos acciones: ADDNEW y UPDATE.
El método AddNew
realiza los mismo que en Fox pro hace APPEND BLANK
Sub Nuevo_click ()
Data1.recordset.addnew
‘ Crear un espacio en blanco
Text1.setfocus
‘ Posicionarse en el primer campo dentro de un text
End sub
Sub Grabar_click ()
Data1.Recordset.Update ‘ Grabar el dato
End sub
En bases relacionales no existe el concepto de numero de registros. En otras bases de datos anteriores al concepto relacional, existían variables como RECNO que permitían volver a posicionarse en un registro dado.
Para emular ese comportamiento desde VB se dispone de Bookmarks. Los Bookmarks son útiles en casos tales como el que se describe a continuación:
Se necesita realizar una búsqueda mediante FindFirst y no encontramos el registro que cumpla con el criterio de búsqueda. Seria bueno que al finalizar la búsqueda se posicionara en el registro del cual se partió antes de lanzar la búsqueda. Esto se consigue guardando dentro de un Bookmark la posición del registro antes de lanzar el FindFirst:
Sub Buscar_Click ()
Dim comillas
as String
Dim fuente
as string
Dim criterio
as String
Dim marca as
String
Comillas =
Chr$(34)
Marca = Data1.Recordset.Bookmark
Fuente = Inputbox(“Apellido
de Busqueda?”, “Busqueda:”)
If fuente =
“ “ Then exit sub
Criterio =
“Apellido = “ & comillas & fuente & & comillas
Data1.recordset.Findfirst
criterio
If Data1.recordset.Nomatch
Then
MsgBox(“No
se encontro el registro”)
Data1.recordset.Bookmark
= marca
End if
End sub
5.9 EVENTOS VALIDATE, REPOSITION Y ERROR
Los eventos Validate y Reposition propios del DataControl sirven para manejar los problemas más típicos de interacción con el usuario para la entrada de datos y para su modificación.
Tomemos con ejemplo
la base de datos Biblio.Mdb
En esta ”Forma”(Imaginemos que es una forma) Existen dos tipos de campos, uno de tipo numérico y otro alfanumérico. Que sucede si el usuario intenta colocar un contenido alfanumérico en el campo numérico. Bueno pasaría lo siguiente:
Lo que ha sucedido es que antes de grabar VB ha verificado el tipo de los campos de debe grabar para ver si corresponde con la información introducida por el usuario. Por tal razón es necesario controlar este tipo de mensajes.
Se explicara esto con un ejemplo. Supongamos que se va a introducir un nuevo registro:
Sub command1_click
()
Data1.Recordset.Addnew
End sub
Para evitar el tipo de mensaje anterior utilizaremos el evento Validate del DataControl:
Sub Data1_Validate
(Action As integer, save as Integer)
If IsNumeric(Text1.Text)
= 0 Then
K% =
MsgBox(“El del Campo debe ser Numerico”, _16,”Error”)
save = False
end if
end sub
Mediante el parametro Save indicaremos si el registro debe grabarse o no. Ademas se le puede restringir los numero en un rango determinado(1 a 1000 en este caso):
Sub Data1_Validate
(Action As integer, save as Integer)
If IsNumeric(Text1.Text)
= 0 Then
K% =
MsgBox(“El del Campo debe ser Numerico”, _16,”Error”)
save = False
exit sub
end if
v = val(text1.text)
if v > 1000
or v , 1 Then
mensaje$
=”El numero debe estar entre 1 y 1000”
k% =
MsgBox(mensaje$, 16,”Error:”)
save
= False
end if
end sub
El valor de la variable
Action es el que identifica cual ha sido la Accion del usuario que ha causado
el disparo del evento Validate. Según el valor de Validate podemos
tener los siguientes motivos de disparó:
| Valor | Accion tomada por el usuario |
| 0 | Puesta a cero para cancelar la accion |
| 1 | Posicionarse al inicio de la tabla |
| 2 | Posicionarse en el registro anterior |
| 3 | Posicionarse en el registro siguiente |
| 4 | Posicionarse en el ultimo registro |
| 5 | Añadir un nuevo registro |
| 6 | Modificar un registro Existente(Actualizar) |
| 7 | Borrar un registro Existente |
| 8 | Buscar un Registro |
| 9 | Bookmark |
| 10 | Cerrar la tabla |
Otra posibilidad del evento Validate es la verificación de que los datos modificados han sido grabados. El conjunto de normas CUA(Commont User Acces) alas cuales se adhiere Windows(y las aplicaciones para Windows que se precien) especifican que las aplicaciones deben evitar la perdida accidental de datos, y una vez detectada la modificación de los datos, ante cualquier acción evasiva por parte del usuario, deberá preguntar si los datos modificados debe guardarse o descartarse. Para tal razón se modificara la rutina anterior para agregarle lo que se acaba de discutir:
Sub Data1_Validate
(Action As integer, save as Integer)
If IsNumeric(Text1.Text)
= 0 Then
K% =
MsgBox(“El del Campo debe ser Numerico”, _
16,”Error”)
save = False
exit sub
end if
v = val(text1.text)
if v > 1000
or v , 1 Then
mensaje$
=”El numero debe estar entre 1 y 1000”
k% =
MsgBox(mensaje$, 16,”Error:”)
save
= False
end if
-----------------------------------------------------------------------------------------
Especificacion CUA
-----------------------------------------------------------------------------------------
If save = True Then
‘ No vamos
a sacar el mensaje al añadir registro
if acction
<> 5 then ‘ No es Addnew
mensaje$
=”Los datos han sido modificados” + chr(13)
mensaje$
= mensaje$ + “Desea Grabarlos?”
k% =
MsgBox(mensaje, 4,”Atencion:”
if k%
= 7 Then ‘Si es que no
save = false
Data1.updatecontrols
End if
End if
End if
end sub
El evento Validate se produce si desde el programa realizamos un Data1.Recordset.Update, en cambio, no ocurre si lo que realizamos es un Data1Updaterecord
Aunque controlemos muy bien el tipo de datos que vamos a grabar en la base de datos es muy posible que topemos con problemas debido a las normas de diseño de la base de datos.
Por ejemplo el tema de las claves duplicadas puede generar errores si el usuario intenta dar de alta una clave que ya existe. Tradicionalmente, en muchos lenguajes de programación se utilizan algoritmos de búsqueda previa para evitar el choque de dos claves principales idénticas.
En VB podemos utilizar un
manejador de errores a posterioris. En evento Error atrapa los errores
de este estilo que puede producirse con el Datacontrol. El siguiente ejemplo
se emplea para las claves duplicadas:
Sub Data1_Error(DataErr
as integer, response as integer)
Const NOACTUALIZA
=3164
Const CLAVEDUPLI
=3022
Const QUITARMENSAJEVB
= 0
Select Case DataErr
Case NOACTUALIZA
Mensaje$
= “No se puede actualizar el registro”
Case CLAVEDUPLI
Mensaje$
= “La clave ya existe”
Case Else
Mensaje$
= “Se ha producido un error”
End select
K% = Msgbox(mensaje$,16,
“Error:”)
Response = QUITARMENSAJEVB
Data1.Updatecontrols
End sub
DataErr: Proporciona el numero
del error que se ha producido.
Response: Sirve para especificar
que tipo de reacción queremos en nuestro programa. Si le suministramos
un cero no se mostrara el mensaje de error, aunque se atrape el error.
Si le suministramos 1, el mensaje de error se mostrara tras la rutina de
mensaje de error.
En este evento se produce justo en la accion y el momento contrario. Al realizar una operación de lectura, en el preciso momento en que seleccionamos un registro diferente, los datos del registro se leen del disco y antes de que pase a los controles se dispara el evento Reposition. Este evento se genera cada vez que se reposiciona el puntero de lectura de la tabla en un registro diferente.
Este evento puede servir para dos cosas:
1- Puede informar de cuando
se produce un cambio de registro, con lo que se puede inicializar de nuevo
nuestro control y menus de aplicación.
2- Puede ayudar para ocultar
datos antes de que aparezcan en los controles.
Veamos esto tomando como ejemplo la base de datos Biblio.mdb y en ella la tabla autores. Supongamos que los autores cuyo numero es inferior a 10 no tienen libros a la venta por lo que no vale la pena ponerlo en pantalla:
Sub Data1_Reposition
()
If Data1.Recordset.Fields(“ID_AUTOR”)
.value < 10 Then
Data1.Recordset.MoveNext
If Data1.Recordset.EOF
Then
Data1.Recordset.MoveFirst
End if
End if
End sub
Otro caso en que son utiles estos eventos esta detallado en el siguiente ejemplo:
Imaginemos que tenemos un boton de dar de alta registros en nuestra aplicación. Junto a el se coloca otro boton para borrar registros. Al dar de alta un registro deberemos volver a activar el estado del boton para permitir que el usuario tome la decision de borrar el nuevo registro que tiene ante si.
Para volver a validar el boton de borrar, bastara con coloar el siguiente codigo dentro del evento de Reposition de neusto DataControl:
Sub Data1_Reposition
()
Botonborrar.visible
= True
Botonborrar.Enable
= True
End sub
Existe otra situacion mas en la que los eventos Reposition y Error pueden resultarnos utilies. Cuando un DataControl esta vinculado a un TextBox y la tabla ete vacia al hacer clic sobre cualquier de las flechas de movimiento del DataControl obtenemos el siguiente error:
No Current Record
Este error puede darse tambien cunado se introduce texto en un Textbox y se ejecuta Addnew o edit con la tabla vacia. Por otro lado, el error resulta imposible de atrapar con la sentencia ON ERROR al producirse repetitivamente el mismo error.
El programa no sabe que la tabla esta vaica hasta que se produce la actualizacion automatica. Dicha actualizacion automatica se produce cuando se hace clic en la flecha cdle control o cuando se introduce texto y se fuerza un Addnew o un edit.
Cuando la tabla no esta vacia, la actualizacion automatica- tal como la realiza el Datacontrol- resulta de gran interes, pero cuando esta vacia cuasa un erro de No Current Record. El error radica en que el Recordset subyacente no contiene ningun registro.
Debe ejecutarse Addnew para crear un registro en curso antes de cualquier otra accion que pueda provocar una actualizacion automatica. El momento ideal para ejecutar el Addnew es antes de permitir al usuario que haga cic sobre el Datacontrol o que entre texto en un TextBox vinculado con dicho Datacontrol.
Por ejemplo, ponga la propiedad Enable de la caja de edicion de texto en False al principio del programa. Tras ello, oblique a que el usuario pulse un boton del Form que ejecute el metodo Addnew antes de validar el DataControl y sus cajas de edicion de texto correspondiente.
Al cambiar de registro,
detectando dicho cambio con el evento Reposition, ya puede volver a vaildar
los controles y los botones necesarios par el normal funcionamiento de
la aplicación. Este comportamiento viene determinado por el diseño
del propio Datacontrol.