Delphi 7 中，如何快速判断SQL是否能连接上？？

Delphi 7 中，如何快速判断SQL是否能连接上？？

谢谢各位！！

with DM do

begin

Conn.Connected := False;

Conn.ConnectionString := Connstring;

try

Conn.Connected := True;

except

Application.MessageBox(‘Server connect error!!‘,cp_Main,MB_OCE);

end;

end;

你这个只是先断开再重新连接一下，如果SQL服务是没有开启的话还是会很慢的

如何判断SQL是否连接，提高判断速度？？？

你可以把ADOConnection.ConnectionTimeOut设定为1，这样会比较快，或者你可以直接判断SQL服务是否启动（本机）。

虽然把连接时间调短了，不过你在测试的时候还是会发现连接时间非常慢。

这个问题的关键是你想要多快？秒级？毫秒级？

本人觉得毫秒级是不可能的了。。。

秒级的话，还得看你的本机反应时间，服务器反应时间，网络状态等，一秒能判断出来就不错了。想要更快不可能啊。

把ADOConnection.ConnectionTimeOut设定得太小也不好，有时候因为服务器响应时间及网络的问题，得好几秒才能连接得上。

可以用1433端口是否打开来判断sql服务是否停止或链接