数据复制

Question

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条左右，
上述代码运行速度实在太慢了，
是否有更快的方法？请教了！！

Answer 1

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

Answer 2

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

Answer 3

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