delphi MDB数据库压缩方法|笨鱼技术网

虽然说MDB数据库功能不是很强大，但时由于在WIN x系统中已有缺省的驱动程序，所以不用另外像SQL，SYBASE一样安装一个管理驱动，而且携带方便，很多的小应用程序或网站还是采用MDB数据库。经常操作MDB数据时，就会经常碰到要对数据进行压缩，下面的我在网上找到和自己使用的经验写一下关于在各种环境中压缩MDB数据库的方法，提供大家参考：

一、ASP或VB中压缩

以前使用 DAO 时，Microsoft 有提供 CompactDatabase Method 来压缩 Microsoft Access 资料库，RepairDatabase Method 来修复损毁的 Microsoft Access 资料库。可是自从 ADO 出来之后，也提供了解决方法，不过有版本上的限制！限制说明如下：

ActiveX Data Objects (ADO), version 2.1

Microsoft OLE DB Provider for Jet, version 4.0

这是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO)这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！这些必要的 DLL 文件在您安装了 MDAC 2.1 之后就有了，您可以在以下的网页中下载 MDAC 的最新版本！Universal Data Access Web Site在下载之前先到 VB6 中检查一下，【工程】【设定引用项目】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！在您安装了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 来压缩或修复 Microsoft Access 资料库，下面的步骤告诉您如何使用 CompactDatabase Method 来压缩 Microsoft Access 资料库：1、开启一个新工程，点选功能表中的【工程】【设定引用项目】。

2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。

3、在适当的地方加入以下的程序码，记得要修改 data source 的内容及目地资料库的路径：

Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _ @#来源资料库
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4" @#目的资料库

在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序码显示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 时的 RepairDatabase method

二、DELPHI中压缩

const  SConnectionString       = @#Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;@#                                +@#Jet OLEDB:Database Password=%s;@#;

function GetTempPathFileName():string;

var

  SPath,SFile:array [0..254] of char;
begin
  GetTempPath(254,SPath);
  GetTempFileName(SPath,@#~SM@#,0,SFile);
  result:=SFile;
  DeleteFile(result);
end;

function CompactDatabase(AFileName,APassWord:string):boolean;
//压缩与修复数据库,覆盖源文件
var
  STempFileName:string;
  vJE:OleVariant;
begin
  STempFileName:=GetTempPathFileName;
  try
    vJE:=CreateOleObject(@#JRO.JetEngine@#);
    vJE.CompactDatabase(format(SConnectionString,[AFileName,APassWord]),
        format(SConnectionString,[STempFileName,APassWord]));
    result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
    DeleteFile(STempFileName);
  except
    result:=false;
  end;
end;