Active Data Report creation for ado recordset

Posted on 2001-07-26
Last Modified: 2012-06-21
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)

Question by:rhubarbtwo
  • 2
  • 2
LVL 12

Accepted Solution

DRRYAN3 earned 120 total points
ID: 6322392

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.

Author Comment

ID: 6326148
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?

LVL 12

Expert Comment

ID: 6327586
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.

Author Comment

ID: 6333465
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.

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Crystal Reports: 5 Tests for Top Performance It is complete, your masterpiece report.  Not only does it meet your customer’s expectations, it blows them out the water, all they want is beautifully summarised and displayed in a myriad of ways. …
Hello everyone, Hope you find this as helpful as we did. We have on the company I work for an application built in Delphi V with Crystal Reports 8. We all know that Crystal & Delphi can be temperamental sometimes and the worst thing is, nearly…
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …
Internet Business Fax to Email Made Easy - With eFax Corporate (, you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…

910 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

21 Experts available now in Live!

Get 1:1 Help Now