Question

如果之前已经回答过，我会事先道歉，但是当我搜索时，我似乎无法找到我想要的东西。

我对VB不太熟悉。我想知道是否可以在Access数据库中读取整个表的列并使用VB将数据放入数组中？

Answer 1

如果您使用的是Access VBA，则可以使用Recordset.GetRows方法。

这将创建一个与记录集的设计相匹配的二维数组，它需要一个参数，即要检索的行数。要检索所有行，请在填充数组之前获取.RecordCount，或者输入一个您知道的数字大于所需的数字。

例如：

Sub ReadIntoArray()

    Dim rstName As Recordset
    Dim varName As Variant

    Set rstName = CurrentDb.OpenRecordset("SELECT FirstName, LastName FROM tblContact")

    varName = rstFirstName.GetRows(1000) ' Gets the first 1000 records

    ' Retrieve the 16th value from the 1st column
    Debug.Print varName(0, 15)

    ' Get the 100th value from the 2nd column
    Debug.Print varName(1, 99)

End Sub

如何使用VB将Access数据库列读入数组？

1 个答案: