Pasos para vicular una base de datos a Visual Basic (SEMANA 36)
1. Inicializamos el programa y creamos una carpeta con el nombre BASE DE DATOS.
2. Damos clic en "ver" y le asignamos el nombre a la tabla como NOMINA.
3. Colocamos los campos como: NOMBRE, APELLIDO, SEXO, EDAD, CURSO.
4. Al tipo de datos del NOMBRE son textos y al tamaño del campo le ponemos 25 caracteres, igualmente al APELLIDO al tamaño del campo le ponemos 25 caracteres, de igual manera al SEXO y al CURSO al tamaño del campo le ponemos 25 caracteres, el tipo de datos de la EDAD son numeros y al tamaño del campo le ponemos 10 caracteres.
5.Guardamos la tabla y le ponemos el nombre, el apellido, el sexo, la edad, y el curso de las personas (minimo 5 personas).
6. Guardamos y cerramos.
7.Abrimos Visual Basic.
8. Realizamos el siguiente diseño.
9. Para poder vincular la base de datos con visual basic, nos dirigimos a las herramientas, damos clic derecho y elegimos componentes, se nos desplegara una ventana, en cual elegiremos la opcion de "Microsoft ADD Data Control 6.0 (OLEDB)" y aplicamos y cerramos.
10.Nos aparecera un icono que se llama "Adodc1" y configuraremos en propiedades, y nos aparecera una ventana y elegiremos la opcion de "Usar cadena de conexion" y generamos. Y nos aparecera otra ventana y elegimos la opcion "Microsoft Jet 4.0 OLEDB Provider" y damos en siguiente, nos aparecera otra ventana y seleccionamos nuestra base de datos y damos clic en "Probar conexion". Nos vamos a Origen de datos y elegimos en la opcion desplegable "adCmdTable", y nos saldra el nombre de la tabla y damos clic en aplicar y en cerrar.
11. Vamos a los textboxs y en la ventana propiedades en DataSource seleccionamos Adodc1, y en DataField y seleccionamos NOMBRE, en el segundo textboxs hacemos lo mismo pero elegimos APELLIDO, asi mismo en el tercer textbox, pero elegimos EDAD, de igual manera en el cuarto textbox pero elegimos SEXO, y de igual forma en el quinto textbox pero elegimos CURSO.
12. En los 6 botones le colocamos los siguientes codigos:
NUEVO
Adodc1.Recordset.AddNew
GUARDAR
Adodc1.Recordset.Update
ULTIMO
Adodc1.Recordset.MoveLast
ELIMINAR
Adodc1.Recordset.Delete
SIGUIENTE
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MovePrevious
End If
ANTERIOR
Adodc1.Recordset.MovePrevious
If Adodc1.Recordset.BOF Then
Adodc1.Recordset.MoveNext
End If
13. Ejecutamos el programa.
Comentarios
Publicar un comentario