منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[سؤال] اذا ممكن مثال على التقارير Report للضرورة - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] اذا ممكن مثال على التقارير Report للضرورة (/showthread.php?tid=11970)



اذا ممكن مثال على التقارير Report للضرورة - بدر إشتية - 05-04-15

شباااب اذا ممكن مثال على كيفية عمل التقارير في الفي بي دوت نت

انا عندي مشروع وحاولت اعمل الو تقارير بصراحة ما زبط معي وانا محتاج مساعدتكم

انا جربت ReportViewer بس ما زبط بربطو عن طريق الويزارد بالداتا سيت ولكن لما اشغل الفورم ما بطبع أي معلومات

وكمان جربت CrystalReport بس لما اشغلو بطلب اسم مستخدم وكلمة مرور لقاعدة البيانات ولكن دوووون جدوى

*** طبعااا انا شغال على قاعدة بيانات آكسيس

اذا ممكن بدي طريقة إنشاء التقارير وربطها عن طريق الكوووود وتكون طريقة سهلة ^_^

ساعدووني يا شبااب اي مثال او شرح او اي طريقة سهلة لإنشاء التقارير فيدوني فيها بأسرع وقت ممكن

اي حد بقدر يساعدني كمان هي حسابي على الفيس بوك
http://www.fb.com/badereshtaya


RE: اذا ممكن مثال على التقارير Report للضرورة - الدريساوي - 06-04-15

جرب الكود في طباعة الكريستال
وضع Button1 +ProgressBar1
Try

           'كود الطباعة


           Application.DoEvents()

           ProgressBar1.Visible = True

           Dim rpt As New CrystalReport1 : ProgressBar1.Value = 10


           rpt.SetDataSource(DataSet1) : ProgressBar1.Value = 40


           Form1.CrystalReportViewer1.ReportSource = rpt : ProgressBar1.Value = 60

           'كلمة سر قاعدة البيانات
           Form1CrystalReportViewer1.LogOnInfo(0).ConnectionInfo.Password = "12345" : ProgressBar1.Value = 100

           ProgressBar1.Visible = False


           ''اختيار طابعة اخرى للطباعة غير الطابعة الافتراضية
           'rpt.PrintOptions.PrinterName = "اسم الطابعة الخاصة الاخرى"


           'معاينة التقرير
           Form1.ShowDialog()


           ''كود طباعة مع ظهور نافذة الطباعة
           'Form1.CrystalReportViewer1.PrintReport()


           ''كود طباعة مباشرة مع تحديد عد النسخ
           'rpt.PrintToPrinter(1, True, 0, 0)


       Catch ex As Exception

           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)


       End Try


RE: اذا ممكن مثال على التقارير Report للضرورة - بدر إشتية - 06-04-15

للأسف أخي ما زبط معي Sad

اذا ممكن مثال جاهز مع قاعدة بيانات آكسيس ... او طريقة تكون مجربة وصحيحة


RE: اذا ممكن مثال على التقارير Report للضرورة - Abu Ehab - 07-04-15

VB.Net Tutorial - Report viewer with parameters

ok  You can see more videos in the same page