运行时错误 429 ActiveX部件不能创建对象！！！高手帮忙啊~

[janeywong]

Public Sub createDB()
Dim tdExample As TableDef
Dim dbDatabase As Database
Dim sNewDBPathAndName As String

sNewDBPathAndName = getCurrentDayFileName()
Set dbDatabase = CreateDatabase(sNewDBPathAndName, dbLangGeneral, dbEncrypt)
....
为什么在有的机器上，运行到最后一行的时候（Set语句)，提示--运行时错误 429 ActiveX部件不能创建对象！！！
困扰好几天了，都没找到解决方案，真的只能重装系统么？
请问是哪个控件出了问题？

[jam021]

或者是打包的问题,用install shield x吧,比VB自带的打包好很多

[cangwu_lee]

DAO 错误，安装一下

[zzyong00]

你引用数据库对象了吗？

[janeywong]

引用了啊，我打包生成可执行文件后，在有的电脑上可用，有的电脑上就会报错，好郁闷，429
是在创建access数据库的时候，就出错了

[饮水需思源]

缺少控件了，安装MDAC2.8MDACTYP.EXE试试

[janeywong]

头痛啊，是不是有什么DLL/OCX控件没调用还是末正常注册？
不过什么有的电脑行，有的不行？
VB的程序过分依赖运行环境，哎说不准。
You must
install MDAC via MDAC_TYP.EXE, or by a Microsoft product that installs MDAC
for you. http://www.able-consulting.com/ADO_Faq.htm#Q4

[janeywong]

请问Leftie(左手,为人民币服务)
哪里有下么？我找了N久了，没找着
郁闷啊
就靠你了~大哥，帮帮俺吧~

[janeywong]

我在出现问题的地方安装的时候，出现这样的提示：
MDAC 2.8 RTM 与此版本 Windows 不兼容。现在它的所有功能都成为 Windows 的一部分。
请问该怎么办？救命啊

[fangyc]

你是否少用了一个New关键字

[fangyc]

象调用一些控件的时候都要用New关键字的
例如
Dim fso As New Scripting.FileSystemObject
Set fso = New FileSystemObject

[饮水需思源]

我传你一份吧，告诉邮箱