Assignfile(F,FileName);
Reset(F);
while not Eof(f)do
begin
Readln(F,FileItem);
AnalyzeDir(FileItem);
with ADOCommanddo
begin
CommandText:='insert into allml(name,time,ip)'
+'values name,:time,:ip)';
Parameters.ParamByName('name').Value :=name;
Parameters.ParamByName('time').Value :=time;
Parameters.ParamByName('ip').Value :=ip;
execute//每增加一条记录,都execute一次,请问有没有批处理的方法,我用的是ADO控件。
end;
end;
end
我刚刚试了用多线程直接添加到数据库,有数据丢失,
所以在execute后,我加了sleep(50);
就可以,不过效率应该降了很多。