تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] جلب القاب الاعضاء
#1
Sad 
السلام عليكم ورحمة الله وبركاته
اخواني انا الان اعمل على مشروع واريد مثال لجلب القاب الاعضاء في ComboBox1
وعند اختيار الالقاب يظهر الاسم المخصص لكل عضو في ComboBox2 اتوتماتيكيا
فهل من مساعدة
وشكرا
الرد
تم الشكر بواسطة:
#2
السلام عليكم

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

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

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

اما الدالة فتوضع في الفورم لود اي عند اقلاع البرنامج
الرد
تم الشكر بواسطة: khodor1985


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] طلب من الاعضاء الكرام فى قواعد البيانات MOSTAFA.KAMEL 2 1,076 08-09-16, 05:09 PM
آخر رد: MOSTAFA.KAMEL
  [نقاش] سؤال فى مشاركة احد الاعضاء ؟! mohamed haroon 2 1,323 25-01-16, 05:09 PM
آخر رد: mohamed haroon
  اخ الوليد جميع الاعضاء ساعدوني اوقفو معاي mudz 6 1,779 24-12-14, 04:21 AM
آخر رد: mudz
  [سؤال] طلب صغير من الاخوه الاعضاء samehfido 9 2,244 08-03-14, 03:06 PM
آخر رد: samehfido

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم