ارتباط ado با كريستال ريپورت

[kama2222]

با سلام
چطور مي توانم داده هاي خود در adodcيا adodb را در حالت فيلتر به كريستال ريپورت انتقال دهم.يا اصطلاحاً مي خواهم رابط بانك من با كريستال ريپورت ado باشد.
با تشكر

[kama2222]

چرا جواب نمي دهيد؟

[کازیوه]

منم همین سوالو دارم یکی جواب بده واقعا کارم گیره

[ali190]

سلام
از این sub استفاده کنید

Private Sub PrintMember(StrSQL As String)
On Error GoTo E_R
Dim ObjApp As New CRAXDRT.Application
Dim ObjRpt As New CRAXDRT.Report
Set ObjRpt = ObjApp.OpenReport(App.Path & "\Report1.Rpt")
Set Section3 = ObjRpt.Sections.Item(3) ' 3 For Detail Section
ObjRpt.DiscardSavedData
' Adodc1.Refresh
ObjRpt.Database.SetDataSource Adodc1.Recordset

Me.CRViewer91.ReportSource = ObjRpt
Me.CRViewer91.ViewReport
Exit Sub
E_R:
MsgBox Err.Description, vbExclamation
End Sub

برای اتصال محتویات adodc به گزارش از دستور زیر استفاده کنید
ObjRpt.Database.SetDataSource Adodc1.Recordset
یاعلی