+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] مساعدة في ربط 3 حقول combobox (/showthread.php?tid=27512)
مساعدة في ربط 3 حقول combobox - jamalsinani - 18-11-18
السلام عليكم
اول مشاركة لي في هذا المنتدى الكبير
اسال الله تعالى لنا ولكم التوفيق
اساتذتي الكرام لدي قاعدة بياتات اسمها stu فيها جدولين
الاول STU_info
الثاني STU_action
وتجد علاقة ربط بينهما
اولا ارغب مساعدتكم في ربط حقول الكومبوبوكس الثلاث الصف / الشعبة / الاسم
فعتد تعبئة بيانات الطلاب في الفصول العاشر والحادي عشر والثاني عشر فان الطلاب يتوزعوا على شعب رقمية من 1 - 10 تقريبا
فكل صف به شعب وكل شعبه بها اسماء
بعد تعبئة البيانات في الفورم 1 وفتح الفورم 2 ارغب عند اختيار الصف تظهر الشعب وبعدها تظهر الاسماء الخاصة بالشعبة المختارة
ثانيا : ارغب في عملية الربط بين الجدولين - ففي الفورم 2 المسؤل عنه جدول stu_action عند اختيار طالب تظهر بياناته ومن ثم استطيع ان اعمل له حالة سلوكية
واحفظها في الجدول .
اتمن مساعدتكم لنتعلم منكم ومن هذا المنتدى الرائع
RE: مساعدة في ربط 3 حقول combobox - elgokr - 18-11-18
وعليكم السلام ورحمة الله وبركاته
مرفق السورس + برنامج للاختبار بعد اتمام عمل المطلوب
يمكنك اختبار البرنامج المرفق باختيار الخيارات التالية..
الصف : العاشر || الشعبة : 3 || الاسم : حسن علي سيف
ويمكنك تكرار الامر باختيار اى صفف وشعبة اخري لتلقي نظرة على باقي الطلاب
ستجد النتائج تظهر معك طبقا لما كنت تريد ان تفعله كلياً وليس المذكور فقط فى موضوعك
واتمنى ان يكون الاكواد مبسطة ومفهومة بالداخل وبدون اى تعقيدات
تحياتى لك
وتمنياتى لك التوفيق
RE: مساعدة في ربط 3 حقول combobox - jamalsinani - 18-11-18
كل الشكر والتقدير استاذ على هذه المساعدة
انار الله قبلك وزادك الله علما
" يبقى اني اذا احببت اضيف زر حفظ لكي اعمل حالات جديدة عند استدعاء الطالب للجدول الرئيسي
ماذا يضاف لهذا الكود - لان هذا الكود في زر الكومبوبوكس 3 الذي به الاسماء
اذا رغبت في عمل زر حفظ , فم هو الكود المناسب "
كود :
dt1 = New DataTable
da = New OleDbDataAdapter("SELECT * FROM STU_action WHERE `id` = " & dt(0)(0), con)
da.Fill(dt1)
If Not dt1.Rows.Count > 0 Then
MsgBox("لا يوجد اى انذارات على هذا الطلاب")
Exit Sub
Else
'ComboBox3.Items.Add(dt1(0)(1))
ComboBox3.Text = dt1(0)(1)
CheckBox1.Checked = dt1(0)(2)
CheckBox2.Checked = dt1(0)(3)
CheckBox3.Checked = dt1(0)(4)
End If
load_data()
DataGridView1.DataSource = dt1
End Sub