tadoquery 执行select 语句 偶尔 会有延迟(高手指点)
while i<300 do
begin
i:=i+1;
GetSystemTime(SysTime);
timecur:= IntToStr(SysTime.wMinute)+'-'+ IntToStr(SysTime.wSecond)+'-'
+IntToStr(SysTime.wMilliseconds);
SQLStr := 'insert into haoshijian (timecur) values('''+timecur+''')';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(SQLStr);
ADOquery1.ExecSQL;
GetSystemTime(SysTime);
timea:= IntToStr(SysTime.wMinute)+ IntToStr(SysTime.wSecond);
SQLStr := 'update haoshijian set timea='+timea+' where timecur="'+timecur+'"';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(SQLStr);
ADOquery1.ExecSQL;
GetSystemTime(SysTime);
timea:= IntToStr(SysTime.wMinute)+ IntToStr(SysTime.wSecond);
SQLStr := 'update haoshijian set timeb='+timea+' where timecur="'+timecur+'"';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(SQLStr);
ADOquery1.ExecSQL;
SQLStr:='select ZDH,KPYBM from JJQ_SPDY_ZDXX where IP="10.10.2.228"';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(SQLStr);
ADOquery1.ExecSQL;
GetSystemTime(SysTime);
timea:= IntToStr(SysTime.wMinute)+ IntToStr(SysTime.wSecond);
SQLStr := 'update haoshijian set timec='+timea+' where timecur="'+timecur+'"';
ADOquery1.Close;
ADOquery1.SQL.Clear;
ADOquery1.SQL.Add(SQLStr);
ADOquery1.ExecSQL;
end;
执行结果如下:
timecur timea ab timeb bc timec id
第一个时间延迟点
17-36-934 1736 NULL 1736 NULL 1737 1
17-53-481 1753 NULL 1753 NULL 1753 169
17-53-574 1753 NULL 1753 NULL 1753 170
17-53-653 1753 NULL 1753 NULL 1843 171
18-43-199 1843 NULL 1843 NULL 1843 172
18-43-309 1843 NULL 1843 NULL 1843 173
18-43-387 1843 NULL 1843 NULL 1843 174
18-43-481 1843 NULL 1843 NULL 1843 175
18-43-559 1843 NULL 1843 NULL 1843 176
第二个时间延迟点
18-52-543 1852 NULL 1852 NULL 1852 281
18-52-621 1852 NULL 1852 NULL 1852 282
18-52-699 1852 NULL 1852 NULL 1852 283
18-52-778 1852 NULL 1852 NULL 1944 284
19-44-387 1944 NULL 1944 NULL 1944 285
19-44-543 1944 NULL 1944 NULL 1944 286
19-44-637 1944 NULL 1944 NULL 1944 287
19-44-715 1944 NULL 1944 NULL 1944 288
19-44-793 1944 NULL 1944 NULL 1944 289