+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : ما هو الاستعلام المناسب في هذ التطبيق ؟؟؟ (/showthread.php?tid=20104)
ما هو الاستعلام المناسب في هذ التطبيق ؟؟؟ - KH_Alaswad - 21-04-17
بسم الله الرحمن الرحيم
السلام عليكم ورحمة الله
في البداية الشكر والتقدير لكل اعضاء هذا المنتدى على تفاعلهم واهتمامهم .. واتمنى لهم دوام الصحة والعافية
اخواني .. لدي تطبيق اريد من سيادتكم الحل المناسب.
والمطلوب : (1)عند اختيار المادة يظهر اسم المعلم المكلف بها في Lable بجوار comboBox
(2) طريقة لتسجيل المعلم غائبا في جدول خاص بالغياب ... حيث في حال عدم حضور المعلم لا يتم تفعيل CheckBox الخاص بالحصة
شاكرا لكم حسن تعاونكم
والسلام عليكم ورحمة الله
التطبيق تجدونه بالمرفقات
RE: ما هو الاستعلام المناسب في هذ التطبيق ؟؟؟ - Adrees - 25-04-17
وعليكم السلام ورحمة الله وبركاته
اخي الكريم بالنسبة لإظهار أسم المعلم بجوار الحصة المكلف بها يعمل بدون مشاكل
إلا انه عند إختيار بعض الحصص تظهر رسالة خطأ وسبب هذا الخطأ هو
ان جدول الحصص مرتبط بعلاقة مع جدول المعلمون وبعص الحصص التي تم إضافتها
أضيفت بدون تحديد رقم المعلم لذلك يظهر الخطأ عند إختيار بعض الحصص.
RE: ما هو الاستعلام المناسب في هذ التطبيق ؟؟؟ - KH_Alaswad - 27-04-17
السلام عليكم ورحمة الله
اشكرك اخي Adrees على مرورك
لقد ارفقت الفورم الذي يحتوي على المشكلة ... فهناك فورم به اسناد مادة لمعلم
اي تختار المعلم ثم تعطيه او تسند له المادة المكلف بها
لهذا تجد في الجدول وجود فرغات لارقام المعلمين
بعد طرحي لهذا الموضوع بقيت اراجع ما كتبت من اكواد وجدت أن هناك نواقص تتمثل في الاتي
1 - اضفت حقل بجوار حقل رقم المعلم في جدول المواد باسم chosetoteacher نوع البيانات (نعم / لا)
لكي نضيف شرط في الاستعلام الخاص بتعبئة الكمبوبوكس بالمواد الدراسية بــ ( المادة المختارة للمعلم ) كالتالي
'لتحميل المواد الدراسية في كل كومبوبوكس
Sub Load_obj_data(ByVal Coomboo As ComboBox)
Try
Dim dta1 As DataTable = New ADL().SelectDataTable("SELECT objects.obj_name, objects.num_teacher FROM objects where chosetoteacher=True and objects.ID_lev=" & ComboBox7.SelectedValue.ToString)
Coomboo.DataSource = dta1
Coomboo.DisplayMember = dta1.Columns(0).ColumnName
Coomboo.ValueMember = dta1.Columns(1).ColumnName
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
ونستفيد من هذه الخطوة ان نعرض المواد المسندة فقط
2 - عدم ظهور اسم المعلم في المكان المراد له ... حيث اريد ان يظهر اسم المعلم الذي يوجد رقمه في جدول المواد
هذه هي المشكلة الاساسية , بعد البحث الطويل توصلت الى ما يعرف بالاستعلام الفرعي
الذي تكون صيغته كالتالي :
;(Select columnA, columnB from Table_Name where columnC IN(Subquery
ليكون الاستعلام المناسب لتطبيقنا هو كالتالي :
SELECT teachers.teach_name FROM teachers WHERE teachers.num_teacher in (SELECT objects.num_teacher FROM objects WHERE objects.num_teacher=" & ComBBox.SelectedValue.ToString() & ");
ارجوا بأن اكون قد وفقت ولو بشكل بسيط جدا في توضيحي هذا
واعتذر عن الاطالة أو ان كان هناك خطاء أو تقصير في الشرح
ولكم مني اجمل التحية .... السلام عليكم ورحمة الله
الكتاب و التطبيق بعد التعديل بالمرفقات