Después de tener una forma de acceder a la visualización de todos los datos de la tabla a través de dbDatVisitas y otra para acceder a uno en concreto con las cajas de texto y botones diseñados anteriormente, una forma de situarse en un registro en particular, aparte de usando en botón cmdBuscar, sería accediendo a la totalidad de los registros a través de dbDatVisitas y una vez situados en el que se desee haciendo doble click sobre él presentar todas las cajas de texto y botones ya diseñadas y con los datos del registro seleccionado, para hacer esto, en primer lugar convendría colocar en un contenedor, por ejemplo un control frame las cajas de texto y botones para visualización de registros, este frame diseñarle con la propiedad Visible a False y cuando se hace el doble click en en dbgrid se hace visible el frame e invisible el dbgrid.
Lo hacemos así: Creamos un control llamado fraData con la propiedad Visible a False, dentro del cual pegamos las etiquetas, botones, cajas de texto, etc., usadas para la visualización de los registros.
El evento Dbclick del control dbDatVisitas queda con el siguiente código:
Con esto, al hacer doble click en tiempo de ejecución sobre dbDatVisitas, en primer lugar se hace una llamada al procedimiento `Edicion´ que edita en las cajas de texto los valores de los campos del registro en el que estemos situados, que será aquél sobre el que se hizo el doble click, y luego se hace Visible el control fraData y se esconde dbDatVisitas para situarnos en la pantalla de edición del registro.
Toda la ejecución del ejercicio se ha realizado hasta ahora a partir de un control Data con la propiedad RecordsetType a Table, y accediendo a una tabla ya creada dentro de una base de datos. Ahora vamos a usar un nuevo control Data con la propiedad RecordsetType en Dynaset para acceder ya no a una tabla sino a una `consulta´ de una tabla.
En la base de datos Visitas.mdb, además de la tabla de Personal, hay otra tabla llamada Visitas. Supongamos que esta base de datos se está usando para llevar el control de las personas que visitan un museo, dando de alta en la tabla Personal a los nuevos visitantes y en la tabla Visitas las veces que cada visitante accede al museo, así las tablas estarán relacionadas por un campo común, el Nif, de esta forma cuando un visitante llega al museo se teclea su Nif, accediendo a sus datos personales en caso de haber realizado alguna visita anterior y dando de alta los datos de la nueva visitas. Si por el contrario es la primera visita realizada entonces hay que dar de alta tanto los datos personales como los de la visita. No podrá añadirse ningún registro a la tabla Visitas con un determinado Nif, mientras este Nif no esté dado de alta en la tabla Personal.
Los campos de la tabla Visitas, serán: Nif, PrecioVisita, DuraciónVisita, FechaVisita, TipoDiaVisita.
Para completar el ejercicio añadiremos dos controles Data nuevos y dos nuevos botones, para acceder a la tabla Visitas y dar de alta las nuevas visitas que se vayan produciendo y para acceder a una consulta de las tabla Visitas en la que estén sólo las realizadas por un determinado Nif.
Los dos nuevos botones se crean dentro del control fraData, y tendrán las siguientes propiedades:
Botón para alta de visitas:
Caption: Nueva Visita
Name: cmdNuevaVisita
Botón para consultar visitas:
Caption: Consultar Visitas
Name: cmdConsultaVisitas
|
1. Access con Visual Basic Microsoft Access con Visual Basic , aprende a crear una base de datos en Access... [01/07/09] |
13.316 | ||||
|
2. Informática. Visual Basic ¿Necesitas que tu sistema de login te recuerde tu nombre de usuario y contraseña?... [12/04/11] |
6.769 |
|
|||
|
3. Visual Basic. Programación con aplicaciones MDI Programación en Visual Basic 6.0 . Hoy tenemos un vídeo- tutorial de Visual Basic... [02/12/10] |
3.084 |
|
|||
Cursos para compartir lo que sabes
