Read Crystal Tables

[tc3596]

Is it possible for me to read a crystal file and have it tell me the tables and/or database involved within VB6?

 

[NipsMG]

Yes, if you have the Report Design Component installed.

Include it as one of your references (CRAXDRT.DLL)

    Dim CrApp1 As Application
    Dim CrRep As Report
    Dim CrDB As Database
    Dim CrTables As DatabaseTables
    Dim CrTable As DatabaseTable
    
    Set crApp1 = New Application
    Set CrRep = CrApp1.OpenReport("c:\crystal\myreport.rpt")
    Set CrDB = CrRep.Database
    Set CrTables = CrDB.Tables
    Set CrTable = CrTables.Item(1)

This should give you all the objects needed to find out what you need to know.

--NipsMG s-)

 

[NipsMG]

Correction!:

To avoid confusion between different ADO/RDO and its objects, make sure you use the following:

    Dim CrApp1 As CRAXDRT.Application
    Dim CrRep As CRAXDRT.Report
    Dim CrDB As CRAXDRT.Database
    Dim CrTables As CRAXDRT.DatabaseTables
    Dim CrTable As CRAXDRT.DatabaseTable

--NipsMG s-)