今天作了个Access数据库压缩的功能，发现在自己的程序中由于无法断开联接，而执行不了压缩函数的操作，后来研究后，找到了最终的解决办法：
我用了MDI窗体，有一个主窗体，上面有一个AdoCoonection组件，我设置了联接状态为True；在压缩代码哪里，我首先关闭了联接，用了代码 adoCoon.Connected := false;发现无法断开联接，Access那个临时文件还是存在；仔细研究了后，把adoCoon组件的连接设置为false，然在窗体创建代码里面加入
procedure TfrmMain.FormCreate(Sender: TObject);
begin
adoCoon.Connected := true;
end;
这样，程序就可以正常进行Access压缩操作了！
在使用MS Access 2003的过程中，我们发现随着时间的推移，由于Access会给数据库自动保留一份副本集，这样造成了数据库占用的空间越来越大。如果在Access环境中，我们可以通过点选菜单（工具-数据库实用工具-压缩和修复数据库），来将Access数据库压缩。那么通过Delphi能不能压缩和修复Access数据库呢？答案是肯定的。利用下面的这个函数，成功的实现了实现这个功能。代码如下：
Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean;
const
sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;';
var
oJetEng : JetEngine;
begin
sOldMDB := sProvider + 'Data Source=' + sOldMDB;
sNewMDB := sProvider + 'Data Source=' + sNewMDB;
try
oJetEng := CoJetEngine.Create;
oJetEng.CompactDatabase(sOldMDB, sNewMDB);
oJetEng := Nil;
Result := True;
except
oJetEng := Nil;
Result := False;
end;
end;
使用该函数的例子如下：
if CompactAndRepair('d:/db/Old.mdb', 'd:/db/New.mdb') then
ShowMessage('操作成功')
else
ShowMessage('操作失败');
应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败。
另外，要想上面的函数编译通过，你需要先把Microsoft Jet and Replication Objects 2.5 Library导入到Delphi中，步骤如下：
1、在Delphi集成开发环境中，点选菜单(Project-Import Type Library)。
2、在弹出的对话框中，移动滚动条，找到Microsoft Jet and Replication Objects 2.5 Library。
3、点击Install按钮。
然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。好了，运行程序试一下吧，数据库文件是不是小了好多呢？
--以上程序在Delphi7 Enterprise、Access2003、Windows2000 server下调试通过