MDB数据库压缩方法

《世界商业评论》 ( 日期：2004-12-03 15:19)

--------------------------------------------------------------------------------





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 的最新版本！在下载之前先到 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
pactDatabase 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);
pactDatabase(format(SConnectionString,[AFileName,APassWord]),
format(SConnectionString,[STempFileName,APassWord]));
result:=CopyFile(PChar(STempFileName),PChar(AFileName),false);
DeleteFile(STempFileName);
except
result:=false;
end;
end;



三、C Builder中压缩



C 中在网上并没有找到很好的方法，但是根据我原来所作的建立MDB数据库方法，也找到了一个相对实用的的压缩方法；



1、 建立MDB文件的函数



#include



bool CreateAccessFile( String stFileName )



{



if( FileExists( stFileName )) return true ;






Variant vCreateAccess;



Procedure PCreateAccess( Create );






PCreateAccess << Provider=Microsoft.Jet.OLEDB.4.0;Data Source= stFileName ;



vCreateAccess = CreateOleObject( ADOX.Catalog );



vCreateAccess.Exec( PCreateAccess );






return ( FileExists( stFileName )) ;



}



//---------------------------------------------------------------------------



2、 由OLE想到的功能来实现压结合实际的功能



#include



void CompactDatabase( String stFileName )



{



Variant vCreateAccess;



Procedure PCreateAccess( CompactDatabase );






String stTempFile = Temp.mdb ;



if( FileExists(stTempFile)) DeleteFile(stTempFile) ;



PCreateAccess << Provider=Microsoft.Jet.OLEDB.4.0;Data Source= stFileName ; ; //如果有密码请加上后面这一句Jet OLEDB:Database Password=password; ;



PCreateAccess << Provider=Microsoft.Jet.OLEDB.4.0;Data Source= stTempFile ; ; //如果有密码请加上后面这一句Jet OLEDB:Database Password=password; ;



vCreateAccess = CreateOleObject( JRO.JetEngine );



vCreateAccess.Exec( PCreateAccess );



//代替原来的数据库



CopyFile(stTempFile.c_str(),stFileName.c_str(), (int)false ) ;



DeleteFile(stTempFile) ;



}



四、Vc中压缩



#import C:PROGRAM FILESCOMMON FILESSystemadoMSJRO.DLL no_namespace Add the following (specifying your own source and destination database paths) to the .cpp file where you
want to compact the database:




try
{
IJetEnginePtr jet(__uuidof(JetEngine));
jet->CompactDatabase(
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb,
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc.mdb;
Jet OLEDB:Engine Type=4);
}
catch(_com_error ＆e)
{
::MessageBox(NULL, (LPCTSTR)e.Description( ), , MB_OK) ;
}






更具体的E文可以看微软的文章：