本文整理自网络，侵删。
现在，Delphi Firedac只需几行代码就可以更干净地执行这些功能。
在数据模块中，您需要删除FDMSAccessService组件并将驱动程序链接设置为FDPhysMSAccessDriverLink
数据库连接应该关闭。
应该设置数据库名称和路径。
仅在使用数据库密码时才需要设置数据库密码。
执行修复和压缩以完成任务。
function TfrmMainForm.CompactAndRepair(const DB: string): Boolean;
begin
Result := True;
DM.DataMod.FDConnection.Connected := False;
DM.DataMod.FDMSAccessService.Database := DB;
DM.DataMod.FDMSAccessService.Password := 'PASSWORD';
try
DM.DataMod.FDMSAccessService.Repair;
except
on E : Exception do
begin
ShowMessage('Exception message = '+E.Message);
Result := False;
end;
end;
try
DM.DataMod.FDMSAccessService.Compact;
except
on E : Exception do
begin
ShowMessage('Exception message = '+E.Message);
Result := False;
end;
end;
DM.DataMod.FDConnection.Connected := True;
end; 相关阅读 >>
Delphi tstringlist 保存txt文本文件最后一行不留空行
Delphi 用 directshow 获取本机的视频摄像设备列表
更多相关阅读请进入《Delphi》频道 >>
