تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تعديل كود البحث في حقل معين وإظهار النتيجة في الكومبو بوكس
#1
السلام عليكم

أريد التعديل على هذا الكود
هذا الكود يقوم بجلب جميع البيانات الموجودة في الحقل it2 بشرط po2 يساوي false
وإظهار النتيجة في combobox وهو شغال تمام
أريد التعديل عليه بحيث يقوم بفرز البيانات في الحقلit2 ولا يظهر تكرار البيانات
مثلا الحقل it2 موجود فيه 5 بيانات هي احمد ، محمد ، احمد ، علي ، خالد
تكون النتيجة احمد ، محمد ، على ، خالد
PHP كود :
Dim cnStr As StringcmdText As String

        SQLstr 
"SELECT  it2 FROM mate WHERE po2 = False" 

 
       newConnection.Open()
 
       Dim DataAdapter1 As New OleDbDataAdapter(SQLstrnewConnection)
 
       DataAdapter1.Fill(DataSet1"pym")
 
       newConnection.Close()

 
       Dim i As Integer
        For i 
0 To DataSet1.Tables("pym").Rows.Count 1
            ComboBox1
.Items.Insert(iDataSet1.Tables("pym").Rows(i).Item("pna3"))
 
       Next 
الرد }}}}
تم الشكر بواسطة:
#2
تم إيجاد الحل ، آسف على إزعاجكم
تم وضع كلمة DISTINCT بعد كلمة SELECT
PHP كود :
SQLstr "SELECT DISTINCT it2 FROM mate WHERE po2 = False" 
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مساعدة في نقل الصنف من شاشه البحث الي فاتوره الشراء gmailali 3 66 اليوم, 12:35 AM
آخر رد: مساعدة
  [VB.NET] طلب تعديل كود بحث من البحث في الاكسس الى البحث بالسكيول وشكراً m22sf 3 52 22-01-17, 01:39 PM
آخر رد: thevirus
  [VB.NET] كيف يتم البحث فى ليست فيو موجودة فى فورم اخر الماجيك مسعد 15 223 19-01-17, 08:33 PM
آخر رد: الماجيك مسعد
  ترتيب 2 ليست بوكس حسب احدهما samira20 6 138 06-01-17, 06:40 PM
آخر رد: samira20
  تعديل الكود (ظهور مسج بوكس عند عدم وجود الاسم) Namer 10 418 04-01-17, 01:12 AM
آخر رد: Namer
  [كود] استقسار عن الكومبوبكس والتيكست بوكس عبدالرحمن المكاوي 6 140 31-12-16, 07:35 PM
آخر رد: مساعدة
  [سؤال] تعديل html قبل عرضه في WebBrowser ali.alfoly 16 301 24-12-16, 11:48 AM
آخر رد: Basil Abdallah
  [كود] كود وضع رابط WebBrowser في التكيست بوكس hassan 2 514 21-12-16, 02:00 PM
آخر رد: Basil Abdallah
  تحميل قيم اكبرid فى الداتا جريد فيو داخل تسكت بوكس araxis 8 246 20-12-16, 08:42 PM
آخر رد: ابراهيم النعيمي
Information [VB.NET] تعديل بيسط على الكود 3asfa~mdmra 6 124 18-12-16, 04:31 AM
آخر رد: 3asfa~mdmra

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


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