منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

نسخة كاملة : طريقة طباعة نتيجة البحث في الداتاريبورت
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم 
كيف حال الجميع ؟
من فضلكم و جزاكم الله الف خير كيف يمكنني ان اطبع نتائج البحث فقط في الريبورت فيو مع العلم اني اربط قاعدة البيانات بمعالج
شكرا
(29-05-18, 04:35 PM)larbihamri كتب : [ -> ]السلام عليكم 
كيف حال الجميع ؟
من فضلكم و جزاكم الله الف خير كيف يمكنني ان اطبع نتائج البحث فقط في الريبورت فيو مع العلم اني اربط قاعدة البيانات بمعالج
شكرا


نفس الكود الافتراضى للاستعلام الذى تقوم بارسالة الى ReportViewer للطباعة

هو نفسه مع البحث / الفلتر فقط وجه كود الاستعلام الخاص بنتائج البحث الى ReportViewer

فكلاهما واحد
وفى حالة غير مقدرة على عمل ذلك ارفق مشروع مصغر لاتمام عمل الكود طبقاً لمشروعك



تحياتى لك
وتمنياتى لك التوفيق
عليكم السلام وحياك عندي مشاركة لعلها تخدمك 


موضوع احد الاعضاء وفقه الله 


http://vb4arb.com/vb/showthread.php?tid=...9%8A%D8%B1
حدد مسار القاعدة البينات في c:
lمثال:
Dim CnString As String = _
                     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     Application.StartupPath & "C:\Program Files\ghaner\queenghaner\barbara.mdb;Jet OLEDBBig Grinatabase 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