VFP SYNTAX TO SET THE SOURCE FILE FOR CRYSTAL REPORTS 1

[LeonelSanchezJr]

IN THE FOLLOWING VFP6.0 CODE, I AM RUNNING A STORED PROCEDURE AND I AM GETTING ONE RECORD (RECORDSET).

THEN, I AM INVOKING CRYSTAL REPORTS, BUT MY PROBLEM IS THAT I HAVE TO GET THE VFP SYNTAX TO SET THE CRYSTAL REPORT DATASOURCE TO THE RECORDSET.

HERE IS MY CODE:

oAdo = CreateObject('AdoDb.Connection')
oAdor = CreateObject('Ador.Recordset')
oAdo.ConnectionString = [Provider=SQLoledb;data source= WIN2KMOBILE001;User ID =talondeveloper;Password=;Connect Timeout=3]
oADO.Open
oAdo.DefaultDatabase = 'Talon_Dot_Net'
oAdor = oAdo.Execute("exec ConsolidatedAirExport_SelectWaybillHeader 'TESTMAWB001'&quot

* code to preview Crystal report
oCRApp = createobject("crystal.crpe.application&quot
oRep = oCRApp.OpenReport("d:\leo\Mawb_laser.rpt&quot

oRep.Preview
wait


THANK YOU FOR YOUR TIME AND EFFORTS.

 

[ChrisCarroll]

I think it's actually Crystal Reports syntax that you're short of, not VFP syntax, because the methods available to your oRep object are CR methods not VFP methods - so you're hoping for CR to expose a method that can accept your ADO recordset as parameter.
I don't have CR - but I noticed when I logged in today that this week's Tipmaster is a Crystal Reports man ;-)

 

[LeonelSanchezJr]

I finally got the answer to the original questin I started off with. Here is the code to accomplish this. Thanks for everyone's help.

*** code to create object and query sql
oAdo = CreateObject('AdoDb.Connection')
oAdor = CreateObject('Ador.Recordset')
oAdo.ConnectionString = [Provider=SQLoledb;data source= WIN2KMOBILE001;User ID =talondeveloper;Password=;Connect
Timeout=3]
oADO.Open
oAdo.DefaultDatabase = 'Talon_Dot_Net'
oAdor = oAdo.Execute("exec ConsolidatedAirExport_SelectWaybillHeader 'TESTMAWB001'&quot

*** code to open Crystal report
oCRApp = createobject("crystal.crpe.application&quot
*oRep = oCRApp.OpenReport("d:\leo\Mawb_laser.rpt&quot
oRep = oCRApp.OpenReport("D:\My Documents\Crystal Reports\Mawb_laser.rpt&quot

*** code to discard saved data (this must be included in order to discard any saved data with report
oRep.discardsaveddata
***

*** pass the recordset to the report
oDatabase = oRep.Database
oDatabaseTables = oDatabase.Tables
oDatabaseTable = oDatabaseTables.Item(1)
oDatabaseTable.SetPrivateData (3, oADOr)

*** code to preview the Crystal report
oRep.Preview
*wait