本文整理自网络,侵删。
现在,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 7zip 示例调用7z.dll 压缩及解压.7z文件
Delphi [函数] unicode 检查字符串是否含中文字
Delphi android应用程序中的java ui线程中执行处理
Delphi adoquery的post和updatebatch
更多相关阅读请进入《Delphi》频道 >>