本文整理自网络,侵删。
现在,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 getmodulefilename函数的用法(可以获取项目的路径,桌面的路径,我的文档的路径)
Delphi webbrowser1 querystatuswb
Delphi xe8 numberbox使用方法及存在的问题
更多相关阅读请进入《Delphi》频道 >>