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

(02-07-20, 03:34 AM)عبد العزيز البسكري كتب : [ -> ]

بارك الله فيك و لك و جزاك خير الجزاء أخي الكريم وائل

فعلا الطريقة تعطي نتيجة صحيحة و سليمة

و سأعتمدها بإذن الله .. اللهم إذا طرح أحد الإخوة الأعزاء فكرة نوعا ما مختصرة

كود :

Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Arabe='غائب'"
           Me.TextBox2.Text = Cmd.ExecuteScalar().ToString()

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Physique='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Islamique='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Civile='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Mathematique='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Anglais='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Historique='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Francais='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Science='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

           Cmd.CommandText = "SELECT COUNT(*) From TBL_STUDENT Where STUDENT_Gender='ذكر' And STUDENT_Absence_Amazighe='غائب'"
           Me.TextBox2.Text = Val(TextBox2.Text) + Val(Cmd.ExecuteScalar().ToString())

تحياتي واحتراماتي و تقييماتي