如何將sql的數據添加到組合框？

Question

該代碼有效

TextBoxService is a combobox

Connection()
Dim sql As String
CON.Open()
DTS = New DataSet
sql = "SELECT * FROM Service"
dap = New SqlDataAdapter(sql, CON)
dap.Fill(DTS, "Service")
TextBoxService.DataSource = DTS.Tables("Service")
TextBoxService.DisplayMember = "ServiceName"
TextBoxService.ValueMember = "ServiceID"

因為我需要2個組合框。 當我選擇一個組合框時，它將同時更改兩個組合框。 所以我嘗試用這個

bds = New BindingSource
DTS = New DataSet
bds.DataSource = DTS.Tables("Service")
TextBoxService.DataSource = bds
TextBoxService.DisplayMember = "ServiceName"
TextBoxService.ValueMember = "ServiceID"

但顯示此錯誤Cannot bind to the new display member

Answer 1

我發現，簡單而簡單的方法不只一種，如果您

*在數據源中導入SQL數據庫*選擇所需的表並設置對象類型，例如（組合框，文本框或復選框）*然后選擇例如組合框並單擊左上角的小箭頭*選擇數據源（表），顯示成員（字段名稱）*然后轉到組合框對象的屬性，然后選擇數據綁定加號*單擊文本，然后單擊要從中顯示數據的數據源（表）和字段

Answer 2

您也可以這樣做

聲明SQLConnection聲明SQLDataReader聲明SQLCommand

Try
    If Con.State = ConnectionState.Closed Then
        Con.Open()

    cmd.Connection = Con
    cmd.CommandText = "Select field1, field2 from table"


    dr = cmd.ExecuteReader()

    ' Fill a combo box with the datareader
    Do While dr.Read = True
        ComboBoxName.Items.Add(dr.GetString(0))
        ComboBoxName.Items.Add(dr.GetString(1))
    Loop

    Con.Close()
    End If

Catch ex As Exception
    MsgBox(ex.Message)

End Try

希望對你有效。