我有这段代码（在网上某个地方找到它，甚至在stackoverflow上也可以找到）
Dim SQL As String = "SELECT User FROM T1 WHERE User IS NOT NULL;"
Using con As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\db2.accdb")
Dim command As New OleDbCommand(Sql, con)
con.Open()
Dim reader As OleDbDataReader = command.ExecuteReader()
While reader.Read()
TextBox1.Text = reader(0).ToString()
End While
reader.Close()
End Using
在我的数据库中，我有3个用户，但是当我运行此代码时，文本框中仅显示最后一个用户。
假设我的桌子看起来像这样
用户 一 二 三
但我的文本框仅显示“三个”
如何导出和显示“用户”列中的所有行，并用新行分隔它们？
如果容易的话，我想为列表框提供一个代码。您知道，例如获取列名（使用sql查询），并为每行在listview中创建一个新项。
PS：代码工作正常，只需要进行调整即可。我在vb.net中使用数据库工作了大约3天，所以我的问题可能很简单，但对我来说仍然很困难。
谢谢你。
While reader.Read()
TextBox1.Text &= reader(0).ToString() & Environment.NewLine
End While
还要确保设置TextBox1.Multiline = true
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
我来说两句