Delphi 优化MDB文件

本文整理自网络，侵删。

 
uses ComObj;

procedure CompactMdb(  SourceMdbPath, SourceMdbPassword,  TargetMdbPath, TargetMdbPassword: String);const  SOURCE_PARAM = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Database Password=%s';  TARGET_PARAM = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Jet OLEDB:Engine Type=%d;Jet OLEDB:Database Password=%s';  ENGINE_TYPE = 5; //Jet OLEDB:Engine类型var  Engine: OleVariant;  SourceStr, TargetStr: String;begin  SourceStr := Format(SOURCE_PARAM, [SourceMdbPath, SourceMdbPassword]);  TargetStr := Format(TARGET_PARAM, [TargetMdbPath, ENGINE_TYPE, TargetMdbPassword]);  Engine := ComObj.CreateOleObject('JRO.JetEngine');  Engine.CompactDatabase(SourceStr, TargetStr);end;


procedure TForm1.FormCreate(Sender: TObject);begin
CompactMdb('C:\mdb\old.mdb', 'pass1','C:\mdb\new.mdb', 'pass2');
end;
 

相关阅读 >>

Delphi获取身份证号码验证码算法

rad studio Delphi创建安卓服务creating android services

Delphi获取默认浏览器

Delphi异常死亡进程的自动复活

processid, process handle, window handle 之间的互相转换

Delphi 动态创建一个ipedit控件

Delphi中time消息的使用方法

Delphi 安卓添加资源图片并读取

Delphi 捕捉异常 try except语句 和 try finally语句用法以及区别

Delphi inttostransi

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