حذف ایتم تکراری در کمبوباکس

[پرستو پارسایی]

با سلام من از دیتا بیس کمبوباکس رو پر میکنم و میخوام آیتم ها تکراری نباشند . با کد زیر فقط اولین آیتم رو درست انجام میده و بقیه آیتم های تکراری حذف نمیشن ممنون میشم دوستان در صورت اطلاع پاسخ دهید سپاس

Using conn As New SqlConnection("Connection txt")
conn.Open()
Dim cmd As New SqlCommand("select Diamonds from TBL_Jewellery", conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim listName As IList(Of String) = New List(Of String)()
Do While dr.Read()
listName.Add(dr(0).ToString())
Loop
listName = listName.Distinct().ToList()
cmb_Lab.DataSource = listName
End Using

[ROSTAM2]

سلام. از اس کیو ال کمک بگیری بهتر نیست؟ https://www.w3schools.com/sql/sql_distinct.asp

[پرستو پارسایی]

کدی که در ابتدا درج کردم اشکالی نداره و کاملا صحیح کار میکنه . اشکال کار من در ثبت اطلاعات بود (ِ ی و ک ) معروف . با تصحیح ورودی اطلاعات مشکل حل شد.

[safari_m4]

با سلام من از دیتا بیس کمبوباکس رو پر میکنم و میخوام آیتم ها تکراری نباشند . با کد زیر فقط اولین آیتم رو درست انجام میده و بقیه آیتم های تکراری حذف نمیشن ممنون میشم دوستان در صورت اطلاع پاسخ دهید سپاس

Using conn As New SqlConnection("Connection txt")
conn.Open()
Dim cmd As New SqlCommand("select Diamonds from TBL_Jewellery", conn)
Dim dr As SqlDataReader = cmd.ExecuteReader()
Dim listName As IList(Of String) = New List(Of String)()
Do While dr.Read()
listName.Add(dr(0).ToString())
Loop
listName = listName.Distinct().ToList()
cmb_Lab.DataSource = listName
End Using
سلام بعد از SELECT این کلمه را اضافه کن Distinct یعنی "select Distinct Diamonds from TBL_Jewellery"