(27-09-16, 01:27 AM)هاوي1995 كتب : السلام عليكم
اليكم الكود لتعبئة الكومبوبوكس بس اريد كود لمنع الاسم المتشابهة من التكرار في الكومبوبوكس
حيث distinct لم ينفع معيكود :
Dim cmd As New OleDbCommand
Dim reader As OleDbDataReader
cmd = New OleDbCommand("select * from table1", cn)
cn.Open()
reader = cmd.ExecuteReader
While reader.Read
ComboBox1.Items.Add(reader.Item(2))
End While
cn.Close()
End Sub
Distinct هو الحل الصحيح و لكن يجب إزاله الهجمة مع ذكر إسم العمود

