Question

Delphi如何将一个表中某一字段的所有记录插入到另一个表中。两张表在两个不同的数据库中。

用两个adoquery做，原表在Oracle，要插入的是ACCESS中的表。

Answer 1

1，adoquery1连oracle, adoquery2连access
2，adoquery1查询表1字段1的内返芹容
3，用循环判断not adoquery1.eof 向adoquery2中添改弯加漏歼毕数据

追问

我也是这个思路，麻烦看看
if not query1.IsEmpty then
begin with query1 do
while not Eof do
begin
sql := 'insert into info1(iprod) values('+QUOTEDSTR(QUERY1.FieldByName('PROD').AsString)+')';
query4.sql.add(sql);
query4.ExecSQL;
Next;
end;
end;
not EOF里面怎么写插入，我写得有点问题

追答

if query1.isEmpty then Exit;
with query1 do begin
first;
sql := 'insert into info1(iprod) values('+QUOTEDSTR(FieldByName('PROD').AsString)+')';
query4.Sql.Clear;

query4.sql.add(sql);

while not eof do begin
query4.ExecSql;
Next;
end;
end;

代码没测试过。不过应该可以运行吧。用query.append可能更方便点

Answer 2

高手啊