在 VBA 中将访问查询类型从传递 (ODBC) 查询动态更改为常规选择查询

Question

我对动态使用 Microsoft Access 查询很感兴趣，有时作为使用 ODBC 的传递查询以访问远程 SQL Server，有时作为本地选择查询以访问同一 Access 数据库中的表。但是，QueryDef.Type 属性是只读的，我不知道如何更改它。

所以在代码中它看起来像：

Dim qd As DAO.QueryDef
Set qd = CurrentDB.QueryDefs("qrySubForm1")

'this line turns the qd.Type property to dbQSQLPassThrough automatically I believe
qd.Connect = "ODBC;--connectionstring--"  

qd.SQL = "Select * from SomeRemoteTable"

'populate the subform with the results of the Pass Through query
SubForm1.SourceObject = "Query.qrySubForm1" 

'Intent: change to regular select query.
qd.Type = dbQSelect   ' Error: read-only property

qd.SQL = "Select * from ALocalTable"

' now change the SubForm to show results of the local query
SubForm1.SourceObject = "Query.qrySubForm1"  

QueryDef Type 属性是this 枚举中的值之一。

如果我在两个本地查询之间切换，或者在两个直通查询之间切换，它工作正常。只有当我尝试在直通查询和本地查询之间切换时才会遇到问题。

更新： This 对另一个 SO 问题的回答似乎表明我可以在查询定义中添加一个属性，但我不确定这是否适用于“类型”的情况。

Answer 1

正确的方法是删除并创建QueryDef。

在更改为本地表之前添加：

DoCmd.DeleteObject acQuery, qd.name
Set qd= MyDB.CreateQueryDef(qd.name)
qd.SQL = "Select * from ALocalTable;"
qd.close

如果你想返回直通：

DoCmd.DeleteObject acQuery, qd.name
Set qd= MyDB.CreateQueryDef(qd.name)
qd.connect = GET_CONNECTION_STRING
qd.SQL = "Select * from SomeRemoteTable;"
qd.close

对于更新查询设置“qd.ReturnsRecords = false”