程序实现数据转换(50)

请大家帮忙给写个小例子实现数据转换的程序，就是把一个数据库表中的数据值付给另一个数据库的表中。

用delphi程序如何实现一个表字段中的数据值赋值给另一个表的字段？请帮忙

　ADOQueryUser.Close; ADOQueryUser.ConnectionString:=DataModule1.ADOQuery1.ConnectionString; ADOQueryUser.SQL.Clear; ADOQueryUser.SQL.Add(str_sql3); ADOQueryUser.Open;　i:=ADOQueryUser.RecordCount; ADOQueryMeter.Close; ADOQueryMeter.ConnectionString:=DataModule1.ADOQuery1.ConnectionString; ADOQueryMeter.SQL.Clear; ADOQueryMeter.SQL.Add(str_sql2); ADOQueryMeter.Open; for j:=1 to i do begin ADOQueryMeter.Insert; ADOQueryMeter.FieldByName('ttt').AsInteger:=ADOQueryUser.FieldValues['aaa']; ....//省略其他字段的赋值 ADOQueryMeter.post; ADOQueryUser.next; end;这样就将ADOQueryUser连接的表中的记录加到ADOQueryMeter莲接的库中，不知道这个是不是你要的答案。

如果是两个数据库的数据需要转换的，你需要考虑一下是不是需要做成一个程序里的（比较转换时逻辑太复杂），如果只是简单的数据转移到另外一个库，数据库管理工具都有很多的，不需要自己去写一个的！

select XX into table2 from (select XX from table1)