+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت (/showthread.php?tid=25152)
طريقة طباعة نتيجة البحث في الداتاريبورت - larbihamri - 29-05-18
السلام عليكم
كيف حال الجميع ؟
من فضلكم و جزاكم الله الف خير كيف يمكنني ان اطبع نتائج البحث فقط في الريبورت فيو مع العلم اني اربط قاعدة البيانات بمعالج
شكرا
RE: طريقة طباعة نتيجة البحث في الداتاريبورت - elgokr - 29-05-18
(29-05-18, 04:35 PM)larbihamri كتب : السلام عليكم
كيف حال الجميع ؟
من فضلكم و جزاكم الله الف خير كيف يمكنني ان اطبع نتائج البحث فقط في الريبورت فيو مع العلم اني اربط قاعدة البيانات بمعالج
شكرا
نفس الكود الافتراضى للاستعلام الذى تقوم بارسالة الى ReportViewer للطباعة
هو نفسه مع البحث / الفلتر فقط وجه كود الاستعلام الخاص بنتائج البحث الى ReportViewer
فكلاهما واحد
وفى حالة غير مقدرة على عمل ذلك ارفق مشروع مصغر لاتمام عمل الكود طبقاً لمشروعك
تحياتى لك
وتمنياتى لك التوفيق
RE: طريقة طباعة نتيجة البحث في الداتاريبورت - hglogtd - 30-05-18
عليكم السلام وحياك عندي مشاركة لعلها تخدمك
موضوع احد الاعضاء وفقه الله
http://vb4arb.com/vb/showthread.php?tid=12798&highlight=%D8%AA%D9%85%D8%B1%D9%8A%D8%B1
RE: طريقة طباعة نتيجة البحث في الداتاريبورت - ghaner joseph - 11-07-18
حدد مسار القاعدة البينات في c:
lمثال:
Dim CnString As String = _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
Application.StartupPath & "C:\Program Files\ghaner\queenghaner\barbara.mdb;Jet OLEDB
atabase Password=...........;"ProgressBar2.Visible = True
Dim rpt As New CrystalReport3 : ProgressBar2.Value = 10
rpt.SetDataSource(dset1) : ProgressBar2.Value = 40
Dim frm As New Form16 : ProgressBar2.Value = 70
frm.CrystalReportViewer1.ReportSource = rpt : ProgressBar2.Value = 100
'كلمة سر قاعدة البيانات
frm.CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "......."
frm.CrystalReportViewer1.Refresh()
'معاينة التقرير
frm.Show()
ProgressBar2.Visible = False