ADO创建连接对象失败

[weiym]

Private Sub Command1_Click()
Dim o As ADODB.Connection
Set o = New ADODB.Connection
End Sub

返回 Run-time error '429'
ActiveX component can't create object

说明：
我已经在VB6工程里引用了ADO组件
我的系统是Win XP。

后来我重装了MDAC(ADO的安装包)，甚至重装了SQL Server，
都还是不行。

以前也遇到过类似问题，是通过重装系统来解决的。
大家有没有遇到过类似问题，是怎样解决的？

[zjcxc]

这样可以吗? 如果可以的话, 则说明你的引用不对, 如果不可以的话, 应该是MDAC的问题

Private Sub Command1_Click()
Dim o As object 'ADODB.Connection
Set o = createobject("ADODB.Connection")
End Sub

[weiym]

这样可以吗? 如果可以的话, 则说明你的引用不对, 如果不可以的话, 应该是MDAC的问题

Private Sub Command1_Click()
Dim o As object 'ADODB.Connection
Set o = createobject("ADODB.Connection")
End Sub
==================

这样也返回同样的错误

[OracleRoob]

Dim o As ADODB.Connection
Set o = New ADODB.Connection

这种语法格式并没有问题。

可能是运行库有损坏造成的。

[chuifengde]

将引用的ado版本提高些看看

[zjcxc]

看来肯定不是引用的类库的问题

[weiym]

我公司的一台电脑上就有这个问题，家里的一台电脑本来没有问题，昨天被我装了一个其他的东西，系统提示有冲突后就也有这个问题了。难道只有重装系统才能解决？这个问题怎么会没人遇上呢，我都遇到过好多次了。

[weiym]

对了，出现这个问题的机器上，如果用SQL Server管理器打开某个表时，会提示打开失败。程序如果用ODBC连接是没有问题的， ADO连接就不行了。

[chuifengde]

拉一个adodb控件，看用它绑定连库行否

[zjcxc]

微软的网站找找, 用搜索引擎搜索一下, 我记得有个御载ADO的, 将ADO的东西御载掉重新安装

[weiym]

解决了，重装ADO2.8就可以了
如果XP下不能重装，可参考
http://www.macropool.com/en/download/mdac_xp_sp2.html
谢谢楼上各位。