如何测试SQL是否能够连接上？

[sanxiang]

我现在要做这样的一个功能：

背景：有N台机器都装有同样一套SQL后台（备份），有不同的SQL Server名，比如A机器上的SQL Server名为A，B机器上的SQL Server名为B，……，但是这两几台机器上安装的数据库完全相同，比如我用的数据库名叫做DataBaseTest，那么这N台SQL Server上的数据库名都叫DataBaseTest；

要求：我要尝试对这N台SQL Server进行连接尝试，如果能够连接上的，那么返回给我能连接上的标志，如果不能连接上的，那么给我不能连接上的标志；（可能的话，最好能够有连接上的连接时间等信息）；

如果哪位兄台知道方法，麻烦告诉我，可以在站上告诉我，也可以通过
msn：[e-mail]
或：QQ：3040468 告诉我，谢谢！

[zjcxc]

使用程序,逐台服务器进行连接尝试,如果能建立连接,则记录能连接,否则记录不能连接.

[sanxiang]

关键我是不知道怎么样进行连接尝试，请赐教，呵呵

[zjcxc]

和开发软件一样,比如VB中使用ado对象

dim iDb
set idb=createobject("adodb.connection")
on error goto lb_err
idb.open "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名"
idb.close

msgbox("连接成功")
goto lb_exit

lb_err:
msgbox("连接失败")

lb_exit:

[sanxiang]

我用的是Delphi，用的是BDE的连接，我如果用connection去尝试连接，如果连不上的话，需要很长的时候，而且也没法给我一个返回参数；

[tdtjjiao]

比如果delphi 中的ado也可以测试连接成功与否啊。

[sanxiang]

大侠能否给出一个example呢，^_^