Insert的效率问题，在线等！！！仅有90分了！！！

Lwg0901 2006-01-12 08:27:10

for i:=0 to 100000 do
begin
strSql := 'Insert Into XlsRW Values(''' + shtName + ''', ' + IntToStr(k) + ', ' + IntToStr(i) + ', ' + IntToStr(j) + ', ''' + s + ''');';
Qry.SQL.Add(strSql);
Qry.ExecSQL
end;

执行10万次以上的语句，要半个小时左右。如果提高效率？

改成下边的方式也一样：
for i:=0 to 100000 do
begin
strSql := 'Insert Into XlsRW Values(''' + shtName + ''', ' + IntToStr(k) + ', ' + IntToStr(i) + ', ' + IntToStr(j) + ', ''' + s + ''');';
Qry.SQL.Add(strSql);
end;
Qry.ExecSQL

请高人指点！！！

...全文

193 17 打赏收藏转发到动态举报

写回复

用AI写文章

17 条回复

切换为时间正序

请发表友善的回复…

发表回复

holyten 2006-01-13

打赏
举报

如果是使用的是SQL SERVER的话，你可以调用DTS来完成你想要的功能，如果只是简单的逻辑增加的话，建议你在数据库创建一个存储过程来完成，但是效率仍然是不高的，当然最好的做法就是将东西放到数据库让他自己去做，你做的只是调用他们的春戳过程和函数就可以了。

asa516 2006-01-13

打赏
举报

这是Delphy的问题，不是太清楚，帮你顶一下吧

FlyHope2005 2006-01-13

打赏
举报

这样的操作最好用线程来解决;这样的话耗时肯定少

hellolongbin 2006-01-13

打赏
举报

大批量数据，要从根源上解决的话，运行服务器端的存储过程，会比客户端－服务器端运行快很多

阿三 2006-01-13

打赏
举报

你可以试试这样的方法：
adoconnection1.BeginTrans;
b := gettickcount();
try
for i := 1 to 100000 do
begin
with adoquery1 do
begin
close;
sql.Text := ' insert into test1(a,b,c,d) values(:a,:b,:c,:d)';
Parameters.ParamByName('a').Value := i;
Parameters.ParamByName('b').Value := inttostr(i)+'b';
Parameters.ParamByName('c').Value := inttostr(i)+'c';
Parameters.ParamByName('d').Value := inttostr(i)+'d';
execSql;
end;
self.Caption := inttostr(i);
application.ProcessMessages;
end;
adoconnection1.CommitTrans;
e := gettickcount();
showmessage('ok'+'用时'+inttostr(e-b));
except
adoconnection1.RollbackTrans;
end;

这样会比你那样写快一些，因为你那样写在数据库中每次执行都要重新编译你的语句，而采用参数形式会不需要重新编译了。
我在本地比较了一下10W条记行时间分别为：
299656，326750

如果你先把SQL存在一个stringlist中，然后执行速度会更快一些：200750
var
i,b,e: integer;
tlist: TStringList;
begin
adoconnection1.BeginTrans;
b := gettickcount();
tlist := TStringList.Create;
try
for i := 1 to 100000 do
begin
tlist.Add('insert into test1(a,b,c,d) values('+inttostr(i)+','''+inttostr(i)+'b'+''','''+inttostr(i)+'c'+''','''+inttostr(i)+'d'+''');');
self.Caption := inttostr(i);
application.ProcessMessages;
end;
with adoquery1 do
begin
close;
sql.Text := tlist.Text;
execSql;
end;
adoconnection1.CommitTrans;
e := gettickcount();
showmessage('ok'+'用时'+inttostr(e-b));
except
adoconnection1.RollbackTrans;
end;
end;

你也可以进行分段进行提交，比如1000条提交一次，会更好一些，没时间试了，你自己试一下

vivian12 2006-01-13