منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - سؤال بخصوص حفظ قيمة في الكومبو بوكس

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

ياأخوان انا لدي جدولين كالاتي

جدول student يحتوي الحقول التالية :
1. رقم الطالب ( مفتاح رئيسي )
2. اسم الطالب
3. رقم الفصل ( مفتاح خارجي )

جدول الفصول يحتوي الحقول التالية :
1. رقم الفصل ( مفتاح رئيسي )
2. اسم الفصل

وعملت علاقة واحد لمتعدد بين الجدولين من خلال حقل رقم الفصل

السؤال

اذا عملت شاشة تضم العناصر التالية :

رقم الطالب : label
اسم الطالب : text box
رقم الفصل : text box (يتم ادخال رقم الفصل للطالب ) ؟ بفرض ان الفصول كثيرة ولا يتمكن حفظ الارقام ؟ ماهي الطريقة التي من خلالها اظهر اسم الفصل في جدول الطلاب من خلال كومبو بوكس ويتم تخزين النتيجة في جدول الفصول

كود :

     dim DT As New DataTable

       dim DA As New OleDbDataAdapter

        DT.Clear()

       DA = New OleDbDataAdapter("select * from tablename ", con)

        DA.Fill(DT)

        compobox1.DataSource = DT

        compobox1.DisplayMember = "رقم_الفصل"

        compobox1.ValueMember = "id"

(09-11-18, 02:23 PM)ahmadpal كتب : [ -> ]

كود :

dim DT As New DataTable dim DA As New OleDbDataAdapter DT.Clear() DA = New OleDbDataAdapter("select * from tablename ", con) DA.Fill(DT) compobox1.DataSource = DT compobox1.DisplayMember = "رقم_الفصل" compobox1.ValueMember = "id" يعطيك العافية ياغالي . عندي سؤال اخر واسف على الازعاج اريد ان اقوم بعرض حقل ( اسم الفصل ) مثلا في 2 كومبو بوكس مختلفين ؟

العافية ياغالي . عندي سؤال اخر واسف على الازعاج

اريد ان اقوم بعرض حقل ( اسم الفصل ) مثلا في 2 كومبو بوكس مختلفين

بنفس الطريقة ونفس الكود لكن قم بتغير اسم الجدول واسم الحقل واسم الكومبو بوكس

استاذ احمد مساء الخير ...

سؤالي الاول كان بخصوص الكومبو بوكس وبجواره مربع نص . اريد في حالة اختياري لاي نص بالكومبو بوكس تظهر قيمته الرقمية في مربع النص بفرض انه يستمد قيمته من جدول يحتوي على حقلين ( رقم الطالب ، واسمه ). لاني احس ماوصلت لك الفكرة بشكل صحيح . تحياتي ياغالي

بناءاً على الكود الاعلى لما تم طرحه لك

فيمكنك استخدام الكود بالحدث التالى لعرض باقى البيانات فى TextBox

كود :

   Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

        TextBox1.Text = dt(ComboBox1.SelectedIndex)("ID")

        TextBox2.Text = dt(ComboBox1.SelectedIndex)("NAME")

    End Sub

فقط استبدلاً كلاً من ID و NAME لما هو لديك لمسميات كل عمود مطلوب جلب القيمة الخاصة به

تحياتى لك

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

شكرا جزيلا

(17-11-18, 06:52 AM)abdullhadi999 كتب : [ -> ]

شكرا جزيلا

الشكر لله والحمد لله

والحمد لله على كل حال

تحياتى لك

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

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

abdullhadi999

ahmadpal

abdullhadi999

ahmadpal

abdullhadi999

elgokr

abdullhadi999

elgokr