Mensaje enviado por "Carlos Tineo" <ctineo@fundacite.arg.gov.ve>

Hola Listeros

>At 10:54 a.m. 29/11/99 -0400, you wrote:
>
>¿Como puedo especificar con el control crystal report la ruta de la BD o la
>Cadena de conexión desde Visual Basic en Tiempo de Ejecución?.

La forma más sencilla que conozco es asociando el control del crystal a un DataControl y a su vez este asociado con un recorset que se puede generar en tiempo de ejecución
algo así como:

cmdCambiaRecorset_click() 'Un boton ed comando por ejemplo
dim db as database
dim rs as recorset 'Ojo este ejemplo es valido para DAO aunque se puede modificar para trabajar con ADO

set db = set db = dbengine.OpenDatabase("mirutaMisdatos")
set rs = db.openrecordset("unatablaOunaSQL")
Set data1.databasename = db.name
set data1.recordset = rs
data1.refresh

' en este punto ya puedes mandar a ejecutar tu reporte.


De todas Maneras si no me supe explicar bien, un poco más abajo esta un mensaje de Luis Ja bastante bueno referente al tema
**********************************************************************
Como imprimir un Recordset en Crystal Report (CR 4.6)
Para que salga el contenido de un Recordset ( y no toda la base de datos), tenemos que hacer:
· Insertar un control Crystal Report en el formulario y un control Data
· Asignar la propiedad DataSource al Control Data que queramos
· En las propiedades del control CR, en la solapa Informe enlazado a datos, pulsar sobre "Guardar informe como ...", poner un nombre para el nuevo informe. Y seguir las instrucciones.
· En la solapa "General" del CR, asignar a la propiedad ReportFileName el fichero que hemos guardado en el paso anterior.
· Salir de "Propiedades de Crystal Report"
Una vez hecho esto, podemos modificar el fichero que hemos creado desde el Crystal Report, ponerle los campos que queramos....

Pasar parámetros al CR 4.6
Una vez preparado el informe (con CR), en el que hemos insertado una formula (o las que queramos) que hemos llamado "@Formula1", para ponerle a esta formula un valor desde VB tenemos que poner:
'Para pasar el parámetro
CrytalReports1.Formulas(0) = "Formula1= '" & "Aquí ponemos el parámetro" & "'"
'Para que salga el informe
CrytalReports1.Action = 1
NOTA: las comillas simples son necesarias para poder pasar una variable y el igual (=) debe ir pegado al nombre de la formula.
Saludos
Luis Javier

************************************************************

----------
Saludos desde Maracay-Venezuela
Carlos Tineo
ctineo@fundacite.arg.gov.ve (Preferente)
ctineo@yahoo.com
ctineo@geocities.com
ICQ: 26047721