السلام عليكم ورحمة الله وبركاته
اخواني انا الان اعمل على مشروع واريد مثال لجلب القاب الاعضاء في ComboBox1
وعند اختيار الالقاب يظهر الاسم المخصص لكل عضو في ComboBox2 اتوتماتيكيا
فهل من مساعدة
وشكرا
السلام عليكم
يمكنك باستخدام استعلام.
ضع مشروعك لإيجاد الكود المناسب.
انا لما سالت ... سالت فقط كيفية تعبئت كمبوبوكس من نقس الجدول ومن نفس الصف على العموم
تم الحل بفضل الله فقط بحثت لحين ما وجدت الحل والي يريد اشارك الحل يتفظل ويقولي
اولا قمت بعمل دالة لجلب الالقاب من الجدول
كود :
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
اما الدالة فتوضع في الفورم لود اي عند اقلاع البرنامج