在Recordset對象上使用GetRows不會返回行

Question

我正在嘗試將一個記錄集加載到數組中。我正在使用以下代碼：

Set rst = CurrentDb.OpenRecordset("SELECT id FROM TABLE1") 
bankacid = rst.GetRows() 
rst.Close 
i = UBound(bankacid, 2) 
MsgBox i + 1 

這不會返回任何行。如果我使用「bankacid = rst.getrows（5）」，它可以工作。

我是VBA的新手，非常感謝 指出我缺少的東西。

Answer 1

最好退後一步說出爲什麼你需要一個數組，畢竟DAO recorset比數組功能多得多。如果真的有必要使用數組，則使用ADODB。如果您只想引用字段和行，請使用Move，MoveFirst，MoveLast，MoveNext，MovePrevious和字段名稱（列）或序號位置（.Field（3）。