用程序实现压缩access(*.mdb)数据库的方法

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了用程序实现压缩access(*.mdb)数据库的方法，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1378字，纯文字阅读大概需要2分钟。

内容图文

下面的函数用来 压缩 access 数据库 需要增加ComObj单元 function CompactDatabase(AFileName,APassWord:string):boolean; // 压缩 与修复 数据库 ,覆盖源文件 const SConnectionString = 'PRovider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;' +'Jet OLEDB:D

下面的函数用来压缩access数据库 需要增加ComObj单元
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);//取得Windows的Temp路径
GetTempFileName(SPath,'~CP',0,SFile);//取得Temp文件名,Windows将自动建立0字节文件
STempFileName:=SFile;//PChar->String
DeleteFile(STempFileName);//删除Windows建立的0字节文件
try
　 JE:=CreateOleObject('JRO.JetEngine');//建立OLE对象,函数结束OLE对象超过作用域自动释放
　 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;

内容总结

以上是互联网集市为您收集整理的用程序实现压缩access(*.mdb)数据库的方法全部内容，希望文章能够帮你解决用程序实现压缩access(*.mdb)数据库的方法所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---