如何在Access-ADP中修改Connection.CommandTimeout？设置无效求助

我之前维护Access ADP连接SQL Server 2008时，也碰到过一模一样的问题——明明执行了CurrentProject.Connection.CommandTimeout = 0，调试输出却还是30，根本没生效。后来折腾了一阵才找到原因和解决办法，分享给你：

为什么直接修改不生效？ #

在Access ADP里，CurrentProject.Connection是一个已经处于打开状态的ADO连接实例。ADO的CommandTimeout属性在连接打开后，多数情况下是只读的（或者修改后不会实时生效），因为这个属性的生效时机是在连接初始化阶段，而非连接建立之后。

可行的解决方案 #

1. 重新创建连接并替换现有连接

你可以手动新建ADODB连接对象，设置好超时后替换CurrentProject.Connection，新的超时设置就能生效：

Dim newConn As ADODB.Connection
Set newConn = New ADODB.Connection

' 复用原连接字符串，避免重新配置
newConn.ConnectionString = CurrentProject.Connection.ConnectionString
newConn.CommandTimeout = 0 ' 设置无限制超时
newConn.Open

' 替换当前项目的连接
Set CurrentProject.Connection = newConn

' 现在再打印验证：
Debug.Print CurrentProject.Connection.CommandTimeout ' 应该输出0了

⚠️ 注意：替换连接会关闭原来的连接，要确保此时没有其他正在执行的数据库操作，避免报错。

2. 修改ADP项目的全局超时设置

这是更简单的全局解决方案：

• 打开你的ADP项目，点击顶部菜单栏的工具 → 选项
• 切换到高级标签页，找到「ODBC超时」选项
• 把数值改成0（代表无限制），点击确定保存

这个设置会覆盖连接的默认超时，以后所有通过项目连接执行的查询都会使用这个超时值，无需再写代码修改。

3. 针对单个查询单独设置超时

如果不想全局修改超时，只想给某些长查询开绿灯，可以直接给单个Command对象设置超时：

Dim longQueryCmd As ADODB.Command
Set longQueryCmd = New ADODB.Command

Set longQueryCmd.ActiveConnection = CurrentProject.Connection
longQueryCmd.CommandTimeout = 0 ' 单独给这个查询设无限制超时
longQueryCmd.CommandText = "你的长耗时SQL语句"

' 执行查询
Dim rs As ADODB.Recordset
Set rs = longQueryCmd.Execute

这种方式不会影响其他查询的超时设置，灵活性更高。

额外注意事项 #

• 别忘了检查SQL Server端的设置：打开SQL Server Management Studio，右键服务器→属性→连接，查看「远程查询超时值」，如果这里设了非0值，即使Access这边设0，也会被SQL Server的限制覆盖。
• 排查一下代码里有没有其他地方重置了CommandTimeout属性，比如某些公共模块或者事件里又把它改回30了。

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