+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود البحث في حقل معين وإظهار النتيجة في الكومبو بوكس (/showthread.php?tid=11786)
تعديل كود البحث في حقل معين وإظهار النتيجة في الكومبو بوكس - momiana1 - 18-03-15
السلام عليكم
أريد التعديل على هذا الكود
هذا الكود يقوم بجلب جميع البيانات الموجودة في الحقل it2 بشرط po2 يساوي false
وإظهار النتيجة في combobox وهو شغال تمام
أريد التعديل عليه بحيث يقوم بفرز البيانات في الحقلit2 ولا يظهر تكرار البيانات
مثلا الحقل it2 موجود فيه 5 بيانات هي احمد ، محمد ، احمد ، علي ، خالد
تكون النتيجة احمد ، محمد ، على ، خالد
PHP كود :
Dim cnStr As String, cmdText As String
SQLstr = "SELECT it2 FROM mate WHERE po2 = False"
newConnection.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, newConnection)
DataAdapter1.Fill(DataSet1, "pym")
newConnection.Close()
Dim i As Integer
For i = 0 To DataSet1.Tables("pym").Rows.Count - 1
ComboBox1.Items.Insert(i, DataSet1.Tables("pym").Rows(i).Item("pna3"))
Next
RE: تعديل كود البحث في حقل معين وإظهار النتيجة في الكومبو بوكس - momiana1 - 19-03-15
تم إيجاد الحل ، آسف على إزعاجكم
تم وضع كلمة DISTINCT بعد كلمة SELECT
PHP كود :
SQLstr = "SELECT DISTINCT it2 FROM mate WHERE po2 = False"