使用SQL
Query1.close;
Query1.SQL.clear;
Query1.SQL.Add('Select Field1name*Field2Name*Field3Name*... as resultName
from sourceTable where..');
Query1.Open;
while not Query1.EOF do
begin
Query2.close;
Query2.SQL.clear;
Query2.SQL.add('insert Desttable (FieldName) values('+Query1.Fields[0].AsString+')');
Query2.ExecSQL();
Query1.next;
end;
若是“几个表”的字段,只要把
Query1.SQL.Add('Select Field1name*Field2Name*Field3Name*... as resultName
from sourceTable where..');
改为:
Query1.SQL.Add('Select db1.Field1name*db2.Field2Name*db3.Field3Name*... as resultName
from db1,db2,db3... where..');
//同一数据库中的表