delphi 压缩带密码的Access数据库的方法

本文整理自网络，侵删。

 function CompactDatabase(AFileName,APassWord:string):boolean;
const
SConnectionString='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:Database Password=%s;';
var
SPath,SFile:Array [0..254] Of Char;
STempFileName:String;
JE:OleVariant;
begin
GetTempPath(40,SPath);
GetTempFileName(SPath,'~CP',0,SFile);
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);
try
JE:=CreateOleObject('JRO.JetEngine');
OleCheck(JE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord])));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;
 

相关阅读 >>

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

Delphi 注册表启动项管理代码

Delphi 获取文件创建时间

Delphi根据网络链接截取域名

Delphi firemonkey的stylebook皮肤控件的使用

Delphi xe 获取 android application version 版本

Delphi incyear、incmonth、incweek、incday、inchour、incminute、incsecond、incmillisecond �c 增时

Delphi fmx 图像处理成圆角图像

Delphi 字符串与二进制数之间的互相转换

Delphi firedac 下的 sqlite [9] - 关于排序

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

转载请注明出处：木庄网络博客 » delphi 压缩带密码的Access数据库的方法