Active Data Report creation for ado recordset

I'm wanting to pass an ado recordset to the crystal engine from vb6.

From an article at I shuld be able to do this with the vb code below. But an article at explains that to avoid an error the report must be an active data report which uses the active data driver.

My question is, how do you create an active data report?

I have tried File|New|Custom>>> which gives the 'DataFile' option, but it seems to require either an ado connection string or ODBC DSN, where as I want to define the report so that I can pass the rs at runtime.

There's also the dictionary option which i tried some time ago.

VB code:

Dim crpApplication As CRPEAuto.Application
Dim crpReport As CRPEAuto.Report
Dim crpDatabase As CRPEAuto.Database
Dim crpTables As CRPEAuto.DatabaseTables
Dim crpTable As CRPEAuto.DatabaseTable

Set crpApplication = CreateObject("crystal.crpe.application")
Set crpReport = crpApplication.OpenReport(App.Path & "\test.rpt")

Set crpDatabase = crpReport.Database
Set crpTables = crpDatabase.Tables
Set crpTable = crpTables.Item(1)

I then pass the report an ado recordset as follows:

Call crpTable.SetPrivateData(3, adoRS)

Who is Participating?

Improve company productivity with a Business Account.Sign Up

DRRYAN3Connect With a Mentor Commented:

The key to what you are trying to do is the .TTX file (or data definition file).  This is an ASCII file which defines the structure and field names of the ADO recordset you will be passing to CRW.

1.  Determine structure of the recordset in ADO
2.  Create the .TTX file (see below for option)
3.  Open designer and select More Data Sources->Active Data->Active Data (Field Defs Only) as your data source and browse to the .TTX file.  If you want, you can click the new button (optional) and use the simple Data Definition editor to create it.

4.  Define your report as usual - you can't do a meaningful preview though.

5. In VB, create your ADO recordset, let's call it rsTEST

6. Use something along the following lines to pass the recordset and preview your report.

dim crAppl as CRAXDRT.Application
dim crRep as CRAXDRT.Report
dim rs as ADODB.Recordset

' bunch of code to setup your recordset and load the data into it

set crAppl = new CRAXDRT.Application
set crRep = crAppl.OpenReport("C:\path\report.rpt")
' Set ADO recordset to first table in report
crRep.Database.Tables(1).SetDataSource rsTEST, 3
' Be sure to insert a CR Smart Viewer on form and then
crViewer1.ReportSource = crRep

Let me know if you need anything else.
rhubarbtwoAuthor Commented:
DRRYAN3: Sounds like you're the right person to talk to, thanks. I'm still setting this up, but in the meantime I'm wondering how this works with header/detail/footer data, I mean does the data have to be passed as one rs, so if it's a rs from a temporary table for each detail record it's header data will be repeated in the table, but because the fields are in the correct part of the report template when the single rs is passed the header/footer data will appear only once per set of detailed data, is that how it works?

I'm not sure I understand.

I have found that most of my reports can be boiled down into a single recordset of data pulled from a variety of related tables.  I do this with SQL/ADO in VB or with a view on SQL Server and base my report off that one dataset.  Using CRW Groups and sections you can then get that report laid out pretty much however you want.  Most of my reports don't even have an active detail section - it is suppressed, and all the real stuff goes into group footers.

It is possbile, according to seagate, to use more than one TTX when designing a report. I tried to get it working and couldn't in the time I had.
rhubarbtwoAuthor Commented:
I think one rs will be enough for me (I was confusing myself I think), but I was interested in your last para to your last comment though.
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.