+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 viewor (/showthread.php?tid=1551)
report viewor - abid - 14-01-14
انا عامل منظومة مدرسة بلغة دوت نت 2012 مربوطة sql server 2008 مشكلتي في التقرير
المشكلة:
اريد اخراج تقرير بين تاريخين او بتاريخ
مثال :
اريد ان استخراج بيانات طلاب من شهر كذا الى شهر كذا بضغطت زر يخرج الربورت
RE: report viewor - Genius Live - 14-01-14
اطرح سؤالك في قسم التقارير والطباعة
وياريت لو تحدد اي نوع من التقارير تريد
RE: report viewor - الشاكي لله - 14-01-14
(14-01-14, 02:22 AM)Genius Live كتب : اطرح سؤالك في قسم التقارير والطباعة
وياريت لو تحدد اي نوع من التقارير تريد
ماشاء الله اول مرة اشوفك تكتب عربي
RE: report viewor - Genius Live - 14-01-14
(14-01-14, 02:26 AM)الشاكي لله كتب : ماشاء الله اول مرة اشوفك تكتب عربي
انا عربي وأفتخر ومسلم والحمد لله
ولكن مازلت عند رأيي في كتابة المصطلحات بالانجليزية ( علشان نجيب من الاخر ) بالمصريواعتقد ان ده رأيك إيضاً ولا إيه ؟
(12-01-14, 04:02 AM)الشاكي لله كتب : لان كل واحد قام يألف مصطلح على كيفه
مثل Class = صنف ، فئة ، كلاس ، صف
اخر مرة واحد قال ليي "لو سمحت اريدك تعدل على الصنف" صنف !!! اي صنف ؟ .. فكري راح بعيد ههه
علي الرحب والسعة
RE: report viewor - الشاكي لله - 14-01-14
صح انا على رأيي
واشجع على ذلك بشدة
تحياتي
RE: report viewor - myalsailamy - 14-01-14
هذا مثال مصغر لعملية استرجاع مواعيد من جدول المواعيد يظهر قائمة بـ سبب الموعد + الملاحظات
البيئة المنشأ فيها التقرير هي - كريستال ريبورت :
PHP كود :
Dim Report As New ReportDocument
Report.Load(Application.StartupPath & "\AppointmentTable.rpt")
Dim con As New SqlConnection("Data Source=.\sqlexpress;Initial Catalog=dataBaseName;Integrated Security=True")
Dim DataAdap As New SqlClient.SqlDataAdapter("Select Appoint_Reason , Appoint_Note FROM AppointmentTable where Appoint_Date= @Par_Appoint_Date ", con)
DataAdap.selectcommand.Parameters.Clear()
DataAdap.selectcommand.Parameters.AddWithValue("@Par_Appoint_Date1", SqlDbType. Date).Value = PDT_AppointDate1.value
DataAdap.selectcommand.Parameters.AddWithValue("@Par_Appoint_Date2", SqlDbType. Date).Value = PDT_AppointDate2.value
Dim dset As New DataSet
Try
DataAdap.Fill(dset, "AppointmentTable")
Report.SetDataSource(dset)
Catch ex As Exception
MsgBox(ex.Message)
End Try
PrintViewerForm.CrystalReportViewer1.ReportSource = Report
PrintViewerForm.ShowDialog()