VB.NET 如何从数据库获取行值到文本框（多行）

Question

我有这段代码（在网上某处找到的，甚至可能在 Whosebug 上找到的）

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 个用户，但是当我运行此代码仅最后一个显示在文本框中。

假设我的 table 看起来像这样

用户

一
二
三

但我的文本框只显示 "three"

如何导出和显示用户列中的所有行并用新行分隔它们？

如果容易的话，我想要一个列表框的代码。你知道，比如获取列名（使用 sql 查询）并为每一行在列表视图中创建一个新项目。

PS：代码运行良好，只是需要进行调整。我在 vb.net 中使用数据库大约 3 天，所以我的问题可能很简单，但对我来说仍然很难。

谢谢。

Answer 1

  While reader.Read()
     TextBox1.Text &= reader(0).ToString() & Environment.NewLine 
  End While

还要确保设置 TextBox1.Multiline = true

VB.NET 如何从数据库获取行值到文本框（多行）

VB.NET How to get row values from database to textbox (multiline)

database

vb.net

ms-access