100分求助:请问 有两个SQL 数据库,如果数据库1号连不了,就连数据库2号怎么写啊
现在的情况是
有个服务器 是装在 192.168.1.10 但有时这台电脑会关掉或者其他原因不能连接到
还有一个服务器是本机 127.0.0.1
现在打算如果 192.168.1.10 不能用的话 就存在本机的话,这程序 应该怎么写?
还有就是默认的连接超时 要等半天才算连接超时, 怎么样设置成 1秒 没反应 就算超时?
[解决办法]
private function MakeConnect as adodb.connection
on error goto errhandler
dim bRetry as boolean
dim cnn as new adodb,connection
bretry=true
cnn.connectionstring=constCnt1 'constCnt1 连接到第一个连接的连接串常数
cnn.open
set MakeConnect =cnn
exit function
if bretry then
if err.number=超时错误的数值 then
cnn.connectionstring=constCnt2'constCnt2 连接到另一个连接的连接串常数
bretry=false
resume
end if
end if
end sub
[解决办法]

引用:

谢谢掉供算法哈
现在程序是能用了.问题是有点儿慢.服务器没开的话,大概是要几十秒才有反应.这不能接受啊
设置了
cn.CommandTimeout = 1
cmd.CommandTimeout = 1
都不行,还是慢要等半天不知道怎么回事
所以我找了点PING的代码.先看能不能PING通服务器.可以的话就再试连SQL服务器.这样快多了

等待几十秒正常，因为此时服务器1已经处于异常状态，必须等待超时

ConnectionTimeout 属性 (ADO)


指示在终止尝试和产生错误前建立连接期间所等待的时间。

设置和返回值

设置或返回指示等待连接打开的时间的长整型值（单位为秒）。默认值为 15。

说明

如果由于网络拥塞或服务器负载过重导致的延迟使得必须放弃连接尝试时，请使用 Connection 对象的 ConnectionTimeout 属性。如果打开连接前所经过的时间超过 ConnectionTimeout 属性上设置的时间，将产生错误，并且 ADO 将取消该尝试。如果将该属性设置为零，ADO 将无限等待直到连接打开。请确认正在对其编写代码的提供者会支持 ConnectionTimeout 功能。

连接关闭时 ConnectionTimeout 属性为读/写，而打开时其属性为只读。