PDA

View Full Version : ارتباط ado با كريستال ريپورت



kama2222
شنبه 12 اردیبهشت 1388, 16:02 عصر
با سلام
چطور مي توانم داده هاي خود در adodcيا adodb را در حالت فيلتر به كريستال ريپورت انتقال دهم.يا اصطلاحاً مي خواهم رابط بانك من با كريستال ريپورت ado باشد.
با تشكر

kama2222
دوشنبه 14 اردیبهشت 1388, 16:53 عصر
چرا جواب نمي دهيد؟

کازیوه
شنبه 28 خرداد 1390, 22:00 عصر
منم همین سوالو دارم یکی جواب بده واقعا کارم گیره

ali190
شنبه 28 خرداد 1390, 22:54 عصر
سلام
از این 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
یاعلی

Irandoost
یک شنبه 21 آبان 1391, 12:08 عصر
سلام
من از crystal report 8.5 در vb6 استفاده میکنم ولی با این دستور ارتباط برقرار نمیشه و باز هم error میده. باید چکار کنم؟؟؟

Irandoost
دوشنبه 14 اسفند 1391, 03:00 صبح
یعنی واقعا هیچ راهی نداره؟؟
چکار باید انجام داد. دوستان لطفا اگه میدونید یه راهی بدید...

Irandoost
جمعه 25 اسفند 1391, 17:20 عصر
عزیزران اگر کسی راه حلی داره لطفا بگه. از راهنماییتون ممنونم...