Delphi 优化MDB文件
2022-12-03 16:24:13 作者:admin
本文整理自网络,侵删。
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》频道 >>
猜你喜欢
联络方式:
400-123-789
邮箱:xiachao@163.com
Q Q:12345678
微信公众号
微信二维码