如何从数据库中选择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

如果您对数组以外的其他内容感兴趣，可以使用Collection或Dictionary。