熟悉DELPHI中控制OFFICE的大虾进来看看，帮一下小弟弟我！！！

Question

在ACCESS中，工具-》数据库实用工具-》压缩和修复数据库，可实现对数据的压缩。请问，我如何在程序中调用这个功能。我已在form上放AccessApplication和AccessForm,该通用什么函数实现？有劳了！

Answer 1

//压缩Access数据库function DaoCompactDB(const FileName:string):Boolean;vardb:OleVariant;TempFile:string;beginResult:=False;tryif not DaoActive(db) thenExit;tryTempFile:=ExtractFilePath(FileName)+'msaTemp.mdb';db.CompactDatabase(FileName,TempFile);DeleteFile(FileName);RenameFile(TempFile,FileName);Result:=True;excepton E:EOleException doShowMessage(E.Message);endfinallydb:=Unassigned;end;end;//修复Access数据库function DaoRepairDB(const FileName:string):Boolean;vardb:OleVariant;beginResult:=False;tryif not DaoActive(db) thenExit;trydb.RepairDatabase(FileName);Result:=True;excepton E:EOleException doShowMessage(E.Message);endfinallydb:=Unassigned;end;end;end.　　

Answer 2

请问，这个DaoActive()是什么函数，是您自己定义的吗？