Question

我正在网上查看有关如何从ms访问组合框填充数据的代码，我使用了我找到的所有代码，但这些代码都没有。我真的需要帮助来解决这个问题。这是我用过的代码之一。

MyConn = New OleDbConnection
    MyConn.ConnectionString = connString
    MyConn.Open()
    Dim cmd As New OleDbCommand
    cmd.Connection = MyConn
    cmd.CommandText = "SELECT DISTINCT [Worker Name] from OVRL_REPORTS"

    Dim dr As OleDbDataReader = cmd.ExecuteReader
    While dr.Read
        cbx_wname.Items.Add(dr.Item(0))
    End While
    dr.Close()

cbx_wname是我的组合框的名称。

Answer 1

我会评论并说Have a look into the command 'OleDbDataAdapter'但是我需要更多的声誉来评论我只是把我设法成功的工作作为答案，希望它会帮助你

此外，我自己也相当新，当我尝试使用普通的DataReader从Access获取值到Combobox时，我也无法使其工作。

以下是＆＃39; jist＆＃39;我使用OleDbDataAdapter从Access填充的第一个工作的Combobox中的一个，并且应用了您的字段/表名。

    ' DataSet for Storing the return values from Access
    Dim DataSet As New DataSet()

    ' Command for Getting values from Access
    Dim Command As OleDbDataAdapter = New OleDbDataAdapter("SELECT [Worker Name] FROM [OVRL_REPORTS]", myconnection)

    ' Open Connection
    myconnection.Open()

    ' Fill DataSet with Return Values from Access
    Command.Fill(dsDoctype, "Worker Name")

    ' Set DisplayMember and DataSource to values Stored in DataSet
    With cbx_wname
        .DisplayMember = "Worker Name"
        .DataSource = DataSet.Tables("Worker Name")
    End With

    myconnection.Close()

我会准确发布我目前如何填充组合框，但整个过程分为几个功能。

我使用这个网站作为让Comboboxes工作的基础 - homeandlearn - Data Sets and Data Adapters希望它也可以帮助你。

如何从ms访问vb.net组合框填充数据？

1 个答案: