Como Crear Una Base De Datos En Access Y Visual

Introducción

La combinación de Microsoft Access y Microsoft Visual Basic nos proporciona una excelente herramienta para la creación de bases de datos (Access) y su acceso (Visual Basic) que nos permite administrar nuestras colecciones de audio, libros, video, etc. este ejercicio nos permitirá concebir y construir bases de datos que se amolden a nuestras necesidades particulares, asumiendo que tienes conocimientos más que básicos de Visual Basic, sin más, manos a la obra.

Inicio de Visual Basic

a) Haz clic en el botón Inicio, señala Todos los programas.

b) Haz clic en Microsoft Visual Studio 6.0, Microsoft Visual Basic 6.0.

Inicio del Proyecto

a) Crea una carpeta que será exclusiva para el ejercicio se llamará: “mibasededatos” para guardar todos los componentes del proyecto.

b) Por el momento no haremos nada con el formulario de inicio.

Creación de la base de datos

a) Haz clic en el botón Complementos de la barra de herramientas.

b) Haz clic en Administrador visual de datos…

c) Y se abrirá el Administrador visual de datos (VisData (Visual Data Manager)).

d) Haz clic en Archivo, Nuevo…, Microsoft Access, MDB de la versión 7.0…

e) En la caja Seleccione la base de datos de Microsoft Access que desea crear, en Guardar en, busca y selecciona la misma carpeta –creada anteriormente- en donde se guardará el proyecto, en Nombre: escribe un nombre que identifique la base de datos (usualmente el mismo nombre de la carpeta) y haz clic en Guardar.

f) Ahora aparece nuevamente el Administrador visual de datos mostrando en la barra de título la ruta de acceso de nuestra base de datos y lista para empezar a trabajar.

Creación de las tablas de la base de datos

a) Haz clic con el botón derecho del ratón dentro de la Ventana de base de datos y haz clic en Nueva tabla.

b) En la caja Estructura de tabla, Nombre de la tabla: escribe el nombre de la tabla, para el ejercicio la tabla se llamará Alumnos, y haz clic en Agregar campo.

c) En la caja Agregar campo, Nombre: escribe el nombre del primer campo de la tabla que estamos creando, para el ejercicio agregaremos cuatro campos, a saber: matricula, nombre, carrera y turno.

d) En Tipo: selecciona el tipo de datos que contendrá el campo, en nuestro caso serán:

- campo: matricula, tipo de datos: long, tamaño: (automático)

- campo: nombre, tipo de datos: texto, tamaño: 50

- campo: carrera, tipo de datos: texto, tamaño: 50

- campo: turno, tipo de datos: texto, tamaño: 20

e) En Tamaño: selecciona la cantidad de caracteres (incluyendo espacios) que tendrá el campo (ver arriba) y haz clic en Aceptar.

f) Para agregar los otros campos de la tabla, haz clic en Agregar campo y repite los pasos desde el punto “c)” (Nombre, Tipo y Tamaño) para cada campo que tendrá la tabla.

g) Cuando hayas agregado los campos de la tabla haz clic en el botón Generar la tabla.

h) Y la tabla la podrás ver en el Administrador visual de datos (VisData).

i) Repite los pasos –desde el punto “a)” para cada tabla que tendrá la base de datos.

Introduciendo la información en las tablas

a) Haz clic con el botón derecho del ratón en la tabla recién creada de la base de datos y haz clic en Abrir.

b) Y se mostrará la caja Dynaset con el nombre de la tabla, en nuestro caso: Alumnos. Haz clic en Agregar para empezar a introducir la información en los campos del primer registro.

c) Cuando termines de introducir la información en la última caja de texto, haz clic en Actualizar. Repite los pasos para cada registro de la Tabla.

d) Repite los pasos para introducir la información para cada tabla de la base de datos.

Preparando los formularios

En un formulario de Visual Basic crea las etiquetas necesarias que correspondan –modificando su propiedad Caption- con los nombres de los campos de la tabla Alumnos, a saber, Matrícula, Nombre, Carrera y Turno.

Crea las cajas de texto –dejando en blanco su propiedad Text- necesarias para mostrar el contenido de los campos y un control Data, repite los pasos para cada tabla que tengas en tu base de datos.

Haz clic en el menú Proyecto, Componentes, selecciona el componente Microsoft FlexGrid Control 6.0 y haz clic en Aceptar. Ahora el objeto se halla en la Caja de herramientas, dibújalo en el formulario para que se vea más o menos como se ve abajo.

Creando la conexión con la base de datos y la tabla

1. Conectando el control Data

a) Selecciona el control Data y modifica sus propiedades como sigue:

b) DatabaseName: localiza la carpeta del proyecto y selecciona la base de datos (mibasededatos) en donde se halla la tabla.

c) RecordSource: selecciona el nombre de la tabla (Alumnos) cuyos campos se mostrarán en el formulario.

2. Conectando las cajas de texto

a) Selecciona una de las cajas de texto y modifica sus propiedades como sigue:

b) DataSource: selecciona Data1.

c) DataField: selecciona el nombre del campo de la tabla –que corresponda con la etiqueta correcta- que se mostrará en la caja de texto.

d) Repite los pasos con cada caja de texto del formulario y ejecuta el programa con F5.

e) En el formulario que conectaste a la base de datos, al hacer clic en el botón de avance del control Data se mostrarán los registros de la tabla.

f) Si no se pueden ver los registros de la tabla, significa que no se conectaron correctamente el control Data y las cajas de texto, simplemente revisa las conexiones una por una.

3. Conectando el MSFlexGrid.

a) Selecciona el objeto MSFlexGrid, en su propiedad DataSource selecciona Data1, modifica su propiedad Cols a 5, cambia su propiedad Rows a 5, opcionalmente puedes modificar sus propiedades de BackColor de la manera que más te agrade.

4. Este es el código del formulario:

Private Sub Form_Activate()

With MSFlexGrid1

For X = 1 To .Rows - 1

.Row = X

For J = 1 To .Cols - 1

.Col = J

.CellBackColor = IIf((X Mod 2) = 1, Val(&HC0FFFF), Val(&HC0FFC0))

.CellFontBold = True

.CellForeColor = &HFF0000

Next J

Next X

End With

End Sub

Private Sub Form_Load()

MSFlexGrid1.ColWidth(0) = 300

MSFlexGrid1.ColWidth(1) = 800

MSFlexGrid1.ColWidth(2) = 2500

MSFlexGrid1.ColWidth(3) = 2000

MSFlexGrid1.ColWidth(4) = 1100

End Sub

Private Sub Form_Unload(Cancel As Integer)

Cancel = 1

MsgBox "Haz Clic en Movimientos", vbInformation, "¡Aviso Importante!"

End Sub

Creando un Menú

En el formulario vamos a crear un menú llamado Movimientos con las siguientes opciones:

a) Haz clic con el botón derecho del ratón sobre el formulario y haz clic en el Editor de menús…

...