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
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 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

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

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

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. …
I hate sub reports and always consider them the last resort in any reporting solution.  The negative effect on performance and maintainability is just not worth the easy ride they give the report writer.  Nine times out of ten reporting requirements…
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…
There's a multitude of different network monitoring solutions out there, and you're probably wondering what makes NetCrunch so special. It's completely agentless, but does let you create an agent, if you desire. It offers powerful scalability …

623 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