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.
Hay 12 opiniones. Opina sobre este curso.
| Cursos | Valoración | Alumnos | Vídeo | |
|---|---|---|---|---|
|
Apache + PHP + MySql + PhpMyAdmin como módulo de Apache Éste es un breve manual para una instalación rápida de PHP como módulo de Apache. Recuerda que el PHP también puede instalarse como CGI aunque no es el tipo de ... [18/01/05] |
|
8.788 | ||
|
Linux - Unix. Sistema operativo multiusuario (segunda parte) En esta segunda parte de nuestro curso de sistemas operativos Unix-Linux estudiaremos la estructura del sistema operativo, los archivos y directorios y los tipos de archi... [08/10/08] |
|
1.354 | ||
|
Restaurar fotografías con Photoshop Seguramente en alguna ocasión hemos tenido en nuestras manos alguna fotografía antigua en blanco y negro con algún tipo de deterioro por el paso del tiempo. En e... [26/01/05] |
|
55.353 | ||
Publicar en
del.icio.us
digg
meneame