[hitman48]

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

كود :

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

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