关于C/S下Clientdataset批量导入Oracle数据库问题

[丢__丢]

各位大虾，请教一个stringgird数据导入oracle数据库的问题。stringgrid中记录数有5万余条，原先实现方式是逐条插入数据库：
for i=0 to stringgrid.rowcount-1 do
begin
strsql:='insert into XXX (aa,bb) values ('''+值1+''','''+值2+''')'；
exec_sql(adofree,strsql);
end;
但发现导入时间要2分钟，然后考虑用内存表clientdataset的方式进行导入。实现方式如下：
1、使用控件有:ODAC下的Orasession和oraquery。clientdataset、datasetprovider四个控件.clientdataset的Providername设置为datasetprovider；datasetprovider控件的dataset属性设置为oraquery；oraquery的session属性设置为Orasession。Orasession用于跟oracle数据库的连接。
其中clientdataset运行创建的表格式与数据库表AA一致。

2、代码如下：
with oraquery do
begin
close;
sql.clear;
sql.add(select * from AA);
open;
end;

clientdataset.close;
clientdataset.fielddefs.clear;
with clientdataset do
begin
add('LX',ftstring,6,false);
add('BH',ftstring,6,false);
end;
clientdataset.createdataset;
clientdataset.open;

for i=0 to grid.rowcount-1 do
begin
clientdataset.append;
clientdataset.fieldbyname('LX').asstring:='XXX';
clientdataset.fieldbyname('bh').asstring:='XXX';
clientdataset.POST;
end;
clientdataset.Applyupdate(0);
clientdataset.emptydataset;

运行后发现程序无响应，是不是我这个写法不对？

[xiaojun5556]

跟下代码看看到哪里没有响应了？还有可以在clientdataset.POST;的时候100条提交一条，然后加个响应的函数，如Application.ProcessMessages.

[Andy-88]

數據很多嗎 如果是上面說法是可以的