利用Delphi压缩和修复.txt机会就像秃子头上一根毛，你抓住就抓住了，抓不住就没了。我和你说了10分钟的话，但却没有和你产生任何争论。那么，我们之间一定有个人变得虚伪无比！过错是短暂的遗憾，错过是永远的遗憾。相遇是缘，相知是份，相爱是约定，相守才是真爱。利用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单元。好了，运行程序试一下吧，数据库文件是不是小了好多呢？ 
    （以上程序在Delphi5 Enterprise、Access2000、Windows98SE下调试通过）
    ///////////////////////////**************************************************************
    DELPHI 压缩ACCESS数据库2009-04-03 11:06function TFrmDBRestore.CompactDatabase(const APassWord: string): Boolean;
    var
    strConn,strConn1: string;
    STempFileName: string;
    JE: OleVariant;
    begin
    strConn := 'Provider=Microsoft.Jet.OLEDB.4.0;'
                + 'password="tsadminwho";'               //用户工作组（*.mdw）密码
                  + 'User ID=adminwho;'                      //用户工作组（*.mdw）用户名
                  + 'Data Source='+GAppPath+'Data\TetraSys.mdb;' +'Persist Secur
    ity Info=True;'
                + 'Jet OLEDB:System database='+GAppPath+'ts6Secured.mdw;'      //用户工作组文件
                  + 'Jet OLEDB:Database Password=%s;'                           //数据库密码
                  + 'Jet OLEDB:Engine Type=4' ;
    strConn1 := 'Provider=Microsoft.Jet.OLEDB.4.0;'
                + 'Data Source=%s';
    Result := False;
    STempFileName := GAppPath+'Data\SysCompact.mdb';
    try
        JE := CreateOleObject('JRO.JetEngine'); //建立OLE对象,函数结束OLE对象超过作用域自动释放
        OleCheck(JE.CompactDatabase(Format(strConn, [APassWord]),
          Format(strConn1, [STempFileName, APassWord]))); //压缩数据库
        //复制并覆盖源数据库文件,如果复制失败则函数返回假,压缩成功但没有到函数的功能
        //Result := CopyFile(PChar(STempFileName), PChar('TetraSys.mdb'), true);
        DeleteFile(GAppPath+'Data\TetraSys.mdb');
        RenameFile(STempFileName,GAppPath+'Data\TetraSys.mdb');
        Res