Delphi 实现 Access 2003 数据库压缩

最新推荐文章于 2017-11-01 16:22:01 发布

cbuiler_guo

最新推荐文章于 2017-11-01 16:22:01 发布

阅读量147

点赞数

分类专栏： access 文章标签： Delphi Access Microsoft

access 专栏收录该内容

1 篇文章

订阅专栏

本文提供了一个使用Delphi编写的源码示例，展示了如何通过Microsoft Jet Engine压缩带密码保护的Access数据库文件。该过程包括创建临时文件、压缩原始数据库并替换之。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

源码：


//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;