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

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

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

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

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

نقل قول:

---

نوشته شده توسط پرستو پارسایی

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

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"