DELPHI FIREDAC压缩和修复MS ACCESS数据库


本文整理自网络,侵删。

 现在,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 获得控件所在的窗体

Delphi 通过递归来实现搜索文件

Delphi fastreport快速入门

Delphi 拷贝dbgrid当前行

Delphi 调用golang dll

Delphi webbrowser控件的documentcomplete和downloadcomplete的区别

Delphi ticon保存ico文件时失真的解决办法

Delphi 如何让 tgpimage 直接从流中加载图片?

Delphi 从listview组件中的选定行在数据库中删除

Delphi 2009 新增单元 character isletter、isupper、islower、isdigit、isnumber

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...