Crystal Report - pasar parametros crystal 8.0 y vb6.0

Tengo un informe en crytal 8.0 y necesito filtrar los datos por parametros de fecha inicial , fecha final y nombre(texto) como lo puedo hacer para pasarselo desde un formulario de VB 6.0 para que cuando abra el reporte no me aparesca el formulario del crystal pidiendome los parametros, he tratado con un codigo que aparece, pero igual se abre el formulario del crystal y no me toma los de formulario hecho en VB 6.0
espero que alguien me pueda ayudar, lo necestito con urgencia

Tengo el mismo problema, si alguien sabe como que envie un codigo de ejemplo

Hola, yo tenia el mismo problema y lo resolvi asi, tengo visual 6 y crystal 10.

Y solo mande llamar el modulo


' Módulo agregado para ejecutar un reporte de Crystal desde la aplicación
' y exportarlo a formato PDF de forma transparente para el usuario - 18 Abril 206

Option Explicit

'Objeto que representa una instancia del programa Crystal Reports.
Private crApp As New CRAXDDRT.Application

'Objeto que representa el reporte que deseamos abrir.
Private crReport As New CRAXDDRT.Report

'******* Declarar todos los parametros a utilizar en el reporte
Private SC_Costos As String
' C_Costos
Private STipo_Nomina As String
' Tipo_Nomina
Private IAno As Integer
' Ano
Private IPeriodo As Integer
' Periodo

' Función principal que ejecuta el reporte tomando como entrada los parámetros que
' necesita el reporte de Crystal
Public Sub EjecutarReporte(PSArchivo_Nombre As String, PSC_Costos As String, PSTipo_Nomina As String, PIAno As Integer, PIPeriodo As Integer)
Dim crParamDefs As CRAXDDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDDRT.ParameterFieldDefinition

On Error GoTo Problemas

SC_Costos = PSC_Costos
STipo_Nomina = PSTipo_Nomina
IAno = PIAno
IPeriodo = PIPeriodo

' Abrimos el reporte, el segundo parámetro del método OpenReport es opcional, un 1 indica que queremos abrir el reporte de manera exclusiva, un 0 indica que queremos crear una copia temporal y trabajar con ella.
Set crReport = crApp.OpenReport(App.Path & "\Hrs_hombre_trabajadas.rpt", 1)

' Parametros del reporte
Set crParamDefs = crReport.ParameterFields

' Hacemos una iteración por la colección de parámetros para asignarle un valor
' a cada uno de ellos. Dentro del ciclo usamos la estructura Select Case para
' evaluar el nombre del parámetro, el cual está contenido en el miembro
' ParameterFieldValue del objeto crParamDef. Cabe aclarar que para la cláusula
' Case debemos usar exactamente el mismo nombre que le dimos a cada parámetro
' dentro de Crystal Reports.
' El método AdCurrentValue es el que propiamente asigna el valor que le pasemos
' como parámetro al parámetro en sí.

For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "C_Costos"
crParamDef.AddCurrentValue (SC_Costos)
Case "Tipo_Nomina"
crParamDef.AddCurrentValue (STipo_Nomina)
Case "Ano"
crParamDef.AddCurrentValue (IAno)
Case "Periodo"
crParamDef.AddCurrentValue (IPeriodo)
End Select
Next

Call Exportar(PSArchivo_Nombre)

Set crParamDefs = Nothing
Set crParamDef = Nothing

Exit Sub

Problemas:

MsgBox "Se presento el siguiente problema: " & VBA.Err & ": " & _
VBA.error, vbCritical, App.Title & " Versión " & App.Major & "." & App.Minor & "." & App.Revision & " - Problema Interno"

Screen.MousePointer = vbDefault

End Sub

facil

asi
Report.Connect = m_objFormParameters.m_strConnectionString
Report.ReportFileName = App.Path + "\reporte_actividad.rpt"
Report.StoredProcParam(0) = m_objFormParameters.m_strLogin
Report.StoredProcParam(1) = strDesde
Report.StoredProcParam(2) = strHasta
Report.WindowState = crptMaximized
Report.WindowTitle = "Reporte de Cobro a Proveedor"
Report.Destination = crptToWindow
Report.Action = 1

mas simple seria

report.ParameterFields(1).AddCurrentValue Trim(frmGeneralesUnidad.txtFechaEntrada.Text)

otro

