ارسال یک SQLبه گزارش CRYSTALREPORT

[jannati]

دوستان عزیز سلام
من با دستورات زیر یک sqlرا به گزارش وصل میکنم .ولی جواب نمیده.به نظر شما چرا؟


Dim red As New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "dsn=eshterak"
Report.DiscardSavedData
red.Open SQL1, con
Report.DiscardSavedData
Report.Database.SetDataSource red.DataSource
Screen.MousePointer = vbHourglass
CRViewer1.EnableGroupTree = False
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

[jannati]

با سلام
من یک dataenvironmentاضافه کردم و کانکشن هامو به اون وصل کردم .درست شد.!ممنون که اینقدر جواب دادید. :wink:

[کم حوصله]

Dim red As New ADODB.Recordset
Dim con As New ADODB.Connection
con.Open "dsn=eshterak"
Report.DiscardSavedData
red.Open SQL1, con
Report.Database.Tables(1).SetDatasource red,3
Screen.MousePointer = vbHourglass
CRViewer1.ReportSource = Report
CRViewer1.ViewReport




این گونه جایگزینی کنید مشکلتان حل می شود


ممنون که اینقدر جواب دادید. :wink:

خواهش می کنیم قابلی نداشت باشد که شما این گونه نباشید :wink: 8) 8-)

[jannati]

خیلی ممنون کم حوصله جان
با اینکه مشکلم حل شده ولی راه جالبی بود.خوبه که بدونیم.

[riyahiyan]

این قضیه شدیدا دگیرم کرده لطفا بگین مشکل از چیه؟


Private Sub rpt_Lst_Student()
Dim crApp As New CRAXDDRT.Application
Dim crRept As New CRAXDDRT.Report

Set crRept = crApp.OpenReport(App.Path & "\Report\RptLstStudent.rpt")
crRept.Database.Tables(1).location = App.Path & "\DataBase\SM.mdb"


'rss_Report مشکلی ندارد

crRept.DiscardSavedData
crRept.Database.Tables(1).SetDataSource rss_Report, 3
CRViewer1.ReportSource = crRept
CRViewer1.EnableGroupTree = False
CRViewer1.ViewReport

Set crApp = Nothing
Set crRept = Nothing


End Sub



لیست خروجی با محتوای rss_Report یکسان نیست!!!!!!!؟؟؟؟؟

[riyahiyan]

دوستان اگه زودتر بهم جواب بدین واقعا کمک بزرگی کردین.

[riyahiyan]

الو اونجا کسی نیست کم حوصله عزیر با ور کن من کم حوصله نیستم زمانم محدوده