文档介绍：MDB 数据库压缩方法 MDB 母爱是一缕阳光, 让你的心灵即便在寒冷的冬天也能感受到温暖如春; 母爱是一泓清泉, 让你的情感即使蒙上岁月的风尘仍然清澈澄净。 MDB 数据库压缩方法《世界商业评论》 ( 日期: 2004-12-03 15:19) ----------------------------------------------------------- --------------------- MDB 数据库压缩方法虽然说 MDB 数据库功能不是很强大, 但时由于在 WIN x 系统中已有缺省的驱动程序, 所以不用另外像 SQL , SYBASE 一样安装一个管理驱动, 而且携带方便, 很多的小应用程序或网站还是采用 MDB 数据库。经常操作 MDB 数据时, 就会经常碰到要对数据进行压缩, 下面的我在网上找到和自己使用的经验写一下关于在各种环境中压缩 MDB 数据库的方法,提供大家参考: 一、 ASP 或 VB 中压缩以前使用 DAO 时, Microsoft pactDatabase Method 来压缩 Microsoft Access 资料库, RepairDatabase Method 来修复损毁的 Microsoft Access 资料库。可是自从 ADO 出来之后,也提供了解决方法,不过有版本上的限制!限制说明如下: ActiveX Data Objects (ADO), version Microsoft OLE DB Provider for Jet, version 这是 Microsoft 提出的 ADO 的延伸功能: Microsoft Jet OLE DB Provider and Replication Objects (JRO) 这个功能在 JET OLE DB Provider version () 及 JRO version () 中第一次被提出!这些必要的 DLL 文件在您安装了 MDAC 之后就有了,您可以在以下的网页中下载 MDAC 的最新版本!在下载之前先到 VB6 中检查一下,【工程】【设定引用项目】中的 Microsoft Jet and Replication Objects library 如果已经是以上的版本,您就可以不用下载了!在您安装了 MDAC 或以上的版本之后,您就可以使用 ADO 来压缩或修复 Microsoft Access 资料库,pactDatabase Method 来压缩 Microsoft Access 资料库: 1、开启一个新工程,点选功能表中的【工程】【设定引用项目】。 2 、加入 Microsoft Jet and Replication Objects library , 其中( 大于或等于 )。 3、在适当的地方加入以下的程序码, 记得要修改 data source 的内容及目地资料库的路径: Dim jro As Set jro = New pactDatabase Provider=;Data Source=d:\, _ 来源资料库 Provider=;Data Source=d:\;Jet OLEDB:Engine Type=4 目的资料库在 DAO 之后, RepairDatabase Method 已经无法使用了,以上的程序码显示了 pactDatabase Method 的用法,而它也取代了 DAO 时的 RepairDatabase method 二、 DELPHI 中压缩 const SConnectionString = Provider=;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; pactDatabase(AFileName,APassWord:string):boolean