请问怎么代码实现从SQLserver库向ORACLE库同步几个字段

请教如何代码实现从SQLserver库向ORACLE库同步几个字段
RT，SQLserver库和ORACLE中表结构不同，需要从SQL库的表USRA01同步NAME,SEX,DEPARTMENT,TEACHER_NO这几个字段的数据到oracl库中的TRA_TRACHERS表，最好能实时同步，或定时同步也行，应该怎么实现呢。

[解决办法]

Delphi(Pascal) code

with A do  //连接Adoconnection1 连接SQLserverbegin  close;  commandtxtx ：= SelectSQL;  //从表USRA01取值NAME,SEX,DEPARTMENT,TEACHER_NO  open;    while not A.Eof do  begin      NAME := A.FieldByName('NAME').AsString;      SEX := A.FieldByName('SEX').AsString;       ……    with ADOCmd do //连接Adoconnection2 连接Oracle    begin      CommandText := SQL;//你需要的SQL      Execute;    end;    next;  end;        end