安装SQL Server 2000可能引发一个严重问题

核心提示：现象我的这台机器上调用微软的CDO或者CDOEX访问Exchange邮箱发生了异常！而且ADSI也工作不正常，从外表上看，安装SQL Server 2000可能引发一个严重问题，没有任何错误的迹象，重现步骤如下：VB中创建一个应用程序；引用CDOEX.DLL；代码写入：Set oMsg = CreateObject(&

现象

我的这台机器上调用微软的CDO或者CDOEX访问Exchange邮箱发生了异常！而且ADSI也工作不正常。从外表上看，没有任何错误的迹象。

重现步骤如下：

VB中创建一个应用程序；

引用CDOEX.DLL；

代码写入：

Set oMsg = CreateObject("CDO.Message")　
oMsg.DataSource.Open(“http://BackEndServer/public”)

则在第二行得到这样的错误：

Run-time error ‘-2147221164(80040154)’:

无法向注册表写入项

FrontEndServer 配置：

Windows Advanced Server 2000 内部版本号 2195:Service Pack 2

IE 版本：5.00.3315.1000 更新版本：SP2

CDOEX.DLL的版本号：6.0.4417.0

它所处的位置：C:Program FilesCommon FilesMicrosoft

原因

首先在FrontEndServer 安装了SQL Server 2000之前，我们可以使用CDOEX的IDataSource.Open打开用户邮箱的：

_ConnectionPtr pCon = NULL;
CComPtr <CDO::IFolder>pFldr;
CComPtr <CDO::IDataSource>pSource;
hr=pFldr.CoCreateInstance(L"CDO.Folder");
pFldr->get_DataSource(&pSource);
hr=pSource->Open(bstrURLInbox,
(IDispatch*)pCon,
adModeRead,
adFailIfNotExists,
adOpenSource,
bstrUserDomainAccount,
bstrUserPwd);

但是安装了SQL Server之后，MDAC就被更新到了version 2.6！!

由于Microsoft的过错，早期的一些MDAC组件被MDAC 2.6删除或者被覆盖掉了!!

而运行IDataSource.Open，是需要引用MDAC 2.5的这些被删除了的组件的，所以就会报出“Class Not Registered”的错误。

此时，如果运行下面的代码：

Set con = CreateObject("ADODB.Connection")
　　con.Provider = "ADsDSOObject"
　　con.Open "ADs Provider"

最后一行会失败并报错：

run-tim error 429 ''''ActiveX component
can''''t create object''''

这种情况被新闻组的人们称之为：

“ADSI toasting ADO”!!

这就是一个非常严重的问题了。你的要使用到以前的ADO的接口的程序可能都不行了！

所以，安装了SQL Server 2000之后，请一定要下载最新的MDAC安装包或者补丁。

解决这个CDOEX的问题，就是下载并安装MDAC 2.6 SP1 (2.61.7326.6).exe。

小结

在任何机器上安装SQL Server 2000时，都请注意这个问题！

一旦发现原来可以运行的程序现在爆出一些莫名其妙的错误，请先更新这台机器上的MDAC或者打SQL Server 2000 SP1。