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

السلام عليكم
اول مشاركة لي في هذا المنتدى الكبير
اسال الله تعالى لنا ولكم التوفيق
اساتذتي الكرام لدي قاعدة بياتات اسمها stu فيها جدولين
الاول STU_info
الثاني STU_action
وتجد علاقة ربط بينهما

اولا ارغب مساعدتكم في ربط حقول الكومبوبوكس الثلاث الصف / الشعبة / الاسم
فعتد تعبئة بيانات الطلاب في الفصول العاشر والحادي عشر والثاني عشر فان الطلاب يتوزعوا على شعب رقمية من 1 - 10 تقريبا
فكل صف به شعب وكل شعبه بها اسماء
بعد تعبئة البيانات في الفورم 1 وفتح الفورم 2 ارغب عند اختيار الصف تظهر الشعب وبعدها تظهر الاسماء الخاصة بالشعبة المختارة

ثانيا : ارغب في عملية الربط بين الجدولين - ففي الفورم 2 المسؤل عنه جدول stu_action عند اختيار طالب تظهر بياناته ومن ثم استطيع ان اعمل له حالة سلوكية
واحفظها في الجدول .

اتمن مساعدتكم لنتعلم منكم ومن هذا المنتدى الرائع

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

مرفق السورس + برنامج للاختبار بعد اتمام عمل المطلوب

يمكنك اختبار البرنامج المرفق باختيار الخيارات التالية..

الصف : العاشر || الشعبة : 3 || الاسم : حسن علي سيف

ويمكنك تكرار الامر باختيار اى صفف وشعبة اخري لتلقي نظرة على باقي الطلاب

ستجد النتائج تظهر معك طبقا لما كنت تريد ان تفعله كلياً وليس المذكور فقط فى موضوعك

واتمنى ان يكون الاكواد مبسطة ومفهومة بالداخل وبدون اى تعقيدات

تحياتى لك

وتمنياتى لك التوفيق

كل الشكر والتقدير استاذ على هذه المساعدة
انار الله قبلك وزادك الله علما
" يبقى اني اذا احببت اضيف زر حفظ لكي اعمل حالات جديدة عند استدعاء الطالب للجدول الرئيسي
ماذا يضاف لهذا الكود - لان هذا الكود في زر الكومبوبوكس 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

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

jamalsinani

elgokr

jamalsinani