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

Entradas más populares de este blog

Pasos para crear un formulario. (SEMANA 22)

Pasos para crear una calculadora a grados (SEMANA 33)

Practicas en Visual Basic 6.0