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 getexplorerpid获取系统explorer.exe进程id

Delphi web service 多表提交的事务管理

Delphi indy防止假死

Delphi防止同时出现多个应用程序实例

Delphi 的字符串在 firemonkey 模式下

Delphi 防止系统睡眠

Delphi isthisleapyear 判断闰年

Delphi 从url地址中获得文件名

Delphi下的纯pascal的十六进制转十进制

dll 使用 pchar 参数的小例子

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



打赏

取消

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

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

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

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

评论

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