[abdullhadi999]

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

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

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

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

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

السؤال 

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

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

[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"

[abdullhadi999]

(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 كومبو بوكس مختلفين 

[ahmadpal]

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

[abdullhadi999]

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

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

[elgokr]

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

فيمكنك استخدام الكود بالحدث التالى لعرض باقى البيانات فى 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 لما هو لديك لمسميات كل عمود مطلوب جلب القيمة الخاصة به

تحياتى لك

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

[abdullhadi999]

شكرا جزيلا

[elgokr]

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

شكرا جزيلا

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

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

تحياتى لك

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