压缩Access

虽然不知道Access中的数据删除后数据库占的空间不会减少的原因，但是总算可以解决由这个问题带来的麻烦，最好的办法就是将access数据库压缩，效率比较高，而且可以提高系统的性能，保证系统能正常稳定的运行。

通过DBEngine压缩，各位是否还记得安装Delphi的时候，如果你选择自定义安装(我一般用Delphi写控件，所以当然是越小越好)，会有很多安装选项，让你选择Access97或Access2000，还有MDAC等，问题就在这里！

use ComObj;

var dao:OLEVariant;

dao:=CreateOleObject('DAO.DBEngine.36');//'DAO.DBEngine.36'

dao.CompactDatabase('Test.mdb','newTest.mdb');
如果需要的话，就用RenameFile将数据库名字改成你想要，现在关键的一点就是CreateOleObject，对于access97可以用3.5或者3.6，但是对于access 2000及其以上的版本则需要用3.6否则，将会不能识别数据库格式。

如果数据库是自己用的，不是给客户的，也可以用access里面的“数据库实用工具”来“压缩和修复数据库”