27-09-16, 01:27 AM
السلام عليكم
اليكم الكود لتعبئة الكومبوبوكس بس اريد كود لمنع الاسم المتشابهة من التكرار في الكومبوبوكس
حيث 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