Pasar parametros a crystal report desde VB 6

santiago
08 de Octubre del 2004
Saludos a todos, necesito un ejemplo para ver como se pasan los parametros desde visual basic a un reporte creado en crystal report 8

cmoraga
08 de Octubre del 2004
Aqui te mando este codigo de ejemplo, ojala te sirva


Private Sub reporte()


Dim miReport As New CRAXDRT.Report
Dim miCRApp As New CRAXDRT.Application
'Dim parametro1 As ParameterFieldDefinition
Set miReport = miCRApp.OpenReport("c:archivos de programaproyecto1medicalprueba.rpt")
Dim crParamDefs As CRAXDRT.ParameterFieldDefinitions
Dim crParamDef As CRAXDRT.ParameterFieldDefinition

Set crParamDefs = miReport.ParameterFields
For Each crParamDef In crParamDefs
Select Case crParamDef.ParameterFieldName
Case "Parametro1"
crParamDef.AddCurrentValue Text1.Text
End Select
Next







With CRView
.ReportSource = miReport
.ViewReport

.Visible = True
End With


CRView.Top = 0

CRView.Left = 0

CRView.Height = 8200

CRView.Width = 12000


'Set miCRApp = Nothing
'Set miReport = Nothing


'Form2.Show

'CReport1.Action = 1

End Sub