如何DELPHI制作一个备份数据库的功能

Question

我想用DELPHI制作一个备份数据库的功能，数据库是：ACCESS版本的，
编程将数据压缩备份成为一个新的数据库

Answer 1

这个是压缩,刚刚看见的. 这个并不是很好 , 以前做了一个.现在这个计算机没有
Function CompactDAO(SourceDb,DestDb:string; aShowMsg:Boolean=False):string;
var DaoEngine:OLEVariant;  //定义一个变量
    vTempDb:string;        //临时数据库 文件
  Procedure DoCpmpact(aVer:string);
  begin
    DaoEngine:=CreateOleObject(aVer);   //创建指定版本的数据库连接引擎
    if SourceDb<>DestDb then          //目标文件和源文件是否是同一个文件？
      DaoEngine.CompactDatabase(SourceDb,DestDb) //,'', 0, ';pwd=''a1''')   其它的参数可以不用了.
    else
    begin
      vTempDb:=ExtractFilePath(SourceDb)+'TempTemp.mdb'; //如果文件名相同，就更改文件名。
      if FileExists(vTempDb) then  //检测是否有这个文件，如果有的话删除掉。
        DeleteFile(PChar(vTempDb));
      DaoEngine.CompactDatabase(SourceDb,vTempDb);  //在创建时，如果有这个文件会出错。
      CopyFile(pChar(vTempDb),pChar(SourceDb),False);  //考贝文件覆盖掉原来的文件。
      DeleteFile(pChar(vTempDb));                    //删除临时文件。
    end;
  end;
begin
  result:='';
  try
    DoCpmpact('DAO.DBEngine.36');  //创建DAO数据库引擎 
    if aShowMsg then   //如果要显示消息的话，就显示一下。
      ShowMessage('压缩数据库文件“'+SourceDb+'”到“'+DestDb+'”成功。');
  except
    try
      DoCpmpact('DAO.DBEngine.35');      //如果版本不同的话，就更换低版本的.
      if aShowMsg then
        ShowMessage(result+chr(10)+chr(13)+'压缩数据库文件“'+SourceDb+'”到“'+DestDb+'”成功。');
    except
      Result:=result+chr(10)+chr(13)+Exception(ExceptObject).Message;  //显示压缩失败的消息;
    end;
  end;
end;

Answer 2

我的意思像ACCESS那样压缩数据库的同时使其文件大小变小

Answer 3

利用Delphi压缩和修复
MS Access 2000的数据库文件 
武汉科技学院电信系 蔡晖 
广州正泰商业数据有限公司 邢玉秀 
在使用MS Access 2000的过程中，我们发现随着时间的推移，由于Access会给数据库自动保留一份副本集，这样造成了数据库占用的空间越来越大。如果在Access环境中，我们可以通过点选菜单（工具-数据库实用工具-压缩和修复数据库），来将Access数据库压缩。那么通过Delphi能不能压缩和修复Access数据库呢？答案是肯定的。利用下面的这个函数，成功的实现了实现这个功能。代码如下： Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; 
const 
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; 
var 
oJetEng : JetEngine; 
begin 
sOldMDB := sProvider + 'Data Source=' + sOldMDB; 
sNewMDB := sProvider + 'Data Source=' + sNewMDB; try 
oJetEng := CoJetEngine.Create; 
oJetEng.CompactDatabase(sOldMDB, sNewMDB); 
oJetEng := Nil; 
Result := True; 
except 
oJetEng := Nil; 
Result := False; 
end; end; 使用该函数的例子如下： if CompactAndRepair('d:\db\Old.mdb', 'd:\db\New.mdb') then 
ShowMessage('操作成功') 
else 
ShowMessage('操作失败'); 应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败。 另外，要想上面的函数编译通过，你需要先把Microsoft Jet and Replication Objects 2.1 Library导入到Delphi中，步骤如下： 1、在Delphi集成开发环境中，点选菜单(Project-Import Type Library)。 2、在弹出的对话框中，移动滚动条，找到Microsoft Jet and Replication Objects 2.1 Library。 3、点击Install按钮。 然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。

Answer 4

利用Delphi压缩和修复
MS Access 2000的数据库文件 
武汉科技学院电信系 蔡晖 
广州正泰商业数据有限公司 邢玉秀 
在使用MS Access 2000的过程中，我们发现随着时间的推移，由于Access会给数据库自动保留一份副本集，这样造成了数据库占用的空间越来越大。如果在Access环境中，我们可以通过点选菜单（工具-数据库实用工具-压缩和修复数据库），来将Access数据库压缩。那么通过Delphi能不能压缩和修复Access数据库呢？答案是肯定的。利用下面的这个函数，成功的实现了实现这个功能。代码如下： Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; 
const 
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; 
var 
oJetEng : JetEngine; 
begin 
sOldMDB := sProvider + 'Data Source=' + sOldMDB; 
sNewMDB := sProvider + 'Data Source=' + sNewMDB; try 
oJetEng := CoJetEngine.Create; 
oJetEng.CompactDatabase(sOldMDB, sNewMDB); 
oJetEng := Nil; 
Result := True; 
except 
oJetEng := Nil; 
Result := False; 
end; end; 使用该函数的例子如下： if CompactAndRepair('d:\db\Old.mdb', 'd:\db\New.mdb') then 
ShowMessage('操作成功') 
else 
ShowMessage('操作失败'); 应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败。 另外，要想上面的函数编译通过，你需要先把Microsoft Jet and Replication Objects 2.1 Library导入到Delphi中，步骤如下： 1、在Delphi集成开发环境中，点选菜单(Project-Import Type Library)。 2、在弹出的对话框中，移动滚动条，找到Microsoft Jet and Replication Objects 2.1 Library。 3、点击Install按钮。 然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。