请教各位前辈： 怎样将远程Oracle中的table1导出到本地的table1.dbf?急。。。谢谢！

本地的table1.dbf是那種DB? 可考慮將ORACLE先轉成文字檔，再將文字檔轉成table1.dbf

可以用DbiCopyTable這個指令達成，請看以下範例，之前改寫過oracle轉dbf是可行的，加油吧！ Copy/ delete a BDE table From: "David S. Becker" Here is an example of a routine that I use for copying and deleting tables. It uses DB, DBTables, DbiProcs,DbiErrs, and DbiTypes. You simply provide the directory to copy from, the source table name, the directory to copy to, and the destination table name, and the BDE will copy the entire table, indexes and all to the new file. The delete function takes the path to delete from and the name of the table to delete, the BDE takes care of deleting all associated files (indexes, etc.). These procedures have been pulled off a form of mine, and I've edited them to remove some dependencies that existed with that form. They should now be completely stand-alone.

   
procedure TConvertForm.CopyTable(FromDir, SrcTblName, ToDir, DestTblName: String);
var
  DBHandle: HDBIDB;
  ResultCode: DBIResult;
  Src, Dest, Err: Array[0..255] of Char;
  SrcTbl, DestTbl: TTable;
begin
  SrcTbl := TTable.Create(Application);
  DestTbl := TTable.Create(Application);
  try
    SrcTbl.DatabaseName := FromDir;
    SrcTbl.TableName := SrcTblName;
    SrcTbl.Open;
    DBHandle := SrcTbl.DBHandle;
    SrcTbl.Close;
    ResultCode := DbiCopyTable(DBHandle,false,
      StrPCopy(Src,FromDir   '\'   SrcTblName), nil,
      StrPCopy(Dest,ToDir   '\'   DestTblName));
    if ResultCode <> DBIERR_NONE then
    begin
      DbiGetErrorString(ResultCode,Err);
      raise EDatabaseError.Create('While copying '  
        FromDir   '\'   SrcTblName   ' to '  
        ToDir   '\'    DestTblName   ', the '
          ' database engine   generated the error '''
          StrPas(Err)   '''');
    end;
  finally
    SrcTbl.Free;
    DestTbl.Free;
  end;
end

<[忙盲茫]> ☆俺要升級啊☆