CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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, 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. 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.
ISC GABRIELA IVONNE GARCIA MOLINA 1
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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.
ISC GABRIELA IVONNE GARCIA MOLINA 2
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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.
ISC GABRIELA IVONNE GARCIA MOLINA 3
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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.
ISC GABRIELA IVONNE GARCIA MOLINA 4
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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
ISC GABRIELA IVONNE GARCIA MOLINA 5
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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
ISC GABRIELA IVONNE GARCIA MOLINA 6
CECYTE Rio Grande INFORMATICA MODIII SUB3 Enlazar BDD con VB 6.0
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 este se almacena también en mi base de datos.
Primer Registro Siguiente Registro
Nuevo Registro
ISC GABRIELA IVONNE GARCIA MOLINA 7