[larbihamri]

السلام عليكم 
كيف حال الجميع ؟
من فضلكم و جزاكم الله الف خير كيف يمكنني ان اطبع نتائج البحث فقط في الريبورت فيو مع العلم اني اربط قاعدة البيانات بمعالج
شكرا

[elgokr]

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

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

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

فكلاهما واحد

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

تحياتى لك

وتمنياتى لك التوفيق

[hglogtd]

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


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


http://vb4arb.com/vb/showthread.php?tid=...9%8A%D8%B1

[ghaner joseph]

حدد مسار القاعدة البينات في c:
lمثال:
Dim CnString As String = _
                     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                     Application.StartupPath & "C:\Program Files\ghaner\queenghaner\barbara.mdb;Jet OLEDBatabase 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