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 | |
|---|---|---|---|---|
|
Comunicación e informática. Historia y computación Comunicación, informática, computación, información... Todos estos conceptos se tratarán en este cu... [08/09/09] |
|
2.636 | ||
|
Componentes de los PC's Un PC está formado por diferentes partes y distintas unidades que componen un sistema físico complejo, este el hardware. Por otro lado tenemos el software, los programas,... [05/05/05] |
|
20.818 | ||
|
Holística informática Aprende con nuestro curso de holística informática, sobre los avances informáticos que te ayudará a actualizarte conociendo más acer... [28/04/09] |
|
1.214 | ||
Publicar en
del.icio.us
digg
meneame