如何利用delphi大量將資料從A資料庫搬到B資料庫，sql開不起來，只好用這招

利用BDE可達到這樣的功能，參考下列程式：

 
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;

可以解釋一下內容嗎！感激不盡

CopyTable(來源資料庫, 來源TableName, 目的資料庫, 目的TableName: String); 程式是用bde的api函數DbiCopyTable達到複製功能，若用搬移的很危險吧！ 基本上只要你bde還連的上資料庫，皆可用，先自己try try see，可以學到 更多，

您好﹗    http://delphi.ktop.com.tw/topic.php?TOPIC_ID=60752        ========================= 我是您的朋友﹐有您真好﹗ =========================

------
忻晟