各位先進，我的資料庫用TADOQuery連接Access資料庫(ODBC)檔名為Salary.MDB，想每一個月備份一次到D:\MDB\Salary_200304.MDB，不知程式碼怎麼寫，我還是初學者，請多教導.... 謝謝各位先進!

1.先將與 mdb 的連線關閉 2.用 CopyFile 的方式來做備份

begin
  CopyFile('C:\old.mdb', 'D:\MDB\Salary_200304.MDB', False);
end;

--- 每個人都是一本書

謝啦... 若是C:\old.mdb裡有DB1、DB2、DB3、DB4、DB5..等資料表，要將其中的DB3、DB4、DB5加入(是加入哦)到'D:\MDB\Salary_200304.MDB'後，再將C:\old.mdb裡有DB3、DB4、DB5資料表刪除    不知為何??????

procedure TForm1.Button1Click(Sender: TObject);
var
    dbs,DB,TB:Variant;
begin
    db:=CreateOleObject('DAO.DBEngine.36');
    //開啟目的資料庫
    dbs := DB.Workspaces[0].OpenDatabase('D:\abc\DB\Dest.mdb', False, False, ';PWD=1234');
    
    TB:=CreateOleObject('DAO.TableDef.36');
    TB:=dbs.CreateTableDef('Ex'); //暫存用連結檔
    
    //開啟來源資料庫
    tb.connect:=';DataBase='+'D:\abc\DB\Sour.mdb'+';PWD=1234';
    tb.SourceTableName := 'Base01';  //來源資料表
    dbs.TableDefs.Append(tb);  //建立連結
    dbs.Execute('select * into D1 from Ex'); //從連結表寫入新增寫入資料表  
    dbs.Execute('drop table Ex'); //刪除連結    end;

這一段，是如何在二個access mdb 傳送資料的方法 應該是你核心的問題 執行結果，資料庫Dest裡會多一個D1 資料表，從資料庫 Sour 的 Base01資料表而來，中間透過Ex 暫存table 傳遞 如果是要累增資料，則可參考下列語法 insert into Ex select * from Base01 剩下的部份，你只要再刪除來源的資料表即可 可將此段寫成function ，帶入參數會更方便使用 發表人 - ddy 於 2003/04/25 23:11:38

若 Table 內有設 Primary Key/Index 的話 這樣做沒辦法將 Primary Key/Index 也複製過去 --- 每個人都是一本書

還是不清楚....@.@

你試過了嗎? 如果試過的話就會發現問題 再依問題來學習 有何不清楚，請明講    

執行這一行就出錯了 db:=CreateOleObject('DAO.DBEngine.36'); [Error] Unit1.pas(30): Undeclared identifier: 'CreateOleObject' 還有這一行是什麼意思???

uses ComObj;    --- 每個人都是一本書

Ok...非常謝謝您! 若要進行資料表覆蓋呢? 因為會出現....D1資料表已經存在了 我想要進行覆蓋!

第一次使用 select * into D1 from Ex  (將每次查詢結果建立新table，故已存在會出錯) 如果要覆蓋，每次執行前先drop 已存在的資料表D1即可 drop table D1        若資料表已存在，則使用 insert into Ex select * from Base01 (將每次查詢塞入table，故資料表不存在會出錯) 你可以預先建立資料表格式，使用後者的方式，可以讓資料一直累加         發表人 - ddy 於 2003/04/29 10:59:32

ok!...回家試一下...ddy 謝謝您了

第一次使用 select * into D1 from Ex (將每次查詢結果建立新table，故已存在會出錯) 如果要覆蓋，每次執行前先drop 已存在的資料表D1即可 drop table D1 若資料表已存在，則使用 insert into Ex select * from Base01 (將每次查詢塞入table，故資料表不存在會出錯) 你可以預先建立資料表格式，使用後者的方式，可以讓資料一直累加 ============================================================= 但是如何去判斷D1資料表是否存在???

透過異常處理來判斷Table 是否存在

function TForm1.CheckTableExist(iTableName:string):boolean;
begin
    try
        ADODataSet1.CommandText := 'select * from '+iTableName;
        ADODataSet1.Active := true;
        result:=True;
    except
            Result:=False;
    end;
end;