如何將數據庫列中的值添加到ComboBox而不重複？

Question

我有一個數據庫中的列有像好，壞和可能的值。有200行，其中有20行值好，50壞等等，我可以從數據庫加載值到一個組合框，但每個值（200）顯示在組合框，如何避免重複。我添加了我使用的代碼。

進口System.Data.SqlClient的

公共類Form1中

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 

    'CREATE OBJECT CONNECTION 
    Dim cn As New SqlConnection 

    With cn 
     .ConnectionString = "server=(local)\sqlexpress;database=trial;integrated security=true" 
     .Open() 
    End With 

    'CREATE OBJECT DATA TABLE AND DATA ADAPTER 
    Dim dt As New DataTable 
    Dim da As New SqlDataAdapter("select kode,nama from warna order by kode", cn) 

    da.Fill(dt) 
    If dt.Rows.Count > 0 Then 
     With ComboBox1 
      .Items.Clear() 'CLEAR ITEMS COMBOBOX 
      For i As Integer = 0 To dt.Rows.Count - 1 
       'ADD ITEMS TO COMBOBOX 
       .Items.Add(dt.Rows(i).Item("kode") & " - " & dt.Rows(i).Item("nama")) 
      Next 
      'CLEAR TEXT COMBOBOX 
      .Text = Nothing 
      .SelectedIndex = -1 
     End With 
    End If 

    'CLEAR ALL OBJECT AND MEMORY 
    With cn 
     .Close() 
     .Dispose() 
    End With 
    cn = Nothing 
    dt.Dispose() 
    dt = Nothing 
    da.Dispose() 
    da = Nothing 

End Sub 

末級

Answer 1

而在SQLAdapter填充數據使用DISTINCT關鍵字：

select distinct kode,nama from warna order by kode 

上面的行可以當你在Kode和nama組合中有重複的DB時使用。