如何提高向数据库批量插入记录的速度？

[jjdown]

以下语句是将listbox里的记录批量的插入到表里，当listbox的记录数达到一千几百的时候，程序的处理速度非常慢，好像将系统的资源都用尽了，其他的应用程序（例如打开网页等都很慢），请问有什么方法可以提高程序的处理速度？ 代码如下：

opensql:='select mxlb as lb from T_SYS_CSMX where mxmc='''+trim(combobox2.Text)+'''';
try
if pubquery.Active then pubquery.Close;
pubquery:=openquery(opensql,psession); //执行sql语句
except
showmessage('操作失败！');
end;
ii:=pubquery.FieldByName('lb').AsVariant;
for i := 0 to ListBox1.Count - 1 do
begin
exsql:= 'Insert into T_TMP_TAB1(YJTM,SJJ,FFRQ,BC,JSZBH,FDCZY) Values('+QuotedStr(ListBox1.Items[i])+','''+inttostr(ii)+''',to_char(sysdate,'+''''+'YYYY-MM-DD'+''''+'),'''+trim(Edit1.Text)+''','''+trim(Edit16.Text)+''','''+xtcs.srybh+''')';
try
execsql(exsql,psession);//执行sql语句
except
showmessage('操作失败！');
end;
end;

[hanlin2004]

1.多条语句一块提交；
2.使用ADOQuery,利用ADOQuery增加数据，提交

[快乐老猫]

1.利用 SQL SERVER的存储过程，减少网络传递和客户端资源。
2.使用批更新，减少与数据库提交更新的次数。

[diecode]

ADOQuery把数据缓冲在本地内存
把缓冲区开大点
记录插完之后,用ADOQuery的提交方法,一次性的更新到数据库中

[cxj1976]

with pubquery do
begin
for i := 0 to ListBox1.Count - 1 do
begin
try
Insert;
FieldByName('YJTM').Value := ListBox1.Items[i];
//....
except
showmessage('操作失败！');
end;
end;
Post;
end;

[opqhjb_2002]

用batchmove控件做批量处理。

[newc_k]

李维做过试验,最终结论是大数据量用存贮过程可提高70%

[jjdown]

请问如何多条语句一块提交?

[cnhxjtoa]

狂顶