从数据库初始化一维数组

Question

我想从数据库初始化一维数组，但它没有初始化。

Dim cmdstring As String = "SELECT DISTINCT(category) from inventory"
command = New MySqlCommand(cmdstring, connection)

Dim reader As MySqlDataReader
reader = command.ExecuteReader(CommandBehavior.CloseConnection)

While reader.Read()
    Dim xValues() As String = reader("category")
End While

connection.Close()

Answer 1

  

Dim xValues（）As String = reader（＆＃34; category＆＃34;）

这不是初始化Array的过程。我可以假设您将xValues（）作为动态数组。因此，要使用数据进行初始化，您可以执行以下操作

＆＃13;

＆＃13;

        Dim xValues() As String

        While reader.Read()

            ReDim Preserve xValues(xValues.GetUpperBound(0) + 1)
            xValues(xValues.GetUpperBound(0)) = reader("category")

        End While

＆＃13;

＆＃13;

＆＃13;

你可以用另一种方式来做。如果将其声明为列表并希望将数据存储到该列表中。您可以按照以下方式执行此操作

＆＃13;

＆＃13;

        Dim xValues As New List(Of String)
        While reader.Read()

            xValues.Add(reader("category"))

        End While

＆＃13;

＆＃13;

＆＃13;

希望它可以给你一个方法。