tadoquery 执行select 语句 偶尔 会有延迟(高手指点)

hcqi2004 2008-04-27 10:35:41
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


...全文
65 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
hcqi2004 2008-05-03
  • 打赏
  • 举报
回复
问题已经解决,原来是数据库cache设置不够大!
hcqi2004 2008-04-29
  • 打赏
  • 举报
回复
在执行结果中间位置,你可以看到有两次相邻的操作时间间隔是40多秒阿!
ADOquery1:类型为ADOquery;
ziping 2008-04-28
  • 打赏
  • 举报
回复
不明。

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