VAMOS A CREAR UN EJEMPLO DE PRINCIPIO A FIN EN EL CUAL APLICAREMOS LAS FUNCIONES DE LAS BASES DE DATOS COMO SON
ALTAS
BAJAS
CONSULTAS
MODIFICACIONES
PARA ELLO LA INTERFAZ SERA EN VISUAL BASIC 6.0 Y SE CONECTARA A UNA BASE DE DATOS EN ACCESS 2007
TENEMOS QUE CREAR UNA CARPETA EN “C” QUE SE LLAME EJEMPLO PARA QUE EN ELLA PONGAMOS TODOS LOS ARCHIVOS QUE OCUPAREMOS COMO PUEDEN SER FOTOS, VIDEOS, ARCHIVOS VB6.0, LA BASE DE DATOS EN ACCESS ENTRE OTROS.
EMPEZAREMOS CON EL PRIMER TEMA
Moverse por los registros de un Recordset
Recordset, que contiene todos los datos que se leerá de una base de datos o que enviará a la misma. Un Recordset puede incluir varias filas y columnas de datos. Cada fila es un registro y cada columna es un campo del registro.
Sólo podrá acceder simultáneamente a una fila, la denominada fila actual o registro actual. Podrá examinar un Recordset modificando el registro actual.
CREAREMOS UNA BASE DE DATOS EN ACCESS 2007 QUE SE LLAMA AGENDA Y ES LA QUE OCUPAREMOS EN NUESTRO EJEMPLO
Le damos crear una base de datos en blanco
La guardaremos en la carpeta que anteriormente se creo C:\Ejemplo
DONDE DICE 
LE DAMOS BOTON DERECHO Y SELECCIONAMOS VISTA DISEÑO
LE DAMOS BOTON DERECHO Y SELECCIONAMOS VISTA DISEÑO
Le ponemos nombre a la tabla en este caso la tabla SE LLAMARA Contactos
Y TENDRA LOS SIGUIENTES CAMPOS
En este caso quedara así
Le ingresamos datos a la base creada
COMO DIJE ANTES EL TEMA ES:
Moverse por los registros de un Recordset
Una forma más elegante y profesional para visualizar los registros de un Recordset es moverse por el Recordset cada vez que sea necesario, es decir, avanzar o retroceder uno o varios registros.
Para tal fin, el objeto Recordset dispone de los métodos
MoveFirst (mueve al primer registro),
MovePrevious (mueve al registro anterior),
MoveNext (mueve al siguiente registro) y
MoveLast (mueve al último registro).
Para que pueda entender el correcto funcionamiento de estos métodos crearemos una aplicación que contendrá cuatro botones de comando que permitirán desplazarse por cada uno de los registros del Recordset.
Abrimos un nuevo proyecto en Visual Basic 6.0
PRIMERO QUE NADA TENEMOS QUE DAR DE ALTA EL DRIVE PARA PODER HACER LA CONEXIÓN DE ACCESS 2007 CON VB6.0
Ya dentro del proyecto en la parte superior izquierda selccionamos Proyecto y después Referencias
Buscamos la opción Microsoft Office 12.0 Acces DataBase Engine
La seleccionamos para que aparezca la paloma
La subimos con las flechas de prioridad y la ponemos debajo de OLE Automation como se muestra en la figura siguiente
Y también daremos de alta los siguientes
Y le das aceptar para guardar los cambios
La próxima vez que lo abras tiene que estar así (solo se mostraran estos registros seleccionados quizás será necesario seleccionar algunos mas pero ya seria cuestión de verificar los errores que aparezcan)
Inserte cuatro etiquetas y al lado de cada etiqueta una caja de texto. También, inserte cinco botones de comando en la parte inferior del formulario. Tal y como se muestra en la imagen siguiente
Establezca los valores necesarios para que los controles tengan la misma apariencia que laimagen anterior.
Haga doble en cualquier parte del formulario y en la sección general (no en el evento Load) escriba: (Esto es lo primero que va en el proyecto)
Ahora dentro del evento Form_Load() del formulario Escriba lo siguiente
Ahora de doble clic Dentro del evento Click del botón cmdPrimero y escriba lo siguiente
Ahora de doble clic Dentro del evento Click del botón cmdAnterior y escriba lo siguiente
Ahora de doble clic Dentro del evento Click del botón cmdSiguiente y escriba lo siguiente
Ahora de doble clic Dentro del evento Click del botón cmdUltimo y escriba lo siguiente
Ahora de doble clic Dentro del evento Click del botón cmdSalir y escriba lo siguiente
Inserción de registros en el Recordset
Para agregar nuevos registros al Recordset utilizamos el método AddNew. Para a ingresar nuevos registros a la base de datos crearemos un botón que se llame cmdNuevo y le pondremos “Nuevo registro”
Una vez creado el boton vamos a crear el evento clear () que es el que limpia los TextBox y escribimos lo siguiente
Crearemos el evento Visualizar_datos() que es para que cuando se conecte a la base de datos muestre la información contenida
También crearemos el evento Asignar_Datos () que es para que cuando creemos el botón guardar guarde la información a la base de datos
Le damos doble clic al botón cmdNuevo escribimos lo siguiente
Ahora crearemos el botón para guardar el nuevo registro que se llamara cmdGuardar y le pondremos Guardar Registro
Le damos doble clic al botón guardar y le pondremos el siguiente código
Modificacion de Registros en el RecordSet
La modificación de un registro consiste en la actualización de uno o más campos del registro que se
encuentra cargado en el Recordset. Esto es posible mediante el método Update del objeto
Recordset que permite la actualización simultanea de varios registros, utilizando la siguiente sintaxis:
Update [Campos], [Valores]
Campos: Este argumento es un tipo Variant que contiene el nombre de un campo, un índice de
campo o un array de nombres de campo o índices.
Valores: Este argumento es un tipo Variant que contiene un valor único o un array de valores. En este se deben especificar los nuevos valores que serán establecidos en el argumento Campos.
Practiquemos como actualizar un registro de nuestra base de datos agregando un botón de comando a nuestra aplicación que se llame cmdModificar. Escribe en la propiedad Caption el texto Modificar Registro.
Damos doble Click al boton modificar y escribimos
Eliminar el registro activo del Recordset
Podrá eliminar el registro actual cargado en el Recordset utilizando el método Delete mediante la
siguiente sintaxis:
rs.Delete [AffectRecords]
AffectRecords (Registros afectados) es opcional, si este se omite se borrará el registro actual. El argumento AffectRecords es utilizando cuando queremos borrar varios registros que resultan de una consulta realizada sobre la base de datos.
Practiquemos como eliminar un registro de nuestra base de datos agregando un botón de comando que se llame cmdEliminar. Escribe en la propiedad Caption escriba el texto Eliminar Registro.
De doble Click al botón eliminar y escribe lo siguiente
Ahora vamos a implementar Búsqueda de registros
El objeto Recordset dispone de un método muy sencillo que permite localizar un registro que
cumpla un determinado criterio de selección. Este es el método Find que tiene la siguiente sintaxis:
Find CriterioBúsqueda, [RegistrosOmitidos], [DirecciónBúsqueda], [Inicio]
CriterioBúsqueda es una cadena que contiene la condición de búsqueda, que constará de un
nombre de campo seguido de un operador y de un valor.
Los operadores que podrá utilizar son = (igual), < (menor que), > (mayor que) y LIKE (Patrón de coincidencia). El valor puede ser una cadena encerrada entre comilla, un número, el valor de una variable, el valor de un objeto o una fecha encerrada entre caracteres #.
RegistrosOmitidos es un número opcional que indica la cantidad de registros que se van a ignorar antes de comenzar la búsqueda.
DirecciónBúsqueda indica la dirección en la que se procesará la búsqueda; los valores admitidos son 1-adSearchForward (Búsqueda hacia delante, valor predeterminado) o 1-adSearchBackward
(Búsqueda hacia atrás).
Inicio es un marcador opcional que especifica el registro desde el que se debe comenzar la búsqueda, el valor predeterminado es el registro actual. Podrá omitir todos los parámetros excepto el primero, en este caso la búsqueda iniciaría desde el registro actual.
Para ello crearemos un botón que se llame cmdBuscar. Escribe en la propiedad Caption escriba el texto Busqueda de Registro.
Y creamos otro formulario que se llame Buscar Identifique los controles que se muestra en la siguiente imagen y establezca los valores necesarios en las propiedades requeridas.
Seleccione la primera caja de texto y en la propiedad Name escriba: txtBuscarTexto
Seleccione la caja combinada (ComboBox). En la propiedad List escriba los siguientes valores:
En el formulario principal le damos doble Click al botón y le escribimos el siguiente código
Ahora en el formulario Buscar hacemos doble click en cualquier parte del formulario y en la sección general (no en el evento Load) escriba: (Esto es lo primero que va en el proyecto)
Ahora dentro del evento Form_Load() del formulario Escriba lo siguiente
De doble Click en el botón Buscar Registro
Y escribimos el siguiente código
Y por ultimo creamos un botón que se llame cmdSalir
Damos doble Click en el Boton SALIR y escribimos el siguiente código
