pass parameters to Crystal Reports?

[Billy]

Hi,
I'm using Visual Basic 6.0 and Seagate Crystal Reports 8. I want to view a report called from Visual Basic. The report is made in Crystal Reports and has some parameters. Now, my question is: How can I pass parameters through Visual Basic to call my report.
Second problem: I open my report in the ActiveX viewer an I get the first page from my report. If I try to refresh my parameters, or if I try to go to the second page, I get the error : "Server has not yet been opened".
Please, need urgent help, desperate!!

Thanks very much,

Billy.

[Edited by Billy on 11-27-2000 at 02:46 AM]

[faisalkm]

You can use the 'selectioformula' property of the crystal report control to filter the data. In order to pass parameters the logic i use is to create a field(not a database field) and leave it as blank. In the crystal report write a query to include this value as a condition. And from vb assign a value to this field and then show the report

Faisal

[chrisa_uk]

heres some code that may help...


Dim m_objReport As CRAXDRT.Report
Dim m_objApp As New CRAXDRT.Application
Dim params As CRAXDRT.ParameterFieldDefinitions
Dim param As CRAXDRT.ParameterFieldDefinition

Set m_objReport = m_objApp.OpenReport("REPORTNAME", 1)

m_objReport.EnableParameterPrompting = False
m_objReport.Database.SetDataSource DATASOURCED
m_objReport.Database.Verify
m_objReport.ReadRecords

Set params = m_objReport.ParameterFields

For Each param In params
With param
.ClearCurrentValueAndRange
.AddCurrentValue EACHVALUEHERE
End With
Next

With lgfgReport
.ReportSource = m_objReport
.ViewReport
.Zoom 1
End With



Regards

Chris

[Billy]

Thanks. I tried the code, but then I get the error: "Server has not yet been opened". What exactly do you mean with 'DATASOURCED' and what is 'lgfgReport'?

[faisalkm]

Hey,

If u r using the crystal report control, then u should connect to the server using the connect property of the Crystal report control

[Billy]

I am using the 'Crystal Report Viewer Control'. This has no connect property. I'm making a connection as followes:
con = "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;Data Source=orcl"
con.ConnectionTimeout = 300
con.CommandTimeout = 300
con.Mode = adModeRead
con.IsolationLevel = adXactReadCommitted
con.CursorLocation = adUseClient
con.Open con, "userid", "password"
Set crxApp = New CRAXDRT.Application

If I call my report without trying to pass parameters, the CRViewer is showing the report. If I try to pass parameters with the following code, I get the error "Server has not yet been opened".

Set crxReport = crxApp.OpenReport("C:\path\report.rpt")
Set crxParameterFieldDefinitions = crxReport.ParameterFields
Set crxDatabase = crxReport.Database
Set crxDatabaseTables = crxDatabase.Tables
For Each crxDatabaseTable In crxDatabaseTables
Set DatabaseTable = crxDatabaseTable
Exit For
Next crxDatabaseTable
DatabaseTable.SetLogOnInfo "test", "test", "userid", "password"
For Each crxParameterFieldDefinition In crxReport.ParameterFields
Select Case crxParameterFieldDefinition.Name
Case "{?code}"
crxParameterFieldDefinition.ClearCurrentValueAndRange
crxParameterFieldDefinition.AddCurrentValue CStr(code.Text)
End Select
Next

Can somebody help me, please??

Billy

[chrisa_uk]

DATASOURCED should read DATASOURCE, this is the name of your recordset.

lgfgreport is the name of my report control.

EACHVALUEHERE should be replaced by your parameter values
(a different itteration loop could be used.

REPORTNAME is the path and name of your report.

Regards

Chris