如何使用记录集数据填充数组

Question

我试图将记录集中的数据直接移动到数组中.我知道这是可能的,但具体来说我想在VBA中这样做,因为这是在MS Access 2003中完成的.

通常我会做类似以下的事情来实现这个目标:

    Dim vaData As Variant 
    Dim rst As ADODB.Recordset

    ' Pull data into recordset code here...

    ' Populate the array with the whole recordset.
    vaData = rst.GetRows 

VB和VBA之间存在什么差异,这使得这种类型的操作不起作用？

性能问题怎么样？这是一项"昂贵"的行动吗？

Answer 1

以下代码适用于我:

Dim rst           As ADODB.Recordset
Dim vDat          As Variant

Set rst = CurrentProject.Connection.Execute("select * from tblTemp4")
vDat = rst.GetRows

进行调试编译,如上所述,这可能是引用问题.如上所述,有些人更喜欢DAO,但请记住,DAO要求你做一个movelast.ADO没有.如今,ADO或DAO真正归结为您的优势,性能很少成为问题.ADO往往对对象模型有点清晰,但无论你的熟人是什么,在大多数情况下都是最好的选择