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

希望它适合你。

如何将sql的数据添加到组合框中？

2 个答案: