VB<->Crystal Report

Does any body know how to pass a paramter value to a stored procedure in crystal reports thru vb coding.

Moved from the CodeBank

This is the code for passing the items choose at runtime for searching in CR! (edit accordingly to make it work for your program) :)

Code:

---

' Create report instance. This is the class added to your project

' when you added the report to the project

Dim report As MyReport = New MyReport

 

' Fill data in DataSet here. Skip this step if your report is calling

' a stored procedure direct

Dim ds As DataSet = New DataSet

' ds = GetDataFromDatabase()

 

Dim crParameterDiscreteValue As ParameterDiscreteValue

Dim crParameterFieldDefinitions As ParameterFieldDefinitions

Dim crParameterFieldLocation As ParameterFieldDefinition

Dim crParameterValues As ParameterValues

       

'

' Get the report parameters collection.

'

crParameterFieldDefinitions = report.DataDefinition.ParameterFields

 

' Add a parameter value - START

crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName1")

crParameterValues = crParameterFieldLocation.CurrentValues

crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue

crParameterDiscreteValue.Value = "Parameter1Value" 

'if you want to choose the value from a combobox for example, just change the "Parameter1Value" to "cboName.selecteditem". So the selected item will be pass in.

crParameterValues.Add(crParameterDiscreteValue)

crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

' Add a parameter value - END

 

crParameterFieldLocation = crParameterFieldDefinitions.Item("@ParameterName2")

crParameterValues = crParameterFieldLocation.CurrentValues

crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue

crParameterDiscreteValue.Value = "Parameter2Value"

crParameterValues.Add(crParameterDiscreteValue)

crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

 

'

' Set report's DataSource. Skip this step if your report is calling a
' stored procedure direct in the report.

'

report.SetDataSource(ds)

 

'

' Set CrystalReportViewer.ReportSource

'

 

CrystalReportViewer1.ReportSource = report

---