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
[解决办法]
