当前位置: 代码迷 >> VFP >> 连接SQL SERVER,该怎么处理
  详细解决方案

连接SQL SERVER,该怎么处理

热度:7985   发布时间:2013-02-26 00:00:00.0
连接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
  相关解决方案