连接SQL SERVER,该怎么处理

连接SQL SERVER
我的程序用在三个不同的环境中，由于三个地方的SQL SERVER名字不同每次都需要改程序或在程序运行时输入名字

这三个地方的SQL SERVER服务器的名字分别为：home, office, computerroom

求代码如何实现以下：

让我的程序先试连到home,10秒连不上就自动试连office, 再10秒连不上就试连computerroom,再10秒连不上出一个出错提示框“找不到数据库服务器”并退出。


[解决办法]

SQL code

SQLSetprop(0,"ConnectTimeOut",10)    && 连接超时等待10秒gnConnHandle=Sqlstringconnect('DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=home')If gnConnHandle<=0    gnConnHandle=Sqlstringconnect('DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=office')    If gnConnHandle<=0        gnConnHandle=Sqlstringconnect('DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=computerroom')        If gnConnHandle<=0            Messagebox('找不到数据库服务器',48,'信息提示')            Quit        Endif    EndifEndif