DELPHI 創建、壓縮ACCESS

 

        uses   DAO97;//dao2000  

          實現部分：  

          procedure   TFormOffice.BitBtn4Click(Sender:   TObject);  

          var   Engine:DBEngine;  

          begin  

              Engine:=CoDBEngine.Create;  

              Engine.CreateDatabase('c:/NewAccess.mdb',';LANGID=0x0804;CP=936;COUNTRY=0;',dbEncrypt);

 

          end;  

   

    說明：  

    1、在C:/下創建NewAccess.mdb；  

    2、語言國家是簡體中文；  

    3、壓縮整理數據庫用  

  var  

  Engine   :DBEngine;  

  d1,d2,d3:olevariant;  

  begin  

      Engine   :=   CoDBEngine.Create;  

      Engine.RepairDatabase('xxx.mdb');  

      Engine.CompactDatabase('xxx.mdb','yyy.mdb',d1,d2,d3);  

  end;  

   

  就是將xxx.mdb壓縮整理成yyy.mdb，  

 

剩下的只是將c:/invoice.mdb刪除(DeleteFile('c:/invoice.mdb');)，  

 

然後將c:/God.mdb重新命名(RenameFile('c:/God.mdb','c:/invoice.mdb');)即可。