迁移数据中心后DoCmd.TransferText执行异常（错误-3034）求助

Access .mdb数据库迁移到新数据中心后出现两个异常：

1. 查询、数据加载操作明显变慢
2. 原本正常运行的DoCmd.TransferText导出CSV代码报错，错误提示为保留错误(-3034)；无对应错误说明

涉及代码片段：

DoCmd.TransferText acExportDelim, "tmpExport", FileName, hasfieldnames:=True

其中tmpExport是代码动态创建后删除的临时查询，FileName由时间戳加数据库ID生成。批量导出时（比如要生成4个文件），同一会话得尝试4-5次才能完成：首次可能只生成2个，后续尝试能多生成几个，反复试才能全部导出；甚至单条数据导出也会触发同样错误。升级数据库到.accdb格式也没解决，确认问题出在DoCmd.TransferText命令上，原数据中心环境完全正常。

• 存储IO与权限：新数据中心存储的读写权限是否给足？检查Access进程对导出路径的读写权限，尤其是动态生成文件名时会不会有临时文件锁冲突。另外测试存储IO性能，迁移后的IO延迟如果比原环境高，会直接导致查询慢、导出时资源竞争。
• 临时查询的资源清理：动态创建tmpExport后，有没有确保导出完成就立刻释放并删除？会不会存在查询没关闭就删、或者多次创建时没处理重名（哪怕删了，Access可能留缓存）的情况？
• Access引擎版本：新服务器上的Access数据库引擎（ACE/Jet）版本和原环境是否一致？不同版本（尤其是32位/64位）对动态查询、文本导出的处理逻辑可能有差异，容易出兼容性问题。
• 数据库损坏：迁移过程中有没有出现文件损坏？用Access自带的压缩和修复数据库工具扫一遍，表或查询的损坏可能在动态操作时暴露出来。
• 服务器资源限制：新数据中心的服务器有没有CPU、内存或磁盘IO的限制？批量导出时会不会有其他进程抢资源，导致Access引擎没法及时完成导出。

• 优化临时查询的生命周期：
  1. 创建临时查询前先检查是否存在同名的，有的话先删干净：

     If CurrentDb.QueryDefs.Exists("tmpExport") Then
         CurrentDb.QueryDefs.Delete "tmpExport"
     End If
     

  2. 导出完成后立刻关闭查询对象、删除查询，释放资源：

     Dim qdf As QueryDef
     Set qdf = CurrentDb.CreateQueryDef("tmpExport", strSQL)
     DoCmd.TransferText acExportDelim, "tmpExport", FileName, hasfieldnames:=True
     ' 清理步骤
     qdf.Close
     CurrentDb.QueryDefs.Delete "tmpExport"
     Set qdf = Nothing
     

• 调整导出路径与权限：
  1. 先把文件导出到本地临时目录，完成后再移到目标共享路径，减少网络IO延迟和权限问题
  2. 确保Access运行的账户对导出路径有完全控制权限，包括创建、修改、删除文件的权限
• 统一Access引擎版本：
  1. 安装和原环境一模一样的Access数据库引擎版本（注意32位/64位要匹配），避免版本差异导致的兼容性问题
• 数据库维护：
  1. 对迁移后的数据库做压缩和修复，消除迁移时产生的文件碎片或损坏
  2. 在VBA编辑器里执行【调试】→【编译】，修复代码的编译错误或版本兼容问题
• 优化批量导出逻辑：
  1. 批量导出时加个短暂等待（比如DoEvents或者Sleep 500），给Access引擎足够时间释放资源
  2. 尽量避免频繁创建删除临时查询，试试直接用SQL语句导出（如果DoCmd.TransferText支持的话，或者换一种调用方式绑定SQL而非查询名）

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