如何在Delphi中实现对Access数据库进行压缩操作(100分)

大富翁练功场有一个压缩解压的控件

是否指使用access的压缩功能？

是指使用access的压缩数据库功能

下载Diamond Access，里面有例子，如何通过DAO来Pack Access数据库。

通过DAO可以压缩及修复。
function fPackAccessDB(const sFileName : string):boolean;
var
db : OLEVariant;
tmpFile : string;
begin
Result : false;
try
screen.cursor : crSQLWait;
if not DaoActive(db) then Exit;
try
tmpFile := AppendSlash(ExtractFilePath(sFileName))+'MsaTemp.mdb';
db.compactDatabase(sFileName, tmpFile);
DeleteFile(sFileName);
RenameFile(tmpFile, sFileName);
Result := true;
Except
on E: EOleException do
MsgError(E.Message);
end
finally
db := unassigned;
screen.cursor := crDefault;
end;
end;

我有程序可以完成。

多人接受答案了。