[Webinar] Streamline your web hosting managementRegister Today


Active Data Report creation for ado recordset

Posted on 2001-07-26
Medium Priority
Last Modified: 2012-06-21
I'm wanting to pass an ado recordset to the crystal engine from vb6.

From an article at http://support.seagatesoftware.com/library/kbase/articles/c2002389.asp I shuld be able to do this with the vb code below. But an article at http://support.seagatesoftware.com/library/kbase/articles/c2002616.asp 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 480 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

Upgrade your Question Security!

Your question, your audience. Choose who sees your identity—and your question—with question security.

Question has a verified solution.

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

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…
There have always been a lot of questions related to when Crystal Reports evaluates report components (such as formulas, summaries, cross-tabs, charts, to name a few examples). Crystal Reports uses a two-pass reporting process to provide greater …
Planning to migrate your EDB file(s) to a new or an existing Outlook PST file? This video will guide you how to convert EDB file(s) to PST. Besides this, it also describes, how one can easily search any item(s) from multiple folders or mailboxes…
Free Data Recovery software is an advanced solution from Kernel Tools to recover data and files such as documents, emails, database, media and pictures, etc. It supports recovery from physical & logical drive after a hard disk crash, accidental/inte…
Suggested Courses

640 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