Crear un conexion data report en visual basic 6.0

Paso 1 - Crear la base de datos
• Abrir el Access y crear una base de datos llamada veterinaria.mdb.
• Crear cinco tabla llamadas Clientes, entradas, Salidas, Proveedores, Productos
• En la tabla de Clientes añadir cinco campos: Referencia tipo numero, Nombre tipo texto, Dirección tipo memo , teléfono tipo numero, Email tipo memo
• Añadiralgunos datos
• Ubicar la base de datos en la carpeta del proyecto de visual basic.
 [pic]
Añadir el Datareport y Crear el reporte.
Pasos
• Iniciar un nuevo proyecto en visual basic 6.0 y guardarlo en la carpeta donde estaba ubicada la base de datos creada anteriormente
• Añadir un reporte desde el menú Proyecto, seleccionando la opción DataReport.
[pic]• Seleccionar el Reporte y cambiarle el nombre a ReporteClientes. Desde el menú Explorador de proyecto se verá algo similar al siguiente gráfico:
 
[pic]
La vista del reporte está dividida por secciones:
• Encabezado del informe
• Encabezado de la página
• Detalle (Donde se visualizarán los datos de la bd)
• y el pie de página. [pic]

Al añadir un reporte al proyecto, en el Cuadro de controles de visual basic, ahora se añadió automáticamente una pestaña con controles para el DataReport.
Los controles se llaman: RptLabel, RptTextBox, RptImage, RptLine, RptShape y RptFunction).
Aunque en este ejemplo solo se usarán los RptLabel y RptTextBox. El primero para usarlo en la sección de Encabezados, y los textBox para mostrarlos registros de la base de datos.
 [pic]
Ahora en este paso se agregará un control rptLabel en la sección de Encabezado de reporte (El primero de todo). Para ello dibujar un rptLabel en dicha sección, si se quiere cambiarle el color de la fuente, el tamaño etc... Eso es opcional y se puede

Hacer desde la ventana de propiedades de vb y también en tiempo de ejecución. Para cambiar eltexto del rptLabel, utilizar la propiedad Caption
La vista quedará así
[pic]
Ahora en este paso se agregará un control rptLabel en la sección de Encabezado de pagina (El primero de todo). Para ello dibujar la cantidad de rptLabel en dicha sección, según los campos de la base de datos de clientes si se quiere cambiarle el color de la fuente, el tamaño etc... Eso es opcional y se puede hacerdesde la ventana de propiedades de vb y también en tiempo de ejecución. Para cambiar el texto del rptLabel, utilizar la propiedad Caption
[pic]

 

Por último agregamos un botón comando al diseño y lo nombramos cmdVR en Caption Ver reporte

[pic]

Y se codifica de la siguiente manera

Option explicit
Private Sub cmdVR_Click ()
reportclientes.Show
End Sub

EL BOTON COMANDONUEVO = cmdnue
Private Sub Cmdnue_Click ()
dataenviroment1.clientes.Add.new
End Sub

Private Sub cmdeli_Click ()
dataenviroment1.clientes.Add.Delete
Confirm = MsgBox (¡"Esta seguro, de eliminar este registro",!)
If comfirm = vbYes Then
dataenviroment1.clientes.Add.Delete
MsgBox = (" Record delete, vbokonly,)"mensaje"
Else
MsgBox =" Record delete, (vbokonly,"mensaje")
End If
End SubPASO 5 Se hace el visual el diseño del menú principal

[pic]
Para llamar los formularios se hace da la siguiente manera
Para ir del menú principal a los clientes

Private Sub Form_Load ()
frmmenuprincipal.Show
FRMCLIENTES
End Sub
Así se hace para cada formulario

Por último debemos evitar que cualquier persona ingrese a nuestro programa sin autorización entonces se diseña, unmenú de ingreso al que llamaremos login = frmlogin

[pic]

Damos clic en proyecto agregar modulo

[pic]

Y lo configuramos

Option Explicit

DefInt A-Z

Const ENCRYPT = 1

Const DECRYPT = 2

Const CLAVE As String = "Clave"

Const SECCION As String = "Clave"

'-----------------------------------------------------------------------

‘Acá inicia la aplicación...