（加急提问，请予支持）：delphi中从sqlserver到oracle的数据转接问题

Question

问问高手，有什么简单快捷的方法实现库表的转接呢？
还有就是，涉及到图象，又如何传输
我用memget，和getdata，不怎么好用，好象太占内存了
请尽快答复，谢谢！

Answer 1

呵呵，你的意思是从这表到那表吗？
那么可看如下方法：
var
I,n,m:integer;
number,names,sex,brithday,address,hphone,business,mobile,party:array of string;
begin
   n:=table1.RecordCount;
  SetLength(number,n);
  SetLength(names,n);
  SetLength(sex,n);
  SetLength(brithday,n);
  SetLength(address,n);
  SetLength(hphone,n);
  SetLength(business,n);
  SetLength(mobile,n);
  SetLength(party,n);
   Query1.First;
  For I:=1 to n do
  begin
    number[I-1]:=Query1.FieldByName('number').AsString;
    names[I-1]:=Query1.FieldByName('name').AsString;
    sex[I-1]:=Query1.FieldByName('sex').AsString;
    brithday[I-1]:=Query1.FieldByName('brithday').AsString;
    address[I-1]:=Query1.FieldByName('address').AsString;
    hphone[I-1]:=Query1.FieldByName('hphone').AsString;
    business[I-1]:=Query1.FieldByName('business').AsString;
    mobile[I-1]:=Query1.FieldByName('mobile').AsString;
     party[I-1]:=Query1.FieldByName('party').AsString;
    Query1.next;
  end;
   
  With table2 do
  begin
    Active:=False;    DatabaseName := 'mydata';
    TableType := ttParadox;
    TableName := 'dataprn.db';
    Emptytable;
    Active:=False;
    Active:=True;    For I:=1 to n do
    begin
      Append;
      fieldByName('number').AsString:=number[I-1];
      fieldByName('names').AsString:=name[I-1];
      fieldByName('sex').AsString:=sex[I-1];
      fieldByName('brithday').AsString:=brithday[I-1];
      fieldByName('address').AsString:=address[I-1];
      fieldByName('hphone').AsString:=hphone[I-1];
      fieldByName('business').AsString:=business[I-1];
       fieldByName('mobile').AsString:=mobile[I-1];
        fieldByName('party').AsString:=party[I-1];
      post;
    end;
    end;