A continuación, explicaremos cómo enlazar nuestros informes con la aplicación que estamos desarrollando. Pues bien basta con el siguiente código, por ejemplo en un botón de comando, para llamar a un informe generado:

Private Sub Command1_Click()
    Screen.MousePointer = vbHourglass
    Load rptLibrosPub
    Screen.MousePointer = vbDefault
    rptLibrosPub.Show vbModal
End Sub

De esta forma lanzaríamos el informe con todos los registros. Pero podemos también seleccionar una serie de ellos, que cumplan cierta condición. Por ejemplo, podemos seleccionar aquellos cuya compañía sea 'A SYSTEM PUBNS'.

Para ello, tendremos que obtener la sentencia SQL que define el comando generador. Lo hacemos pulsando con el botón derecho sobre el comando y pulsando la opción Información de jerarquía, Tal como vemos en la figura siguiente. Ahora bastará con copiar el contenido de la ventana y pegarlo en el código siguiente, y modificar la instrucción añadiendo en la cláusula Where el criterio que nos interesa.

Private Sub Command1_Click()
Dim Listado As ADODB.Command `Objeto de tipo comando
Dim Entorno As dteEntornoDatos `Nuestro entorno de datos
    Screen.MousePointer = vbHourglass
'Iniciamos el entorno de datos.
    Set Entorno = New dteEntornoDatos
    Entorno.Listados.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51; Data Source=  directorio donde se encuentra biblio.mdb"
    Set Listado = Entorno.Commands("acmLibrosPub_Grouping")
    Listado.CommandType = adCmdText
    Listado.CommandText = " SHAPE {SELECT Publishers.`Company Name`, Titles.Title, Titles.Comments FROM Titles, Publishers WHERE Titles.PubID = Publishers.PubID AND Publishers.`Company Name`='A SYSTEM PUBNS' ORDER BY Publishers.`Company Name`, Titles.Title}  AS acmLibrosPub COMPUTE acmLibrosPub, COUNT(acmLibrosPub.'Title') AS TotalLibros BY 'Company Name'"
    Load rptLibrosPub
    Screen.MousePointer = vbDefault
    rptLibrosPub.Show vbModal
End Sub

El resultado lo podemos ver a continuación.

Bueno, ya tenemos más o menos una idea de cómo funcionan los informes en Visual Basic 6.0.

Evidentemente, quedan algunas cosas por tratar y profundizar, pero creo que con paciencia y mucha dedicación, podremos hacer todo aquello que queremos conseguir, siempre y cuando nos lo permita la herramienta. Tal vez, esta forma que explicamos aquí, sea la más complicada para elaborar informes con DataReport, pero hasta ahora es la que conozco y con la que me he enfrentado, pero bueno para cosas sencillas no está nada mal.

Dejo a los lectores, el crear membretes en la cabecera de los informes, así como comentarios a pie de página, etc. Al igual que yo, cuando os enfrentéis a estos menesteres, os daréis cuenta cuán difícil resulta modificar un objeto dentro de un DataReport, al menos en la versión 2.0 de ADO que es la que manejo actualmente.

Veréis, qué complicado es por ejemplo, modificar la propiedad Caption de una etiqueta englobada en la sección de encabezado, pues no podemos (al menos yo no sé) hacer referencia a ella mediante su nombre, sólo es posible realizarlo mediante el índice que ocupa dentro de la sección, propiedad que tampoco podemos conocer en modo diseño o ejecución. Resumiendo, disponemos de una herramienta sencilla para informes sencillos, que no representen mucha complejidad. Ánimo a todos, tal vez alguien descubra una forma más cómoda de realizar informes con DataReport y puede ser que Microsoft mejore su interfaz y programabilidad.