检测与数据库连接的问题

[pszu123456]

现在我开发的程序是客户，服务器模式 但考虑如果客户与服务器连接以外断开客户就无法工作
能如果连接断开自动使用另一个连接字符传？

[hhjjhjhj]

用Connection.BeginTrans方法兼做对Connection的测试。

[bboos]

Public Cn As New ADODB.Connection

Sub main()
on error goto errhandel
Cn.ConnectionString =连接1
Cn.open
Exit Sub
Errhandle:
Cn.ConnectionString =连接2
Cn.open
end sub

[pszu123456]

bboos(梧桐)兄谢谢 我用的你的程序可以 但是要检测很长时间 有没有办法让时间短一些？

[by_stephen]

可以使用
Select Top 0 * From Table
来取数据库中的任意一个表。如果数据库不确定，可以取系统表。
实际上，我在开发的时候，是专门写了一个存储过程来检测连接的，并设计了自动尝试恢复的机制。