使用查询创建adodb RecordSet

Question

我想通过触发存储在MsAccess中的查询来获得excel VBA中的记录集。

当我添加一个正确的SQL查询时，代码工作正常，但我想避免将查询添加到代码中，我想使用存储在MSACCESS中的查询。

sql = "select * from qryUploadData"
With RS
        .ActiveConnection = conn
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open sql
End With

qryUploadData是访问查询的名称。如果我将它放入一个SQL查询就好像它是一个表，它可以正常工作，但它不会，如果我尝试直接打开它。有没有办法使用它？

Answer 1

我认为我之前的评论解释了它，但是如果它有点模糊，调用查询的名称作为你的sql命令应该导致查询在Access中运行。你应该能够：

sql = "qryUploadData"
With RS
        .ActiveConnection = conn
        .CursorType = adOpenStatic
        .LockType = adLockOptimistic
        .Open sql
End With