使用Delphi压缩Access

======================================================
注：本文源代码点此下载
======================================================

使用delphi压缩access

access数据库是我们经常使用的数据库,但是access数据库在使用的过程中,随着

时间的迁移已经数据的反复添加与删除,整个数据库软件就会变得越来越臃肿。access

的dbms为我们提供了修复和压缩数据库的功能,但是在使用开发基于access的数据库

应用的过程中,最终用户的机器上不一定都有dbms,况且用户也不一定会使用这个功

能,所以我们最好能够在程序里面加入压缩功能,这样用户使用的时候就会很方便了。

下面参照网上的资料写的是一个压缩数据库的函数compressdb,要让这段代码顺利

编译,需要use 一下comobj

1function compressdb(dbname: string): boolean;

2var

3daovar: olevariant;

4begin

5if dm.con1.connected then dm.con1.connected := false; //如果数据模块中的数据库连接打开,请先关闭

6try

7try

8daovar := createoleobject('dao.dbengine.36');

9if fileexists('temp.mdb') then deletefile('temp.mdb'); //删除临时数据库文件"temp.mdb"

10

11daovar.compactdatabase(dbname, 'temp.mdb'); //压缩"dbname" 到"temp.mdb"

12

13if deletefile(dbname) then //删除文件"dbname"

14renamefile('temp.mdb', dbname); //将"temp.mdb"改名为"dbname "

15showmessage('压缩成功');

16result := true;

17except

18result := false;

19end;

20finally

21dm.con1.connected := true; //为了其它操作能够正常执行,还要打开数据库连接

22end;

23end;

24

注意:如要要让这段据说delphi使用ado不能压缩access数据库,所以这里使用的

dao对象,另外网上说还有一个第三方的数据库驱动,可以直接压缩,有兴趣的可以

google一下,一定可以找到满意的答案的。在压缩的过程中,一定不要打开数据库,否

则会出错的。

======================================================
在最后，我邀请大家参加新浪APP，就是新浪免费送大家的一个空间，支持PHP+MySql，免费二级域名，免费域名绑定 这个是我邀请的地址，您通过这个链接注册即为我的好友，并获赠云豆500个，价值5元哦！短网址是http://t.cn/SXOiLh我创建的小站每天访客已经达到2000+了，每天挂广告赚50+元哦，呵呵，饭钱不愁了，\(^o^)/