如何從數據庫中選擇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。