数据复制

[我和我的蓝天白云]

var s:string;

dm.table1.open;
dm.table2.open;

while not dm.table1.eof do
begin
s:=dm.table1.fieldbyname(field1).asstring;
if not dm.table2.locate(field1,s,[]) then
dm.table2.append;
dm.table2.fieldbyname(field1).asstring:=s;
dm.table2.post;
dm.table1.next;
end;


目的：将table1中的field1的值不重复的复制到table2的field1 中，
table1中有6000条记录，不重复值有400条左右，
上述代码运行速度实在太慢了，
是否有更快的方法？

请教了！！

[monkely]

直接用SQL语句来操纵

[我和我的蓝天白云]

能否给出点实现的代码，谢谢！

[qxhou]

With adoquery1 do
begin
close ;
sql.clear ;
sql.add('select distinct field1 into table2 from table1') ;
open ;
end ;

[qxhou]

分给我吧,分是我的了.

[monkely]

楼上的都说出来了。

[我和我的蓝天白云]

注意：table2 是已经存在的表，上述代码运行是系统提示table2已经存在，程序出错了！！！

[monkely]

SQL语句 "insert into table1 (fields) select distinct fields from table2

[monkely]

注意字段要对应