Creación de Reportes con Active Data
Crystal Report 7.0

Fecha: 2003/12/30 (publicado 30/Dic/2003)
Autor: Darwin Loachamin.- [email protected]

La creación de reportes con conexión a la base de datos mediante ODBC, me ha dado resultados razonables, pero no efectivos, por la rapidez de presentación de datos para la impresión. No se si les ha pasado que solo para sacar 16 registros tiene que leer 186 registros, esto se debe a las relaciones en SQL en la parte del WHERE y el número de tablas en el FROM.
Para crear un reporte con active data, tienes que hacer lo siguiente:

- En Crystal escoje la opcion File New.- Standard .- Active Data.

- En la pantalla de Select Data Source elije Data Definition, luego New. En esta pantalla tienes que definir los campos que vas a enviar al crystal, es como crear los campos de una tabla. Toma en cuenta que desde Visual vas a enviar un objeto Resultset, y; los campos tienen que concordar en el tipo de datos con este.

- Al final guarda esta plantilla. (Se grabara con .ttx). Este archivo es un archivo plano muy sencillo.

Luego en Visual Basic aumenta esta función:

Public Function ImprimirCryRep(strsql As String, strpathrep As String) As Boolean

Dim rs As New ADODB.Recordset

On Error GoTo OcurrioError

Set Cryapp = CreateObject("Crystal.CRPE.Application")

Set CryReport = Cryapp.OpenReport(strpathrep)

rs.Open strsql, ConXAdo, adOpenDynamic, adLockOptimistic

Set reportDb = CryReport.Database

Set reportTables = reportDb.Tables

Set reportTable = reportTables.Item(1)

Call reportTable.SetPrivateData(3, rs)

Set repView = CryReport.Preview

ImprimirCryRep = True

Exit Function

OcurrioError:

ImprimirCryRep = False

MsgBox "Ocurrio un error: " & Err.Number & " " & Err.Description

End Function

La conexión a la base de datos se la realiza mediante ADO. Tu puedes conectar mediante ODBC, OLE DB Provider, o lo que te guste mas, pero en el diseño en Crystal no necesita que definas una conexión de base de datos como las anteriores.

En un modulo .bas debes añadir las siguientes variables:

'**********************************

'****OBJETOS PARA MANEJO DE CRYSTAL

'****REPORT 7.0

Public Cryapp As CRPEAuto.Application

Public CryReport As CRPEAuto.Report

Public reportDb As CRPEAuto.Database

Public reportTables As CRPEAuto.DatabaseTables

Public reportTable As CRPEAuto.DatabaseTable

Public repView As View

Se debe verificar que en Visual se haga referencia a: Crystal Report Engine 7 Object Library, que apunta a la librería: c:\windows\system\CPEAUT32.DLL.

No es necesario que se incluya el OCX de crystal.

Listo, esta la función, para que se pueda llamar y ejecutar. Lo que se debe enviar es: en la variable strsql la sentencia SQL de SELECT tomando en cuenta que los elementos del select deben concordar con el diseño del archivo .TTX, en el mismo orden que lo diseñaste. La variable strpath en la dirección donde esta el archivo .rpt del reporte.

Cualquier mejora en la función me la comunican.

Gracias.-