只有高手才能解决这个问题了。。焦急等待中。。。。

Question

现在我要实现这样一个功能：两个程序A和B，A程序用的是Sql Server2000数据库，B程序用的是Oracle。现在我要把A程序中查到的四个字段信息（一张表中四个字段）放到B程序中使用。我在A程序的相应功能模块中用了两个ADOQuery，一个连接SQL Server一个连接Oracle，Oracle中新建了一张表，就四个字段，准备用来存放SQL Server中查询出来的值。问题在于，以我现在的水平怎么也实现不了这个功能所以请大家帮帮忙
（注：Oracle装在虚拟机中，两个程序都是用Delphi开发的，并且两个程序都在同一台机子上面）
（刚注册，没什么分）

Answer 1

adoquery1.Close;
  adoquery1.sql.Text:='select F1,F2,F3,F4 from tablename1';
  adoquery1.open;  ADOQuery2.close;
  ADOQuery2.SQL.Text:='insert into tablename2(Field1,Field2,Field3,Field4)values(:a,:b,:c,:d)';
  ADOQuery2.Parameters.ParamByName('a').asstring:=ADOQuery1.Parameters.ParamByName('F1').asstring;
  ADOQuery2.Parameters.ParamByName('b').asstring:=ADOQuery1.Parameters.ParamByName('F2').asstring;
  ADOQuery2.Parameters.ParamByName('c').asstring:=ADOQuery1.Parameters.ParamByName('F3').asstring;
  ADOQuery2.Parameters.ParamByName('d').asstring:=ADOQuery1.Parameters.ParamByName('F4').asstring;
  ADOQuery2.ExecSQL;