连接SQL SERVER

[thinclient]

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

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

求代码如何实现以下：

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

[LittleCommit]

你可以将服务器连接的相关信息写到配置文件中，并设置好连接的优先级！
从配置文件中读取连接信息，依次连接服务器，直到连接成功,如果连接不成功，则弹提示框

[thinclient]

谢回复
我觉得写配置文件里易被修改，还是写在exe里好些

[奔四在望]

。。写在EXE里面，下次想修改要重新编译。。。

[UserA_dmin]

那就异常捕捉咯。

[都先生]

不提倡写到程序里。那样以后连接改变，每次都要重新编译

[LittleCommit]

你写配置文件可以加密嘛！

[thinclient]

谢以上百忙中的回复
请其它朋友也看看

[needacoder]

[Quote=引用 5 楼 jubobo 的回复:]
不提倡写到程序里。那样以后连接改变，每次都要重新编译
[/Quote]
谢,说的对
不过你说的情况在可预见的未来不会发生, 我的程序使用场合不太可能是其它的地方
所以,求方便,不求通用

[thinclient]

还请其它朋友看看有没有解决方法

[十豆三]

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
	Endif
Endif

不过推荐用配制文件来设置你的数据库名称，因为如果连接的是 computerroom 数据库，每次连接时都需要等待20秒以上，时间太长了。

[thinclient]

[Quote=引用 10 楼 apple_8180 的回复:]
SQL code

SQLSetprop(0,"ConnectTimeOut",10) && 连接超时等待10秒

gnConnHandle=Sqlstringconnect('DRIVER=Sql Server;SERVER=计算机名或IP地址;UID=用户名;PWD=密码;DATABASE=home')
If gnConnHandle<=0
gnCon……
[/Quote]
Great!!!!
Please allow me to try out, although the code you post hardly ever fails to work.

[dfwxj]

应当保存在信息表中，至于说加密不加密，各人自己看着办