Delphi下壓縮Access數據庫

unit zip;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,ComObj;

type
  TForm1 = class(TForm)
    dlgOpen1: TOpenDialog;
    lbl1: TLabel;
    edt1: TEdit;
    btn1: TButton;
    btn2: TButton;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.btn1Click(Sender: TObject);
begin
    if dlgOpen1.Execute then
    edt1.Text := dlgOpen1.FileName ;
end;

procedure TForm1.btn2Click(Sender: TObject);
var
DaoVar: OLEVariant;
 begin
  if Trim(edt1.Text)='' then  //edit1用來保存數據庫的路徑
     begin
       Application.MessageBox('你還未選擇需要壓縮的數據庫！','提示');
       Exit;
     end;

          try
             DaoVar := CreateOleObject('DAO.DBEngine.36'); //創建對象
             if FileExists('temp.mdb') then DeleteFile('temp.mdb'); //刪除臨時數據庫文件"temp.mdb"

            DaoVar.CompactDatabase(edt1.Text, 'temp.mdb','',0,';pwd=1j2/n/#yi67#@&*/u/t'); //壓縮選中的數據庫到"temp.mdb" CompactDatabase函數是整個的核心
                                                                                           //pwd後面跟你自己數據庫的密碼，如果沒有密碼這個可以不寫
            if DeleteFile(edt1.Text) then //刪除文件原數據庫
                RenameFile('temp.mdb', 'yizero.mdb'); //將"temp.mdb"改名爲原始數據庫的名稱
           Application.MessageBox('數據庫壓縮成功！','恭喜');
        except
           Application.MessageBox('抱歉，壓縮失敗，請檢查數據庫是否已打開，請稍後重試！','出錯了');
        end;
  
    end;

end.

//注意在uses里加上ComObj 而且在Import Type Library里加上Microsoft Jet and Replication Objects Library
//另外，注意路徑和文件名不要出錯     

 

 

    昨天突然發現Access數據庫居然到了50M了，確實很吃驚，因爲數據庫裏並沒有多少東西，然後進Access用自帶的工具壓縮、修復了一下，大小就正常多了！數據庫文件太大了弊端肯定不少，但站在用戶的角度來看，他肯定不想自己進數據庫去做這個操作，而且我們也擔心他自己不小心改了表結構引起程序的異常甚至錯誤，所以就想到做這個小工具了。本文只針對遇到相同問題的初學者，高手請跳過！呵呵~~

程序界面如下圖所示：

 

see Yizero by yizero.com