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:

Ejemplo:

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

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.

Permite descargar un formulario de la memoria. Se introduce junto al nombre del formulario que se va a descargar:

Si se esta dentro del mismo formulario para descargarlo no hace falta colocar el nombre sino únicamente:

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:

Se debe colocar una admiración "!" entre el formulario y el control y un punto entre el control y la propiedad

Ejemplo:

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:

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:

• Invocar al evento Clic del botón de comando en el código:

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

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.

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.

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 :

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.

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.

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:

Ejemplo de lo anterior es son las siguientes intrucciones:

Sub Button1_Click ()

Sub Button1_Click ()

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.

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:

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:

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:

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.

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.

* Un objeto Recordset representa los registros de una tabla base o los registros que se generan al ejecutar una consulta.

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.

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.

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.

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.

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.

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.

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.

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.

EJEMPLO DE DELETE

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.

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:

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:

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.

Si el nombre del campo es compuesto utilizaremos

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

 

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ó:

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: