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