How to send Recordset data to Crystal reports.

[mur3x]

Hi!!, As i'm new to CR i wud be really appreciate if
someone cud sort this out. What i want to do is print
all the data from a Recordset(SQL) to a Crystal report.
I use CR8.5

Infact to make things simple i have the below code
which can print from recordset to 'VB DataReport'..

Private Sub cmdprint_Click()

With rptdynamic 				'datareport
  Set .DataSource = Nothing
            .DataMember = ""
  Set .DataSource = rsdyn.DataSource	   'recordset-rsdyn
       With .Sections("Section1").Controls
	    For i = 1 To .Count
               If TypeOf .Item(i) Is RptTextBox Then
                      .Item(i).DataMember = ""
                      .Item(i).DataField = rsdyn.Fields(i - 1).Name
	       End If
            Next i
        End With
  .Show
End With
    
End Sub

thnx!!
Mur.

 

[zemp]

Take a look into using .ttx files. It is kind of like creating a custom database that CR takes with it. Here is some information.

http://support.crystaldecisions.com/communityCS/TechnicalPapers/scr8_ttxado.pdf.asp

Thanks and Good Luck!

zemp

 

[mur3x]

thanx!!! a good read..
well as for my problem i found out another way.
i post it for the benefit of others.

'recordset gets date from form1 where 2 DTpicker controls populate a datagrid. form2 is where the the CRviewer control is located

Dim Report As New CrystalReport1



sub form_load

rs.Open "select id,code,date from receipts where date between #" & Format$(Form1.DTPicker1, "mm/dd/yy") & "# and #" & Format$(Form1.DTPicker2, "mm/dd/yy") & "#" & "order by date", cn, adOpenKeySet

Report.DiscardSavedData
Report.Database.SetDataSource rs, 3, 1

CRViewer1.ReportSource = Report
CRViewer1.ViewReport

end sub