PDA

View Full Version : سوال: اتصال گزارش به بانک با کد



@AM!R!
چهارشنبه 26 مرداد 1390, 14:17 عصر
سلام دوستان
به نظر شما این روش اتصال به بانک برای گزارش با crystal درسته؟

Private Sub cmdPrint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdPrint.Click
Dim a As New FrmPrint
Dim fltr
Dim _log As New CrystalReportLogBook

If lvw.Tag <> "" Then


a.CrystalReportViewer1.ReportSource = _log
fltr = "{LogBook.UID}=" & Val(lvw.Tag) & ""
a.CrystalReportViewer1.SelectionFormula = fltr
a.Show()
lvw.Tag = ""
Else
If MsgBox("آیا می خواهید همه اطلاعات را چاپ کنید؟", MsgBoxStyle.Question + MsgBoxStyle.YesNo + MsgBoxStyle.MsgBoxRight, "Log Book of Compounding Products in the Pharmacy") = MsgBoxResult.Yes Then
a.CrystalReportViewer1.ReportSource = _log
a.Show()
lvw.Tag = ""
End If
End If

End Sub


توی فرم frmprint یک شی CrystalReportViewer1 وجود داره و قراره کاربر تو فرم اصلی با کلیک بر روی یک سطر از گرید اطلاعات اون سطر رو چاپ کنه

متاسفانه گزارش با یک مسیر ثابت تعریف شده و بعد از نصب هم تو همون مسیر ثابت دنبال بانک می گرده

حالا می خوام به جای تعریف database fields تو crystalreportlogbook.rpt از مسیر دهی پویا استفاده کنم

کسی از دوستان نمونه کد یا نظری داره؟

ممنون

ahmadreza517
چهارشنبه 26 مرداد 1390, 15:04 عصر
سلام
این جوری که من فهمیدم می خایی برنامت گزارشش دینامیک باشه
می تونی از همون دیتا ستی که اطلاعات رو از اون Where میکنی به CrystalReportViewer1 وصل کنی تا همون اطلاعاتی که در گرید ویو رو نشون بده بتونی چاپ کنی .

ahmadreza517
چهارشنبه 26 مرداد 1390, 15:05 عصر
دوست داشتی پروژتو بزار تا بهتر راهنماییت کنم

@AM!R!
چهارشنبه 26 مرداد 1390, 19:03 عصر
ممنون
ولی همینطور که تو کد میبینید مشکل تو select کردن و filter کردن نیست

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

ahmadreza517
چهارشنبه 26 مرداد 1390, 19:36 عصر
سلامی دوباره
به آدرس زیر برو این پروژرو دانلو کن شاید مشکلت حل شد اگه حل نشد خاستی برنامه تو بذار این جا تا ببینم .
http://howprg.blogfa.com/post-11.aspx (http://howprg.blogfa.com/post-11.aspx)