首页 相关文章 用程序实现压缩access(*.mdb)数据库的方法

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

下面的函数用来压缩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;//PCh...[ 查看全文 ]

2016-02-19 标签:

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

手机页面
收藏网站 回到头部