report.ParameterFields(1).AddCurrentValue "hola"

espero y te halla ayudado a despejar tu duda

Muchas gracias funcion'o perfecto y la forma mas simple

Fantastico!!!

Gracias!

Consulta, utilizando el .StoredProcParam() le asigno un valor y cuando lo corro obtengo el siguiente mensaje
"El tipo de valor especificado es diferente al tipo de valor actual."
Utilizo VB6 SQLSERVER Y CR8

Este es el codigo en visual

CRGuar.StoredProcParam(0) = Texto(cDESDE)
CRGuar.StoredProcParam(1) = Texto(cHASTA)
CRGuar.ReportFileName = gpCrystalPath & "GuardiaDestinoPacientes.rpt"
CRGuar.Action = 1

' He intentado enviar el el valor como fecha, como texto, como varian y siempre obtengo lo mismo, les adjunto el store a ver si en una de esas ahi esta el inconveniente.

ALTER PROCEDURE LstDestinoPacientesGuardia
@fingreso varchar(10),
@fegreso varchar(10)

AS

SELECT
Guardia."F_Ingreso" ,
Guardia."F_Egreso",
Guardia."Observaciones_Motivo_Egreso" as Observaciones,
Destino_Paciente."Descri" as Destino,
MEDICOS."Descri" as Medico,
SERVICIOS."Descri" as Servicio,
Diagnosticos_Guardia."Descri" as Diagnostico,
Guardia."Codi" as Codigo,
Guardia."Ape" as Apellido,
Guardia."Nombre"
FROM
{oj ((("CLINICA"."dbo"."Guardia" Guardia INNER JOIN "CLINICA"."dbo"."Diagnosticos_Guardia" Diagnosticos_Guardia ON Guardia."Diagnostico" = Diagnosticos_Guardia."Codi")
INNER JOIN "CLINICA"."dbo"."MEDICOS" MEDICOS ON Guardia."Medico" = MEDICOS."Codi")
INNER JOIN "CLINICA"."dbo"."SERVICIOS" SERVICIOS ON Guardia."Servicio" = SERVICIOS."Codi")
INNER JOIN "CLINICA"."dbo"."Destino_Paciente" Destino_Paciente ON Guardia."MotivodeEgreso" = Destino_Paciente."Codi"}
where
Guardia.F_ingreso >=Convert(date, @fingreso) and
Guardia.F_Egreso <= Convert(date,@fegreso)
ORDER BY
Destino_Paciente."Descri" ASC ,
SERVICIOS."Descri" ASC

POr favor, si pueden espero su ayuda.., DEsde ya gracias

El tema con las fechas es el formato, di bastantes vueltas con este tema el formato que me hacepto ok es el siguiente:

Crystal.StoredProcParam(0) = Format(dtpFechaDesde.Value, "YYYY-MM-DD 00:00:00.000")
Crystal.StoredProcParam(1) = Format(dtpFechaHasta.Value, "YYYY-MM-DD 23:59:59.999")

fue la unica manera que me funciono, saludos !

Prodrias ayudarme como diseño una instruccion desde visual basic para pasar un parametro a un repòrte en crystal report y la informacion que se vera en el reporte sea en base a ese parametro; por ejemplo una cedula y ver los datos de la persona perteneciente a esa cedula solamente

Muchas gracias

Me marca error en la linea
Roport.Action = 1

el error dice:
Error 20525 en tiempo de ejecucion:
Unable to load report.

Mi ambiente de desarrollo es

Win XP SP3
VB6
Crystal 11
SQL Server 2005
Utilizo el componente CrystalReport

Hola, tengo un problema para imprimir el reporte hecho en Crystal Reports 8.5 desde VB6.0.
Cuando lo trato de imprimir me dice Error: 20599 cannot open sql server, y este es el cód que uso para imprimirlo:

repImprime.ReportFileName = gsRuta & "Evaluacion.rpt"
repImprime.Connect = db '"DSN = Compras;UID = " & gsCodUsr & ";PWD =" & gsClave & " ;DSQ =Compras"
repImprime.Destination = 0 'Ver por Pantalla
repImprime.WindowMaxButton = True
repImprime.Action = 1

La conexion que se hace a Crystal con la base de datos es la misma que usa un usuario para conectarse cierto???
ahi les puse lo que trae la variable db para que lo vean.

si pueden ayudarme se los agradezco!!!

<h1>holaa</h1>