• 0
مبرمج أوتار

عرض البيانات في كمبوبوكس ارجو المساعده ....

سؤال

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

 

اتمنى المساعده :- 

 

لدي مشكله في اضافة البيانات الموجوده في كمبوبوكس مثل التخصصات مثال على ذلك :- 

 

لدي فقط بيانات محدوده اريد اضافته فقط مثل تخصص علوم الحاسب  و الموارد البشرية و التأمين و التسويق 

 

الفكره واضحه اتمنى تزويدي بكود المطلوووب ... 

 

هذا المثال 

 


 

اتمنى منك المساهده يالغالي 
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

2 إجابة على هذا السؤال .

  • 0

السلام عليكم

 

أعطيك مثالاً من برمجتي حول تعبئة (الجنسيات) في Combobox:

 

    Private Sub GetNationalities()        Dim GSQl As String = "select * from nationalities"        Dim GAdapter As New OleDbDataAdapter(GSQl, Con)        Dim GDataSet As New DataSet        Dim NatCounter As Integer = 0        Dim RowsCount As Integer        cmbNationality.Items.Clear()        If Con.State = ConnectionState.Closed Then            Con.Open()            GAdapter.Fill(GDataSet, "Nat")            RowsCount = GDataSet.Tables("Nat").Rows.Count            If RowsCount <= 0 Then                MsgBox("لم يتم تسجيل أية جنسية", MsgBoxStyle.Critical, "عذراً")                GDataSet.Reset()                Con.Close()            Else                For NatCounter = 0 To RowsCount - 1                    With cmbNationality                        .Items.Add(GDataSet.Tables("Nat").Rows(NatCounter).Item("EmpNationality"))                    End With                Next                GDataSet.Reset()                Con.Close()            End If        Else            GAdapter.Fill(GDataSet, "Nat")            RowsCount = GDataSet.Tables("Nat").Rows.Count            If RowsCount <= 0 Then                GDataSet.Reset()                Con.Close()            Else                For NatCounter = 0 To RowsCount - 1                    With cmbNationality                        .Items.Add(GDataSet.Tables("Nat").Rows(NatCounter).Item("EmpNationality"))                    End With                Next                GDataSet.Reset()                Con.Close()            End If        End If    End Sub

 

حيث أن cmbNationality هو اسم الـCombobox.

 

أتمنى أن يفيدك.

تم تعديل بواسطه أبوبكر بن سويدان
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .