Question

我在尝试将选择查询输出到列表框时遇到了一些困难。

数据库连接正在运行，实际上每当我对listbox1执行查询时，它确实添加了一个项目。

但该项目显示为空白，不包含任何数字或字符串值。

是否需要更改某些设置，允许列表框查看查询数据？我偶然发现了一些随机的谷歌点击，其中人们有类似的问题，并被告知自己更改列表框中的列设置。不幸的是，这样做对我没有任何影响。

任何对可能出错的人有任何逻辑思路的人？因为我的其余代码似乎工作正常（数据库连接代码，查询执行等）

非常感谢富有洞察力的帮助！

连接代码：

Dim con As New OleDbConnection
Dim dbProvider As String
Dim dbSource As String

Dim da As OleDbDataAdapter
Dim ds As New DataSet

Sub connect()

    dbProvider = "PROVIDER=Microsoft.ACE.OLEDB.12.0;"
    dbSource = "Data Source = C:\Users\marten\Desktop\KassaSysteem\ShopDb.accdb"

    con.ConnectionString = dbProvider & dbSource



End Sub
Sub con2()
    con.Open()

End Sub
Function sqlSelect(ByVal sqlString As String)

    da = New OleDbDataAdapter(sqlString, con)
    da.Fill(ds)
    Return ds

End Function

Sub reset()
    ds.Reset()
End Sub

查询代码：

  Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    db.connect()

    Dim sql As String
    sql = "SELECT * FROM Artikelen '"
    ds = db.sqlSelect(sql)




    ListBox1.Items.Add(ds)




    db.reset()

End Sub

我使用SELECT *作为示例，但即使选择特定的表对象也是如此。输出返回列表框中的可选空行。

Answer 1

您无法将DataSet添加为列表框项。您需要添加您感兴趣的每个项目。这样的内容可能会显示一些数据：

KeyedCollection

Vb Listbox问题，查询显示为blanc

1 个答案: