Y
yecloudy
Unregistered / Unconfirmed
GUEST, unregistred user!
Assignfile(F,FileName);
Reset(F);
while not Eof(f) do
begin
Readln(F,FileItem);
AnalyzeDir(FileItem);
with ADOCommand do
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
Reset(F);
while not Eof(f) do
begin
Readln(F,FileItem);
AnalyzeDir(FileItem);
with ADOCommand do
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