從SQL查詢添加項目到組合框

Question

嘿傢伙我想添加項目到我的組合框在vb.net。但我需要的數據在我的數據庫上。

我這裏有一個SQL查詢語句：

"SELECT DISTINCT(Tags) from Legal_Records" 

我想要做的就是添加這個SQL查詢的結果我的組合框。

任何人都可以幫助我，讓它變得簡單tnx傢伙！ :)

Answer 1

可以使一個DataGridView看起來像一個組合框..

刪除rowheaders和列標題..你可以通過添加「向下箭頭」按鈕複製的下拉作用..上arrowdown點擊按鈕添加一個事件..它應該顯示在DataGridView ..如果你點擊datagridview的單元格..你要的內容複製選定的細胞，並將其複製到文本框，在這之後隱藏的DataGridView ..

它只需要3個控件*，並且可以輕鬆管理您的數據源（使用datagridview）。

* (1)textbox and (2)arrow button down - to make it look like a combobox.. last is the (3)datagridview 

Answer 2

您可能不是從查詢返回一個結果多，但這裏是如何去這樣做你想要什麼：

1. 你需要某種形式的連接，如果你不已經有一個：

   Dim conn As SqlConnection = New SqlConnection('connection string)  
   conn.Open()

2. 你的命令來完成，現在只是做一些事情，如：

   Dim command As SqlCommand = New SqlCommand("SELECT DISTINCT(Tags) from Legal_Records", conn)

3. 現在，你需要一個讀者，就像這樣：

   Dim reader As SqlDataReader = command.ExecuteReader()     
   'your query will return an array of objects, unless you know there will be only one value to return, if that is the case, you can use command.ExecuteScalar() which will return only the first column of the first row 
   
   While reader.Read() 
   ComboBox1.Items.Add(reader.GetString(0)) 'You can also do GetInt32, GetDouble, etc. Everytime you call GetString or whatever you chooose, it will move to the next item in the object array             `

就是它，希望幫助，不要忘記關閉，所有資源的配置。

Answer 3

這裏是我的樣品

cbsection.Items.Clear() 
    strsql = "select DISTINCT(section) from sassign where grade like @field1" 
    sqlcmd = New SqlClient.SqlCommand(strsql, sqlconn) 
    With sqlcmd 
     .Parameters.AddWithValue("@field1", cbgrade.Text) 
    End With 
    sqldr = sqlcmd.ExecuteReader 
    While (sqldr.Read()) 
     With cbsection.Items.Add(sqldr("section")) 
     End With 
    End While 
    sqlcmd.Dispose() 
    sqldr.Close(