DAO.Recordset性能

Question

如果我要打开表或查询的DAO.recordset

会做像这样的事情

Set rs = CurrentDb.OpenRecordset("dbo_Some_Table", dbOpenDynaset, dbSeeChanges)

那就快点吧

Set rs = CurrentDb.TableDefs("dbo_Some_Table").OpenRecordset(dbOpenDynaset, dbSeeChanges)

或

Set rs = CurrentDb.QueryDefs("qrySomeQuery").OpenRecordset(dbOpenDynaset, dbSeeChanges)

或者没有区别，只是偏好。

Answer 1

尝试使用此命令来测试时序差异

 Dim StartTime As Double
 Dim SecondsElapsed As Double

 StartTime = Timer

在模块的末尾

 SecondsElapsed = Round(Timer - StartTime, 2)
 MsgBox "This code ran successfully in " & SecondsElapsed & " seconds", vbInformation

实际上，我只运行了每一个，这是结果。该查询是来自我上面使用的同一个表的SELECT *。我选择了一个表，我知道它也有大约一百万条记录，所以希望这能有所帮助？对不起，我昨天没有讲到这一点，一些报告功能坏了，我不得不修复它们。

​

​