منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[VB.NET] جلب القاب الاعضاء - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] جلب القاب الاعضاء (/showthread.php?tid=18998)

جلب القاب الاعضاء - hitman48 - 28-01-17

السلام عليكم ورحمة الله وبركاته
اخواني انا الان اعمل على مشروع واريد مثال لجلب القاب الاعضاء في ComboBox1
وعند اختيار الالقاب يظهر الاسم المخصص لكل عضو في ComboBox2 اتوتماتيكيا
فهل من مساعدة
وشكرا

RE: جلب القاب الاعضاء - مساعدة - 28-01-17

السلام عليكم

يمكنك باستخدام استعلام.

ضع مشروعك لإيجاد الكود المناسب.

RE: جلب القاب الاعضاء - hitman48 - 28-01-17

انا لما سالت ... سالت فقط كيفية تعبئت كمبوبوكس من نقس الجدول ومن نفس الصف على العموم
تم الحل بفضل الله فقط بحثت لحين ما وجدت الحل والي يريد اشارك الحل يتفظل ويقولي

RE: جلب القاب الاعضاء - hitman48 - 28-01-17

اولا قمت بعمل دالة لجلب الالقاب من الجدول

كود :
Private Sub GetNom()
       Try
           OpenConnexion()
       Catch ex As MySqlException
           MsgBox(ex.Message)
       End Try

       Dim sStmt As String = "SELECT id_condidat, cond_nom FROM condidat"
       Dim cmd As New MySqlCommand(sStmt, DataConnexion.Conn)

       Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
       Dim dt As New DataTable("condidat")
       da.Fill(dt)

       If dt.Rows.Count > 0 Then
           FlatComboBox3.DataSource = dt
           FlatComboBox3.DisplayMember = "cond_nom" 'What is displayed
           FlatComboBox3.ValueMember = "id_condidat" 'The ID of the row
           FlatComboBox5.DataSource = dt
           FlatComboBox5.DisplayMember = "cond_nom" 'What is displayed
           FlatComboBox5.ValueMember = "id_condidat" 'The ID of the row
       End If

بعدها قمت بتحديد الكومبوبوكس في حدث SelectedValueChanged  او SelectedIndexChanged
وقمت بوضع استعلام الذي من شانه تحديدالاسماء بناء على الكومبوبوكس الحالي

كود :
 Dim sStmt As String = "SELECT cond_prenom FROM condidat where cond_nom='" & ComboBox1.Text & "'"

وهاهو الكود الخاص الكومبوبوكس

كود :
    Try
           OpenConnexion()
       Catch ex As MySqlException
           MsgBox(ex.Message)
       End Try

       Dim sStmt As String = "SELECT cond_prenom FROM condidat where cond_nom='" & ComboBox1.Text & "'"
       Dim cmd As New MySqlCommand(sStmt, DataConnexion.Conn)

       Dim da As MySqlDataAdapter = New MySqlDataAdapter(cmd)
       Dim dt As New DataTable("condidat")
       da.Fill(dt)

       If dt.Rows.Count > 0 Then
           ComboBox2.DataSource = dt
           ComboBox2.DisplayMember = "cond_prenom" 'What is displayed

       End If

اما الدالة فتوضع في الفورم لود اي عند اقلاع البرنامج