如何將從數據庫檢索到的所有值存儲到字符串變量或數組中

Question

我正在從表ProductItems中檢索名爲"Product Name"的列的值。使用For[...]Loop，我得到每一行的列值。

在第一個循環中，s1的值爲筆。在第二個循環中，s1的值是鉛筆只有並且它繼續。在最後一個循環中，存儲在s1中的值是水彩只有。

我希望所有這些ProductName的值存儲在字符串s1中。我嘗試使用String.Join方法並將值存儲在字符串數組中，但它不起作用。

這是我的代碼：

Dim s1 As String = Nothing 
Dim s2() As String = Nothing 
Dim index As Integer 

myConnection.Open() 
table = New DataTable 
str = "SELECT * FROM ProductItems" 
cmd = New OleDbCommand(str, myConnection) 
adapter = New OleDbDataAdapter(cmd) 
adapter.Fill(table) 
For index = 0 To table.Rows.Count - 1 
    s1 = table.Rows(index)("Product Name").ToString 
Next 
myConnection.Close() 

Answer 1

這是從你的問題不清楚你期望的結果是什麼，但你可以嘗試這樣的事情作爲開始：

Imports System.Data.OleDb 

Module Main 
    Sub Main() 
    Dim oProducts As List(Of String) 
    Dim aProducts As String() 
    Dim sSqlQuery As String 
    Dim oTable As DataTable 

    sSqlQuery = "SELECT * FROM ProductItems" 
    oTable = New DataTable 

    Using oConnection As New OleDbConnection 
     Using oCommand As New OleDbCommand(sSqlQuery, oConnection) 
     Using oAdapter As New OleDbDataAdapter(oCommand) 
      oConnection.Open() 
      oAdapter.Fill(oTable) 
     End Using 
     End Using 
    End Using 

    oProducts = New List(Of String) 

    For iIndex As Integer = 0 To oTable.Rows.Count - 1 
     oProducts.Add(oTable.Rows(iIndex)("Product Name")) 
    Next 

    aProducts = oProducts.ToArray 
    End Sub 
End Module 

aProducts現在是一個包含表中所有產品名稱的數組。