用ACCESS中的VBA编程,连接远端SQL Server数据库,出现超时错误。
错误信息:
运行时错误 '2147217871 (80040e31)' :
超时已过期
尝试了多种解决方法,包括:
在打开连接时设置超时:
conn.Open "DRIVER={SQL Server};SERVER=166.111.***.***;UID=***;PWD=***;DATABASE=***;Connect Timeout=720"
通过设置Connection对象的ConnectionTimeout属性:
conn.ConnectionTimeout = 720 '单位是秒
conn.Open "DRIVER={SQL Server};SERVER=166.111.***.***;UID=***;PWD=***;DATABASE=*** “
但这些方法都没有收到明显的效果,问题依旧。
最后,还是通过设置Connection对象的CommandTimeout属性是问题得以解决。
conn.CommandTimeout= 720 '单位是秒
下面是关于Connection对象的两个超时属性的比较:
CommandTimeout 可读写Long类型,指定中止某个相关Command对象的Execute调用之前必须等待的时间。默认值为30秒。
ConnectionTimeout 可读写Long类型,指定中止一个失败的Connection.Open方法调用之前必须等待的时间,默认值为15秒。
PS:用企业管理器或查询分析器连接数据库时可以在客户端中进行设置。