Delphi 实现 Access 2003 数据库压缩
2020-03-05 11:54
1196 查看
源码:
//AFileName:文件名称,APassWord:密码
procedure CompactDatabase(AFileName,APassWord:string);
const
SConnStr = '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;
DeleteFile(STempFileName);
try
JE:=CreateOleObject('JRO.JetEngine');
OleCheck(JE.CompactDatabase(Format(SConnStr,[AFileName,APassWord]),
Format(SConnStr,[STempFileName,APassWord])));
CopyFile(PChar(STempFileName),PChar(AFileName),False);
DeleteFile(STempFileName);
showmessage('数据库压缩完成!');
except
showmessage('数据库压缩失败!');
end;
end;
- 点赞
- 收藏
- 分享
- 文章举报
相关文章推荐
- DELPHI 压缩ACCESS数据库
- 用Delphi压缩Access数据库
- Delphi修改Access密码,压缩与修复,建立Access数据库文件
- Delphi修改Access密码,压缩与修复,建立Access数据库文件
- 实现压缩access(*.mdb)数据库的方法
- 用程序实现压缩access(*.mdb)数据库的方法.
- 用程序实现压缩access(*.mdb)数据库的方法
- delphi 实现数据库读取图片文件
- ASP代码实现自动清除替换ACCESS(MDB)数据库的日文字符的
- 基于数据库(access)层次编码记录对TreeView的操作(实现自动编码,灵活控制编码规则和编码层次)
- c#自带压缩类实现数据库表导出到CSV压缩文件的方法
- 2003 ACCESS 数据库 支持的数据类型
- c#自带压缩类实现数据库表导出到CSV压缩文件的方法
- 多层数据库应用基于Delphi DataSnap方法调用的实现(四)BLOB字段的读写
- 如何用DELPHI实现把WORD、EXCEL和图片等存储到数据库中
- 基于Delphi的三层数据库系统的实现方法
- 使用Delphi压缩Access
- vs 2003 实现文件的在线压缩和解压缩
- 使用PHP连接多种数据库的实现代码(mysql,access,sqlserver,Oracle)
- 多层数据库应用基于Delphi DataSnap方法调用的实现对象池技术