VB.NET如何從數據庫中獲取行值到文本框（多）

Question

我有這樣的代碼（發現它的地方，在網絡上，甚至在這裏計算器）

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個用戶但是當我運行這個代碼時，只有最後一個顯示在文本框中。

比方說，我的表看起來像這樣

 
User 

one 
two 
three

但我的文本框只顯示「三」

我怎麼能導出和顯示來自列中的用戶的所有行，並將它們與新的生產線分開？

如果它很容易，我想有一個列表框的代碼。你知道，就像獲取列名（用sql查詢）和每一行在listview中創建一個新項目。

PS：代碼工作正常，只需要調整。我正在使用vb.net中的數據庫3天，所以我的問題可能很容易，但對我來說仍然很難。

謝謝。

Answer 1

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

同時一定要設置TextBox1.Multiline =真