La Web del Programador: Comunidad de Programadores
 
    Pregunta:  47653 - PASAR PARáMETROS DE UNA CONSULTA EN VISUAL A CRYSTAL REPORTS
Autor:  Laura
Hola. Os planteo mi duda y espero que podais resolvermelo.
Lo que quiero es lo siguiente: tengo una Base de Datos en Access con sus consultas. A la vez, tengo un programa en Visual Basic enlazado a esa base de datos, con sus formularios y demás. Cuando realizo consultas en un formulario de visual, ejecuto las que habia creado en access. Una vez hecho esto, me presenta un informe en Crystal Reports. La cuestión, es que en una de esas consultas lo que quiero obtener es una serie de información que esté comprendida entre 2 fechas que yo introduzco como parámetros.
Quiero que esos parámetros me aparezcan en el informe, es decir, pasarlos de alguna forma que no se. Por ejemplo:
- Estoy en Visual, me pide las fechas e introduzco 01/01/06 y 31/01/06
- Doy a que haga el informe correspondiente y quiero que aparezca:
INFORME..............
ENTRE 01/01/06 Y 31/01/06
Esas 2 fechas serían los parámetros que yo he introducido. Como no los tengo como n campo en la tabla de Access ni en la consulta los guardo ni nada, ¿cómo hago para que aun así me aparezcan?
Siento si no me se explicar muy bien que digamos.

  Respuesta:  Javier Duran
No sé si te sirve aún...pero de todas maneras hago mi aporte a tu problema.

Report.ParameterFields.Item(1).ClearCurrentValueAndRange
Report.EnableParameterPrompting = False
Report.ParameterFields.Item(1).AddCurrentValue sDatosParametro

Saludos

  Respuesta:  Marlon Barrientos
No se si te entendi bien, pero si lo que queres es que esas fechas que usas como parametros te aparezcan en el reporte del Crystal, lo que tener que usar en lo siguiente:

CrystalReport1.ParameterFields(0) = "fechaini;" & fechaini & ";TRUE"
CrystalReport1.ParameterFields(1) = "fechafin;" & fechafin & ";TRUE"

Este código se pone en el visual en la parte del reporte, y en el crystal tener que crear dos parametros que se llamen fechaini y fecha fin y los colocas en el informe donde queras..
marlon.