mdb数据库压缩方法

《mdb数据库压缩方法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、MDB数据库压缩方法MDB数据库压缩方法.txt36母爱是一缕阳光，让你的心灵即便在寒冷的冬天也能感受到温暖如春；母爱是一泓清泉，让你的情感即使蒙上岁月的风尘仍然清澈澄净。MDB数据库压缩方法《世界商业评论》ICXO.COM(日期：2004-12-0315:19)--------------------------------------------------------------------------------MDB数据库压缩方法虽然说MDB数据库功能不是很强大，但时由于在WINx系统中已有缺省的驱动程序，所以不用另外像SQL，SYBASE一样安装一个管理驱动，而且

2、携带方便，很多的小应用程序或网站还是采用MDB数据库。经常操作MDB数据时，就会经常碰到要对数据进行压缩，下面的我在网上找到和自己使用的经验写一下关于在各种环境中压缩MDB数据库的方法，提供大家参考：一、ASP或VB中压缩以前使用DAO时，Microsoft有提供CompactDatabaseMethod来压缩MicrosoftAccess资料库，RepairDatabaseMethod来修复损毁的MicrosoftAccess资料库。可是自从ADO出来之后，也提供了解决方法，不过有版本上的限制！限制说明如下：ActiveXDataObjects(ADO),version2.

3、1MicrosoftOLEDBProviderforJet,version4.0这是Microsoft提出的ADO的延伸功能：MicrosoftJetOLEDBProviderandReplicationObjects(JRO)这个功能在JETOLEDBProviderversion4.0(Msjetoledb40.dll)及JROversion2.1(Msjro.dll)中第一次被提出！这些必要的DLL文件在您安装了MDAC2.1之后就有了，您可以在以下的网页中下载MDAC的最新版本！在下载之前先到VB6中检查一下，【工程】【设定引用项目】中的MicrosoftJetand

4、ReplicationObjectsX.Xlibrary如果已经是2.1以上的版本，您就可以不用下载了！在您安装了MDAC2.1或以上的版本之后，您就可以使用ADO来压缩或修复MicrosoftAccess资料库，下面的步骤告诉您如何使用CompactDatabaseMethod来压缩MicrosoftAccess资料库：1、开启一个新工程，点选功能表中的【工程】【设定引用项目】。2、加入MicrosoftJetandReplicationObjectsX.Xlibrary，其中(X.X大于或等于2.1)。3、在适当的地方加入以下的程序码，记得要修改datasource的内容

5、及目地资料库的路径：DimjroAsjro.JetEngineSetjro=Newjro.JetEnginejro.CompactDatabaseProvider=Microsoft.Jet.OLEDB.4.0;DataSource=d:wind2.mdb,_来源资料库Provider=Microsoft.Jet.OLEDB.4.0;DataSource=d:abbc2.mdb;JetOLEDB:EngineType=4目的资料库在DAO3.60之后，RepairDatabaseMethod已经无法使用了，以上的程序码显示了ADOCompactDatabaseMetho

6、d的用法，而它也取代了DAO3.5时的RepairDatabasemethod二、DELPHI中压缩constSConnectionString=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=％s;JetOLEDB:DatabasePassword=％s;;functionGetTempPathFileName():string;varSPath,SFile:array[0..254]ofchar;beginGetTempPath(254,SPath);GetTempFileName(SPath,~SM,0,SFile);result

7、:=SFile;DeleteFile(result);end;functionCompactDatabase(AFileName,APassWord:string):boolean;//压缩与修复数据库,覆盖源文件varSTempFileName:string;vJE:OleVariant;beginSTempFileName:=GetTempPathFileName;tryvJE:=CreateOleObject(JRO.JetEngine);vJE.CompactDatabase(format(SC