Re: ADO and Crystal Reports
Well, im new to it also, but I have gotten it to work without those built in functions... Heres what I have done...
Dim Report As Report
Dim applic As Application
Dim rsGenerate As New ADODB.Recordset
Dim strResult As String
Dim reportDb As Database
Dim reportTables As DatabaseTables
Dim reportTable As DatabaseTable
rsGenerate.Open sSQL & " " & sWhere, strConnectString, 1, 2
Set applic = CreateObject("Crystal.CRPE.Application")
Set Report = applic.OpenReport(App.Path & "\" & sFileName)
Set reportDb = Report.Database
Set reportTables = reportDb.Tables
Set reportTable = reportTables.Item(1)
reportTable.SetPrivateData 3, rsGenerate
Report.Preview
Any questions, email me, [email protected]