Access VBA中如何序列化ImportXML与QueryDef::Execute操作？

你的推测是对的——ImportXML的隐式事务未提交，导致后续的QueryDef查询无法读取到刚导入的数据。以下是几种可行的解决思路：

1. 手动提交ImportXML的事务 #

Access通过ODBC连接SQL Server时，ImportXML会在隐式事务中执行，默认可能不会自动提交。手动调用事务提交可以强制写入数据，让后续查询可见：

Application.ImportXML DataSource:=SomeStructuredXMLfile, ImportOptions:=acAppendData
' 提交当前工作区的所有未完成事务
DBEngine.Workspaces(0).CommitTrans

With Application.CurrentDb.QueryDefs("MyUpdateQuery")
    .Parameters("[parm]") = ValueForParm
    .Execute dbFailOnError ' 加上该参数可捕获执行错误，便于调试
    Debug.Print .RecordsAffected
End With

2. 显式事务包裹ImportXML操作 #

用显式事务控制ImportXML的提交时机，同时加入错误处理保证数据一致性：

DBEngine.Workspaces(0).BeginTrans
On Error GoTo TransactionError

Application.ImportXML DataSource:=SomeStructuredXMLfile, ImportOptions:=acAppendData
DBEngine.Workspaces(0).CommitTrans

' 执行更新查询
With Application.CurrentDb.QueryDefs("MyUpdateQuery")
    .Parameters("[parm]") = ValueForParm
    .Execute dbFailOnError
    Debug.Print .RecordsAffected
End With

Exit Sub

TransactionError:
DBEngine.Workspaces(0).Rollback
MsgBox "导入失败: " & Err.Description

3. 刷新CurrentDb连接 #

如果是CurrentDb的缓存导致数据不可见，重新获取连接实例可以刷新状态：

Application.ImportXML DataSource:=SomeStructuredXMLfile, ImportOptions:=acAppendData
' 释放旧连接并重新获取
Set CurrentDb = Nothing
Set CurrentDb = Application.CurrentDb

With Application.CurrentDb.QueryDefs("MyUpdateQuery")
    .Parameters("[parm]") = ValueForParm
    .Execute dbFailOnError
    Debug.Print .RecordsAffected
End With

4. 调整ODBC连接的事务隔离级别 #

如果上述方法无效，检查ODBC连接的事务隔离级别，确保后续查询能读取已提交的数据。可以在连接字符串中添加配置：

ODBC;DRIVER={ODBC Driver 17 for SQL Server};SERVER=你的服务器;DATABASE=你的库;UID=账号;PWD=密码;Transaction Isolation Level=Read Committed;

或者在VBA中设置：

CurrentDb.Properties("ODBC;Transaction Isolation Level") = 2 ' 2对应Read Committed级别

内容的提问来源于stack exchange，提问作者AntoineL