SQL 连接问题

Question

启动的时候
procedure TForm1.Button1Click(Sender: TObject);
begin
dm.adoc.Connected:=true;
open_Thread.Create.OnTerminate := open_Thread;
end;//=========================open_Thread.Create;线程中代码sql:='SELECT aaa '
    +' FROM dbo.T_aaa '
    +' WHERE (ID BETWEEN 100000 AND 105000)'; dm.ADOQuery1.Close;
 dm.ADOQuery1.SQL.Text:=sql;
 try
 dm.ADOQuery1.Open;if dm.ADOQuery1.RecordCount >0 then
I_N:=1200000 div dm.ADOQuery1.RecordCount;.....其它工作
 sleep(I_N);//以上问题
程序启动 SQL正常
但是有时候 一两个小时以后 
有时候会出现SQL 打开了 什么都没有~好像是查不到 还是连接不上但不会出现提示~也不知道是没打开还是什么问题
两台服务器 一台会出现一台不会出现

Answer 1

ADO的操作如果是在 OnExecute 中就要 CoInitialize 

Answer 2

线程创建时没有
inherited Create(True);
这样创建时就直接挂起了

Answer 3

constructor open_Thread.Create;
begin
FreeOnTerminate:=True;inherited Create(false);
end;

Answer 4

最后 动态生成ado 其实是网络有时候会断开~~导致ado失去连接