[هاوي1995]

(27-09-16, 02:41 AM)HASAN6.0 كتب :

كود :

Dim cmd As New OleDbCommand
       Dim reader As OleDbDataReader
       cmd = New OleDbCommand("select * from table1", cn)
       cn.Open()
       Dim list As New List(Of String)
       reader = cmd.ExecuteReader
       While reader.Read
           list.Add(reader.Item(2))
       End While

       cn.Close()
       list = list.Distinct().ToList()
       ComboBox1.DataSource = list

كووووووود رائع وكان يحقق لي المطلوب
بس للاسف لم يعمل معيولم تظهر اي بيانات في الكومبوبوكس

---

(27-09-16, 02:10 AM)ممدوح كتب : وعليكم السلام

distinct  تنفع اذا عرفت طريقة SQL
في مثالك لا تنفع distinct مع النجمة

كود :

Using daa As New OleDbDataAdapter("SELECT DISTINCT [column1] FROM [table1]", cn)
   Dim dtt As New DataTable
   daa.Fill(dtt)
   ComboBox1.Items.AddRange((From x In dtt.Rows Select x.Item("column1")).ToArray)
End Using

غير column1 باسم الحقل المطلوب قراءته

كووود رهيب بس من يوم شفت داتا ادبتر كاني شفت صاعقة امامي وبصراحة بحاول بقدر الامكان ابتعد عن
dataAdapter
daa.fill

---

(27-09-16, 06:31 AM)سعود كتب : إستخدم شرط  مثلا

PHP كود :

           If ListBox1.Items.Contains(h) = False Then
                ListBox1.Items.Add(h)
            End If 


غير الليست بوكس الى كومبوبوكس.
h=القيمة المعادة من الجدول.

PHP كود :

 While reader.Read
If combobox1.items.contains(reader.Item(2))=false then
 ComboBox1.Items.Add(reader.Item(2))
End If
 End While 


على حسب فهمي ان هذا كود شرط منع اي اسم او قيمة مشابهة في الكومبوبوكس ولكن وين اضع كودك في كودي
وهل لي ان استغني عن كودي الاول او ادمج كودي مع كودك بصراحة صرت نفس التايه