请教：各位写入数据库Access所用的时间？？？？？？？

[boatzm]

我在Delphi 调试环境 写1000 条记录 测试出来是 40m 左右
无论是用TAdotable 或TAdoQuerry

但是奇怪的是在exe 中是10m 左右，问怎么回事？
其他open 之类的略！
for i:=1 to 1000 do
begin
query1.SQL.Clear;
query1.SQL.add('insert into tablang values(:Tim,"ttttttttttttttttt1","bbbbbbbbbbbbbb1","hhhhhhhhhhhhhhhhhhhhhh1")');
query1.Parameters.ParamByName('Tim').Value :=inttostr(i);
query1.ExecSQL;
end;

//--------------------------------
count:=table1.RecordCount;
for i:=1 to 1000 do
begin
table1.Append;
table1.FieldByName('key').AsString:=inttostr(2000+count+i);
table1.FieldByName('value1').AsString:='value1value1value1value1value1';
table1.FieldByName('value2').AsString:='value1value1value1value1value1';
table1.FieldByName('value3').AsString:='value1value1value1value1value1';
end;
table1.Post;


还有就是这种用法有没有问题？！！！谢了先！！！

[ekin]

写法有问题!

[ekin]

for i:=1 to 1000 do
begin
table1.Append;
table1.FieldByName('key').AsString:=inttostr(2000+count+i);
table1.FieldByName('value1').AsString:='value1value1value1value1value1';
table1.FieldByName('value2').AsString:='value1value1value1value1value1';
table1.FieldByName('value3').AsString:='value1value1value1value1value1';
table1.Post;

end;

[boatzm]

大哥这样消耗的时间会更多！！！！！！！

而且Delphi 允许post 一次！

[boatzm]

为什么我调试环境和执行环境的结果差别这么大？！！！！！

救命呀！！！！

[boatzm]

ing

[DebugXP]

这是个入门级问题呀！

delphi中是在debug模式下运行的，用于捕捉异常中断，还包含许多调试信息。
速度当然比较慢。