Question

代码实现delphi与sqlserver的连接

由于网络的原因，delphi与sqlserver的连接会中断，要求不重新启动程序的情况下，程序检测到连接中断，则重新连接。
这里用代码实现重新连接怎么写？
程序中AdoConnection控件的属性ConnectionString已经设置好了，也用过connection.Close;
connection.Open;的方法。都不奏效。
现在重点是程序运行一段时间后会因为ip冲突而断了连接，想要内部自行连接。

Answer 1

在con1的AfterDisconnect事件中，添加代码
con1.Connected :=false;
con1.ConnectionString :='Provider=SQLOLEDB.1;Password=backspace123;Persist Security Info=True;User ID=sa;Initial Catalog=bacd;Data Source='+s1;
con1.Connected :=true;
再打开需要用到的表就可以了．如果网断的时间比较长就只能加入timer，定时检测con1是否连接，断开了就自动连上．

Answer 2

首先要设定AdoConnection属性KeepConnection 为False。
这样可以保证每次SQL连接取数后，connection都会为False。但此种设置会导致系统效率下降。

Answer 3

在程序中调用ping，检查ping的返回值，当返回为超时的时候主动断开数据库连接连接，当返回值为连通时连接数据库（需加一个数据库是否已经连接的判断）

Answer 4

if not AdoConnection.connected then
begin
AdoConnection.connect := true;
end;
然后 on object inspector,
set loginprompt = false

Answer 5

在timer组件中加入个判断
if not ado.connected then
begin
重新连接的代码
end;