如何將數據庫查詢添加到字符串列表

Question

在這裏，我只想將每行的值用「＃ - ＃」作爲分隔符存儲到1個變量中，並將它們附加到字符串列表中，但它不是工作，有沒有辦法做到這一點？在此先感謝

Private result As List(Of String) 

Public Function GetFromDB() 

    Dim values As String 
    Try 
     result = New List(Of String) 
     myConn = New SqlConnection("SERVER=ABALTAZAR-L1\SQLEXPRESS;Database=test;Integrated Security=True;") 
     myCmd = myConn.CreateCommand 
     myCmd.CommandText = "SELECT * FROM tbl_Item" 
     myConn.Open() 
     myReader = myCmd.ExecuteReader() 
     values = String.Join("#-#", myReader.GetValue(0), myReader.GetValue(1), 
          myReader.GetValue(2), myReader.GetValue(3)) 
     result.Add(values) 
     myConn.Close() 
    Catch ex As Exception 
     MsgBox(ex) 
    End Try 
    Return result 
End Function 

Answer 1

您需要添加while循環在你的代碼來檢索myReader每一行。還有一件事，在你的代碼中不需要使用string.Join，你可以直接從你的sql查詢中使用Concat()函數獲得連接列。這是您的修改代碼。

Try 
    result = New List(Of String) 
    myConn = New SqlConnection("SERVER=ABALTAZAR-L1\SQLEXPRESS;Database=test;Integrated Security=True;") 
    myCmd = myConn.CreateCommand 
    myCmd.CommandText = "SELECT CONCAT(Column1, '#-#', Column2, '#-#', Column3) AS ResultCol FROM tbl_Item" 
    myConn.Open() 
    myReader = myCmd.ExecuteReader() 
    While myReader.read() 

     result.Add(myReader.GetValue(0)) 
    End While 

    myConn.Close() 
Catch ex As Exception 
    MsgBox(ex) 
End Try