如何從ms訪問vb.net組合框填充數據？

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中的值獲取到組合框時，我也無法使其正常工作。

下面是我使用OleDbDataAdapter從Access填充的第一個工作組合框之一的“ jist”，並應用了您的字段/表名。

    ' 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()

我會確切地發布當前如何填充組合框，但整個過程分為多個功能。

該網站是我用作使組合框正常工作的基礎-homeandlearn-數據集和數據適配器希望它也能為您提供幫助。