补充一下:因为数据表A中已有20万条数据记录了,所以如果用逐条遍历添加的方法可能太慢.所以,要求一个能快速将B表中内容添加到A表中的解决方法.我就是用下面的代码进行添加的:
var
i:integer;
begin
for i:=0 to memo1.Lines.Count-1 do
begin
ADoTable1.Append;
AdoTAble1.FieldByName('词组').AsString:=trim(memo1.Lines.Strings);
ADoTAble1.FieldByName('首汉字').AsString:=copy(trim(memo1.Lines.Strings),0,2);
ADoTAble1.Post;
Application.processmessage;
end;
end;
但发现上十万条记录后,就慢了.所以想,把所有待添加的数据记录放到不同的表中,最后全部汇总到一个表中.以求60条数据尽快添加到Acess数据表A中.
如果能有改进我上面代码,加快速度的算法或方法,提供出来也行.
感谢您!
