How to get Crystal Report control in VB6?

Answer 1

What version of Crystal reports?

Assumptions:

• If you have Crystal Reports installed on the development machine, then you will already have all the dll's required for your VB6 project.
• You're using Crystal Reports v8 or v8.5.
• You will name the crystal report object 'rpt'.

Configuring the project:

• In your VB6 project, Select 'Project'->'Components' and check the checkbox for 'Crystal Report Control' and click 'OK'
• Open the 'Form' view for the form you are coding and drag the 'Crystal' control onto the form.

Coding the project:

• You can now reference the 'Crystal' object from within your code. Take note of the name of the report object, or change it to something useful.
• Set the WindowTitle, Connect, ReportFileName and SQLQuery properties to values relevant to your setup.
• Optionally, you can set the following values: (DiscardSavedData [I recommend setting this to True as it speeds things up in most cases; in fact, I recommend saving your crystal files without any saved data in the first place.], ProgressDialog, and if you have Formulas in the report that you wish to pass in, you can do so using the Formulas(x) property.
• Once all properties are set, launch the report using the following code:

"rpt.Action = 1"

Sample code:

rpt.WindowTitle = Me.Caption

rpt.Connect = "[Insert ADO Connection String here]"

rpt.ReportFileName = sReportsDirectory + "\SomeReport.rpt"

rpt.DiscardSavedData = True

rpt.ProgressDialog = True

rpt.SQLQuery = "select field1, field2, field3 from tbl1 where field4 = 'Y'"

rpt.Action = 1