Enlazar Una Base de Datos Access Con Visual Basic 6

ENLAZAR UNA BASE DE DATOS ACCESS CON VISUAL BASIC 6.0

1. Abrimos el programa Microsoft Access damos clic en el botón office y seleccionamos nuevo, nuevo, antes de darle nombre del archivo damos clic en la carpetita que está a un lado y nos abre la siguiente ventana.

En ella damos el nombre que queramos a nuestra base de datos en este caso: inscripción, y seleccionamos el tipo de base de datos formato 200-2003. 200-2003 . Damos aceptar y crear.

Enseguida creamos una tabla que se llame Alumnos

que contendrá los siguientes campos:

Nombre, Edad, Turno, Carrera, Semestre y Aula.

Después llenamos la tabla mínimo tres valores cualesquiera.

1

2.- Abrimos un nuevo proyecto en visual basic sobre la ventana de herramientas damos clic secundario y se abre la siguiente ventana en la cual seleccionaremos el control Microsoft ADO Data Control 6.0 y damos aceptar.

3.- Agregamos el Adodc al formulario.

4.- Como siguiente paso seleccionamos el Adodc1 y nos vamos a la propiedad Connection String y nos abre una primera ventana en la cual damos clic en Build

…

en seguida nos abre una segunda

ventana en la cual seleccionaremos de la pestaña Proveedor el Microsoft Jet 4.0 OLE DB Provider  como la siguiente imagen.

2

5.-Despues damos clic en la pestaña Conexión y desde ahí abriremos nuestra base de datos llamada inscripción, antes de dar aceptar ( importante!) damos clic en el botón probar conexión y si nuestra base de datos fue creada y conectada correctamente nos debe mostrar un mensaje de que la prueba de conexión fue satisfactoria, enseguida damos clic en aceptar como lo muestra la imagen.

3

6.- Seleccionamos nuevamente el Adodc1 y nos vamos a la propiedad Record Source y nos abre la ventana de Property Pages y seleccionamos la opción 2.adCmdTable

y en el siguiente

seleccionamos la tabla Alumnos de nuestra base de datos y damos aceptar, como se muestra en la siguiente imagen.

7.- Una vez de eso insertamos nuestras etiquetas (Label), en este caso serian 7 etiquetas, 6 cajas de texto y 6 botones con los nombres como la imagen lo muestra acontinuacion.

4

8.- Seleccionamos nuestra primer caja de texto (Text1), y vamos a la propiedad Data Source y seleccionamos la el Adodc1, y en Data Field seleccionamos nombre y asi sucesivamente con cada caja de texto hacemos lo mismo solo que en el Data Field seleccionamos lo que corresponda.

9.- Enseguida pasamos a programar cada uno de los botones

Botón Primer Registro Private Sub Command1_Click() Adodc1.Recordset.MoveFirst End Sub Botón Anterior Private Sub Command2_Click() Adodc1.Recordset.MovePrevious If Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveNext End If 

5

End Sub Botón Siguiente Private Sub Command3_Click() Adodc1.Recordset.MoveNext If Adodc1.Recordset.EOF Then Adodc1.Recordset.MovePrevious End If  End Sub Botón Ultimo Private Sub Command4_Click() Adodc1.Recordset.MoveLast End Sub Botón Nuevo Registro Private Sub Command5_Click() Adodc1.Recordset.AddNew End Sub Botón Guardar Registro Private Sub Command6_Click() Adodc1.Recordset.Update End Sub

6

10.- Al correr nuestro programa observamos que se encuentran los registros que yo agregue en mi base de datos aun en Access, inserto un nuevo registro y est e se almacena también en mi base de datos.

Primer Registro

Siguiente Registro

Nuevo Registro

7