[WaeLx]

(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())

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

تسلم اخي الحبيب 

بارك الله فيك و لك و دمت معينا لكل سائل و معلما لنا

نفع الله بك و زادك علما و مقاما

[عبد العزيز البسكري]

السّلام عليكم و رحمة الله و بركاته

بكل صدق .. لا أعرف كيف أشكركم أساتذتي الأفاضل

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

أستاذي و أخي الكريم KIKI

فعلا قمّة العطاء و الذكاء و الدقّة و الوضوح

باسم الله ما شاء الله تبارك الله

الشّكر موصول للأخوين العزيزين

Waelx

عاطف خلف

لمشاركتنا الحلول

أنعم الله عليكم بطيّبات الدنيا و الأخرة و أحسن إليكم و حقّق أمانيكم بما يحبه و يرضاه

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