当前位置:编程问答 > Access >

Access 中如何使用 ADO 來压缩或修复 MS Access 文件?

答案:
Access 中如何使用 ADO 來压缩或修复 MS Access 文件?
专题地址:http://access911.net/index.asp?board=4&recordid=71FAB71E
 

问题:

Access 中如何使用 ADO 來压缩或修复 Microsoft Access 文件?
 



 回答:


以前使用 DAO 时,Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件,RepairDatabase Method 來修复损坏的 Microsoft Access 文件,。可是自从 ADO 出来之后,好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。


现在 Microsoft 发现了这个问题了,也提供了解决方法,不过有版本上的限制!限制说明如下:

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

在下载之前先到 VBE 界面中检查一下,【引用】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本,您就可以不用下载了!

在您安裝了 MDAC 2.1 或以上的版本之后,您就可以使用 ADO 来压缩或修复 Microsoft Access 文件,下面的步骤告诉您如何使用 CompactDatabase Method 来压缩 Microsoft Access 文件:

1、新建一个新表单,选择 VBE 中【引用】。
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!



 



附注:


1、出现错误提示(不能执行这项操作;在低版本的数据库中该版本的特性不可用。)是因为版本号与你的数据库格式不符,请看下面的对照表


引擎版本号
Jet OLEDB:Engine Type -> Jet x.x Format MDB Files 
1 -> JET10 
2 -> JET11 
3 -> JET2X 
4 -> JET3X 
5 -> JET4X 

2、其他的压缩修复数据库的对象以及方法:
http://support.microsoft.com/default.aspx?scid=kb;zh-cn;240434
虽然有时可以成功地打开某些损坏的数据库,但由于索引或表行已损坏,因此数据访问速度要慢很多。可以运行 Microsoft Access 开发环境中的“修复和压缩数据库”实用程序来修复损坏的数据库。编程时,您可以使用 Jet and Replication Objects (JRO) 的CompactDatabase 方法、Jet OLE DB 提供程序的IJetCompact::Compact 方法,或 Data Access Objects (DAO) 的CDaoDatabase::CompactDatabase 方法,来实现此目的。



 




方法二:

Delphi代码(未验证)
//uses ComObj,ActiveX
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;



 





方法三:


VC请参考:
http://support.microsoft.com/default.aspx?scid=kb;EN-US;230496
http://support.microsoft.com/?id=230501

 

上一个:关于Access发布使用打包软件的一些疑问解答
下一个:应用 SQLServer 链接服务器访问远程 Access 数据库

Access > 疑问解答:
你好,请你们给我一个w7的access2003,谢谢。马上要考试了,挺着急的。
delphi6数据库编程,连接Access2010,在有些计算机上,提示未找到提供程序,该程序可能未正确安装
电脑中已经有Access2007软件,可以再装Access2003软件吗?
计算机二级access2003安不上,求好心人发个access2003的安装包考二级用的谢谢
在linux redhat下输入命令,出错提示: SARG: File not found: /usr/local/squid/var/logs/access.log
access2007如何重命名一张表
用来准备计算机二级,access2003,免费,且安装版,安装版能用二级光盘。跪求啊跪求。977634156@qq.com
Access数据库中如何建立查询,得到每月的销售,回款和发票信息
求免验证码OFFICE 2003(含ACCESS 2003),或者破解版的,在win7上能安装的,谢谢
win xp能正常运行win7运行提示错误access violaton.....
您好,请问您有适合Win7旗舰版的ACCESS2003吗?谢谢wanqing0304@163.com
求office access2007免费完整版安装包,不要带验证码的,适合win7系统的。9996263@qq.com
我的word2003不小心被删了,想再下载一个,可是找了好几个网站都下不下来,求帮忙、要那种有excel,access
“为何用access建好的空数据库后,再在我保存盘上打开却是记事本?”急需回复
跪求access2003,win7家庭普版。今年二级考试用。希望发一个安装包给我。谢谢。我的QQ 1170725590
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,