الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

اريد حل لريط Combobox مع Dataset

مغلق
بدأه MNF في 24 أغسطس 2007 · 4 رد · 809 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

نرجو من الاخوة الكرام...

ان يعطونا حلا لمشكلة واجهتنا بربط ComboBox مع dataset

عندي DataSet حسب استعلام معين تقوم بجلب البيانات من Memory ,ونريد ان نقوم بعرض هذه البيانات فيComboBox

تحت الحدث DropDown,على شكل قائمة منسدلة من البيانات.

الكود التالي يوضح الموضوع اكتر.ولكن ماهي التعديلات او التغيرات اللازم عملها عل الكود لعرض اسماء حسب الحرف الأول للاسماء في ComboBox

SQLstr = "select * from daleel where per_name LIKE '" & ComboBox1.Text & "%'"
		conn.Open()
		Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, conn)

		DataAdapter1.Fill(DataSet1, "daleel")
		conn.Close()
		Dim x As Integer = Me.BindingContext(DataSet1, "daleel").Count

		While (x > 0)
			ComboBox1.Items.Add(DataSet1)
			ComboBox1.DataBindings.Add("text", DataSet1, "daleel.per_name")

"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"

#2

جرب 

ComboBox1.Sorted = True

أو جرب أن تكتب في نهاية جملة الاستعلام 

ORDER BY per_name ASC

و بالتوفيق

#3

السلام عليكم

اول شي شكرا كتير لاجابتك ومساعدتي.

ولكن الموضوع ليس ترتيب الاسماء داخل combobox ولكن كيفيه جلب هذه الاسماء حسب الاستعلام من dataset ووضعها في

combobox واظهارها في قائمه منسدله للcombobox .وشكرا

"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"

#4

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

هذه احدى الطرق

				For i As Integer = 0 To Me.BindingContext(DataSet, "tablename").Count - 1
					ComboBox.Items.Add(DataSet.Tables("tablename").Rows(i).Item("ColumnName").ToString)
				Next

نفس الطريقة مع تحسين طفيف لعدم اضافة العناصر الخالية إن وجدت

				For i As Integer = 0 To Me.BindingContext(DataSet, "tablename").Count - 1
					Dim AddStr As String = DataSet.Tables("tablename").Rows(i).Item("ColumnName").ToString
					If AddStr <> "" Then ComboBox.Items.Add(AddStr)
				Next
#5

السلام عليكم..

شكرا والله كتييييييييييييييييييييييييييييييييييييير.

السهو كانت هنا:

ComboBox.Items.Add(DataSet.Tables("tablename").Rows(i).Item("ColumnName").ToString)

الفضل لله ثم لمجهودك.

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

"وَمَا تَدْرِي نَفْسٌ مَّاذَا تَكْسِبُ غَداً وَمَا تَدْرِي نَفْسٌ بِأَيِّ أَرْضٍ تَمُوتُ إِنَّ اللَّهَ عَلِيمٌ خَبِيرٌ"

هذا الموضوع مغلق.

مواضيع مشابهة