Crystal Report 9.0 and VB6

[ankeet1]

Hi All,
I know this question has been posted many times. But I could not get a specific answer for my confussion.

I am creating reports using Crystal. All is good until the stored proc (SQL 2000) requires a parameter.

How do I write a generic function in VB6 that will open the selected report and pass the required parameters. Would I still have to go through the ado connection stuff etc.?

RobbDog, I did see the link in your signature, but that does not answer my above question.

Also, is there any tool that will let me convert my Access reports to CR9 reports?

Thanx all for your help.

[Hack]

How do I write a generic function in VB6 that will open the selected report and pass the required parameters. Would I still have to go through the ado connection stuff etc.?

Rather than messing about with CR parameters, I just pass it the result of a recordset that I've created based on an SQL query.

Also, is there any tool that will let me convert my Access reports to CR9 reports?

No, not that I know of. Those reports will all have to be converted manually.

[RobDog888]

If you do use a generic function to open your report you will have to use the Parameters collection to add each parameter to the collection. Then set the DataSource and open. You will have to keep track of which report requires which parameters, etc.

[circusfit]

lol...this may be late but it should work.

'===================================================================================
'Create the Crystal Reports Objects
'===================================================================================
If Not IsObject(oApp) Then
    Set oApp = CreateObject("CrystalRuntime.Application")
End If
 
' CREATE THE REPORT OBJECT
'
'The Report object is created by calling the Application object's OpenReport method.
 
Dim Path
Dim reportname
 
Path = "**YOUR PATH**"
reportname = "**YOUR REPORT.rpt**"
 
'OPEN THE REPORT (but destroy any previous one first)
 
If IsObject(oRpt) Then
    Set oRpt = Nothing
End If
 
Set oRpt = oApp.OpenReport(Path & reportname, 1)
 
oRpt.MorePrintEngineErrorMessages = False
oRpt.EnableParameterPrompting = False
 
'Now we must tell the report to report off of the data in the recordset:
 
oRpt.DiscardSavedData
 
'Pass parameters to the report
 
'set up begin and end date to be the first and last days of the previous week
 
oRpt.ParameterFields(1).AddCurrentValue ***YOUR PARM***
 
Dim dbTable
 
' login to each of the report's tables
For Each dbTable In oRpt.Database.Tables
    dbTable.SetLogOnInfo "**SERVER Connection**", "***DATABASE***", "**USER**", "**PASSWORD***"
Next
  
oRpt.ReadRecords
 
'====================================================================================
' Exporting the Crystal Report
'====================================================================================
 
outputPath = "**OUTPUT FILE PATH**"
outputfilename = "**OUTPUT FILE**"
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
'delete final backup target file if it exists
If fso.FileExists(outputfilename & outputPath) Then
    fso.DeleteFile outputfilename & outputPath
End If
 
ExportType = 31
 
'These lines collect the values passed from the calling HTML page for the export
'type and filename
 
'ExportOptions = oRpt.ExportOptions
 
'First we create an export options collection which allows us access
'to the exporting properties of the automation server.
 
oRpt.ExportOptions.DiskFileName = outputPath + CStr(outputfilename)
 
oRpt.ExportOptions.FormatType = CInt(ExportType)
 
'This line sets the file type that the report will be exported to. We
'use the value that we collected from the calling HTML page.
 
oRpt.ExportOptions.DestinationType = 1
 
'This line sets the destination of the exported file. 1 means that
'we are writing the file to disk.
 
On Error Resume Next
 
oRpt.Export False
 
If Err.Number <> 0 Then
    'MsgBox  "Error Occurred Exporting Report: " & Err.Description & Err.number
    oRp = Nothing
    oApp = Nothing
Else
        If IsObject(oPageEngine) Then
         Set oPageEngine = Nothing
        End If
    Set oPageEngine = oRpt.PageEngine
End If
End Sub

Edit: Added [vbcode][/vbcode] tags and indentation for clairty. - Hack

[ankeet1]

Circusfit,
I just looked up your reply. I was caught up in a different project and now i am back to this project.

I will definitely give it a shot. THe way you have written the code, i am almost sure that this should be the solution to my question!

Thanks a lot.

[Hack]

One thing. In the Err.Number section, you need to use Set to destroy the objects.

oRp = Nothing
    oApp = Nothing
'needs to be
Set  oRp = Nothing
Set  oApp = Nothing

[ankeet1]

Set oApp = CreateObject("CrystalRuntime.Application")

I get the following error at the above line:
Run-time Error 439.
ActiveX Component can't create object.


Probably, the app cannot find CrystalRuntime. Shouldn't it have been installed at the time of installation? We also have Crystal Viewer set up. Also, would this code NOT work with CR 11? I know my message title mentions CR 9, but last friday, we upgraded to CR11 (well, because of some tech issues, they will be down grading back to CR 9 next week, until they can find some permenant solution).

Thanks for the help!

[Hack]

Crystal runtimes may or may not be automatically added to your setup and installation package. It depends on which one you are using. The P&DW does not.

Repackage your project and make sure those runtimes are included.

[ankeet1]

I am actually getting the error when I am compiling the project. What reference file(s) need to be included in vb6?
Excuse me for being a pain, but some how the code is just not work successfully.

Thank You.

[Static]

I think you need : craxdrt.dll


[EDIT] OOps.. lol I was searching, then posted an answer.. nice! Pay attention! [/EDIT]

[tansarbh]

When you install the crystal, it autometically adds reference in VB. So it you go to the reference list, you should find one for Crystal.

[Hack]

When you install the crystal, it autometically adds reference in VB. So it you go to the reference list, you should find one for Crystal.

True, and you should also find the components for Crystal Reports under the Components section on the VB IDE.