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

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=27359)

سؤال بخصوص حفظ قيمة في الكومبو بوكس - abdullhadi999 - 09-11-18

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

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

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

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

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

السؤال 

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

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

RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - ahmadpal - 09-11-18

كود :
     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"


RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - abdullhadi999 - 12-11-18

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

RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - ahmadpal - 12-11-18

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

RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - abdullhadi999 - 12-11-18

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

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

RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - elgokr - 15-11-18

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

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

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


RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - abdullhadi999 - 17-11-18

Heart

شكرا جزيلا

RE: سؤال بخصوص حفظ قيمة في الكومبو بوكس - elgokr - 17-11-18

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

شكرا جزيلا


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

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

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