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