Programacion

Como crear programas con BD (usando la referencia DAO)




Autor: Andrés Escobar (Analista y programador de sistemas)
Lenguaje: Visual Basic 6.0

Sincelejo – Sucre – Colombia








Contenido




Introducción
Para empezar...
Aspecto de los formularios
Crear y enlazar la base de datos

CÓDIGO DE LOS BOTONES DEL FORMULARIO “PRODUCTOS”

CÓDIGO DE LOS BOTONES DELFORMULARIO “VENTAS”

Relación Productos – Ventas

Conclusión


Recomiendo tener conocimientos básicos de VB y bases de datos para
poner en practica este manual.



Introducción


Es muy común el uso de controles para la creación de programas con bases de datos en VB, pero es mas eficiente escribir estos sin usar los controles (DataControl – ADOControl). Utilizando la referencia DAOpodemos obtener programas mas complejos y se les puede dar un mejor tratamiento para evitar los errores producidos por el usuario. Bueno menos charla y a programar... ; )



Para empezar...


Carga el VB y abre un proyecto nuevo (EXE Estándar).

Antes de diseñar el formulario o formularios y todo eso vamos a agregar la referencia DAO. Para hacer esto...




- Hacemos click en el menú...“Proyecto” > “Referencias...” y en cuadro que se muestra buscamos:
“Microsoft DAO 2.5/3.51 Compatibily Library”. Esta es una librería (de esas DLL...) que contiene objetos para Bases de Datos. Damos click en su casilla de verificación y “Aceptar”

[pic]

a continuación procedemos a diseñar los formularios...

Para este ejemplo vamos a crear un programa para llevar varios registros yrelacionarlos entre si. Será un programa para llevar los registros de un empresa con respecto a sus ventas y productos...



Aspecto de los formularios


El aspecto del formulario productos y del formulario Ventas y del formulario Principal debe ser mas o menos así:

Formulario Principal


[pic]


la imagen del formulario es opcional, solo le da un toque de elegancia y mejor aspecto depresentación. Debe tener 3 botones; 2 que nos den acceso a los demás formularios y 1 para cerrar el programa.


Los botones serán llamados:

bProductos – bVentas - bSalir






Formulario Productos



[pic]

Este formulario contiene:

4 botones llamados: bNuevo – bGuardar – bBuscar – bEliminar.

Para los 4 botones de desplazamiento crearemos una matriz de controles. (¿Cómohago esto?) fácil agrega el (1er) botón sobre el formulario, colócale por nombre btMover, y dale click derecho “Copiar”, luego “Pegar” y al mensaje que aparece “¿Desea crear una matriz de controles de btMover?”, dale click en “Si”, y continua pegando los otros 3 botones.

4 cajas de texto llamadas:
txNombProd – txValBru – txValCom – txCodigo.

Y 4 etiquetas...
Formulario Ventas


[pic]Este formulario esta formado por:
22 cajas de texto. Llamadas:
txNumFac- txCliente
(las del código)= txCod1-txCod2-txCod3-txCod4-txCod5
(las de la descripción)= txDes1- txDes2- txDes3- txDes4- txDes5
(las de cantidad)= txCant1- txCant2- txCant3- txCant4- txCant5
(las del valor unitario)= txVal1- txVal2- txVal3- txVal4- txVal5

Para el Total pon una etiqueta llamada lbTotal, su propiedadBorderStyle=2-Fixed y BackColor Blanco.

5 botones llamados:
bTotal-bNuevo-bGuardar-bBuscar-bEliminar. Los botones de desplazamiento son una matriz de controles “4 botones” (que ya te dije como hacer ;-) ), lleva por nombre btMover.



Para que el programa en si funcione...

Dale doble click al botón bTotal y escribe en su código...

Private Sub bTotal_Click()
Dim Subt1, Subt2, Subt3,Subt4, Subt5

Subt1 = Val(txCant1) * Val(txVal1)
Subt2 = Val(txCant2) * Val(txVal2)
Subt3 = Val(txCant3) * Val(txVal3)
Subt4 = Val(txCant4) * Val(txVal4)
Subt5 = Val(txCant5) * Val(txVal5)

lbTotal = (Subt1 + Subt2 + Subt3 + Subt4 + Subt5)

End Sub




Ahora si, dejemos de lado el diseño y hagamos la base de datos... ; - )





Creación de la Base de Datos


Has click en...