当delphi连接一个错误的connectionstring时,如何提高其提示速度.

Question

当使用
try
adoq:=tadoquery.Create(nil);
adoq.ConnectionString:=connstr;
....except
   showmessage('数据库连接出错了');
end;
连接connstr,有时因数据库自身原因无法连接,delphi在连接这个数据源时,速度非常的慢,大概需要一分钟的时间,才给出出错提示.请问各位高手,有没有好的方法提高,出错提示速度.

Answer 1

找到了这样几个个语句,设置为:
adoq.CommandTimeout=5000;
adoq.Connection.CommandTimeout=5000;
adoq.Connection.ConnectionObject.ConnectionTimeout:=5000;但前两个没效果
后一个不管理设置时间是多少,一运行就提示,并且当正确的connctionstring连接,也提示出错.

Answer 2

adoq.Connection.ConnectionTimeout:=5000

Answer 3

不要直接使用adoq.ConnectionString
使用一个TADOConnection
设置ADOConnection.ConnectionTimeout:=5
我测试过没有问题。