arrays - 如何从数据库中选择 1 个字段然后存储到 vb6 中的数组

Question

如何获取数据库中的所有 id 编号然后将所有 id 编号存储到 vb6 中的数组中？

还是有另一种方法将所有 id 号仅存储在一个变量中？因为后面的程序中，我会一一使用id号。

Answer 1

ADO 记录集的GetRows方法返回一个数组。

此示例将表作为记录集打开并将其id值加载到数组中。

Dim rs As Object
Dim varGetRows As Variant

Set rs = CreateObject("ADODB.Recordset")
rs.Open "tblFoo", CurrentProject.Connection
varGetRows = rs.GetRows(, , "id")

我不知道你想对数组做什么，所以我只检查它的值......

Dim lngUBound As Long
Dim i As Long

lngUBound = UBound(varGetRows, 2)
For i = 0 To lngUBound
    Debug.Print varGetRows(0, i)
Next i

如果您对数组以外的东西感兴趣，可以使用集合或字典。