[Abdh111]

(08-11-15, 01:50 AM)حريف برمجة كتب : وعليكم السلام

كود :

 Dim dp As New SqlDataAdapter("select id,name from Table1", conn)

        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds)

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "name"
        ComboBox1.ValueMember = "id"

        dp.Dispose()

جزاك الله خيرا اخي الكريم

---

(08-11-15, 01:50 AM)حريف برمجة كتب : وعليكم السلام

كود :

 Dim dp As New SqlDataAdapter("select id,name from Table1", conn)

        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds)

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "name"
        ComboBox1.ValueMember = "id"

        dp.Dispose()

جربته مش شغال معي نهائياً مع العلم اني حطيته داخل Try ومابيعطي أي رسايل والكمبو لازالت فارغة
وغيرت طبعا الأسماء حسب مانا مسميها

---

(08-11-15, 01:50 AM)حريف برمجة كتب : وعليكم السلام

كود :

 Dim dp As New SqlDataAdapter("select id,name from Table1", conn)

        Dim ds As New DataSet
        ds.Clear()
        dp.Fill(ds)

        ComboBox1.DataSource = ds.Tables(0)
        ComboBox1.DisplayMember = "name"
        ComboBox1.ValueMember = "id"

        dp.Dispose()

الجمد لله اشتغل أخيرا
جزاكم الله خيرا