解決Access中使用Createobject 出現(xiàn) 錯(cuò)誤429，ACTIVEX部件不能創(chuàng)建對(duì)象＂的解決辦法

tmtony

解決Access中使用Createobject 出現(xiàn) 錯(cuò)誤429，ACTIVEX部件不能創(chuàng)建對(duì)象＂的解決辦法
搜索了很多相關(guān)的辦法，最終是通過(guò)Regsvr32 相關(guān)部件的方法解決
以下是別人給的一些相關(guān)解決辦法，留個(gè)記錄。以免遺忘
1、開(kāi)始 運(yùn)行 輸入 regsvr32 scrrun.dll就可以了
2、還有人這樣說(shuō)：
“運(yùn)行時(shí)錯(cuò)誤429，ActiveX部件不能創(chuàng)建對(duì)象”的解決辦法2009-07-24 16:25提示: "運(yùn)行時(shí)錯(cuò)誤 '429': ActiveX 部件不能創(chuàng)建對(duì)象"...
或: "Run-time error '429' ActiveX componnent can't create object"...
原因:出現(xiàn)以上原因是由于操作系統(tǒng)的“dao350.dll”文件沒(méi)注冊(cè)成功造成的。
處理方法:手工注冊(cè)此文件：點(diǎn)擊“開(kāi)始”→“運(yùn)行”在彈出的輸入框中鍵入以下命令：
regsvr32 "C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll"

然后按回車(chē)鍵，注意必須加引號(hào)。
如果還提示：429錯(cuò)誤，可以再行手工注冊(cè)SCRRUN.DLL。點(diǎn)擊“開(kāi)始”→“運(yùn)行”在彈出的輸入框中鍵入以下命令：
regsvr32 "C:\windows\system32\scrrun.dll",然后按回車(chē)鍵,即可。

如果上述"C:\Program Files\Common Files\Microsoft Shared\DAO\dao350.dll"文件不存在從別人機(jī)器上面拷貝一個(gè),或者名字為更高版本的直接更改注冊(cè)名字,比如dao360.dll

3、
Microsoft VBscrīpt 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a01ad'
ActiveX 部件不能創(chuàng)建對(duì)象
這個(gè)錯(cuò)誤是asp組件未注冊(cè)，而導(dǎo)致。解決方法如下：
1、如果是你自己開(kāi)發(fā)的組件，請(qǐng)使用
   regsvr32 路徑/組件.dll 進(jìn)行注冊(cè)。

2、可能是IIS自帶的常用組件，由于系統(tǒng)問(wèn)題、或殺毒等原因，導(dǎo)致組件出現(xiàn)問(wèn)題，則請(qǐng)用下列兩個(gè)cmd命令試一下。


regsvr32 scrrun.dll
重新注冊(cè)FSO文件管理。
regsvr32 "C:\Program Files\Common Files\System\ado\msado15.dll"
重新注冊(cè)ADODB.Stream組件

如果上述兩法仍未解決，則可能是其它原因，不仿試試下面bat批處理代碼。將下面代碼復(fù)制到記事本，另存為 cmd.bat，雙擊運(yùn)行就可以了。

echo 正在修復(fù)，這個(gè)過(guò)程可能需要幾分鐘，請(qǐng)稍候……
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\System32\dacui.dll
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%\Catroot\icatalog.mdb
regsvr32 /s comcat.dll
regsvr32 /s asctrls.ocx
regsvr32 /s oleaut32.dll
regsvr32 /s shdocvw.dll /I
regsvr32 /s shdocvw.dll
regsvr32 /s browseui.dll
regsvr32 /s browseui.dll /I
regsvr32 /s msrating.dll
regsvr32 /s mlang.dll
regsvr32 /s hlink.dll
regsvr32 /s mshtml.dll
regsvr32 /s mshtmled.dll
regsvr32 /s urlmon.dll
regsvr32 /s plugin.ocx
regsvr32 /s sendmail.dll
regsvr32 /s mshtml.dll /i
regsvr32 /s scrobj.dll
regsvr32 /s corpol.dll
regsvr32 /s jscrīpt.dll
regsvr32 /s msxml.dll
regsvr32 /s imgutil.dll
regsvr32 /s cryptext.dll
regsvr32 /s inseng.dll
regsvr32 /s iesetup.dll /i
regsvr32 /s cryptdlg.dll
regsvr32 /s actxprxy.dll
regsvr32 /s dispex.dll
regsvr32 /s occache.dll
regsvr32 /s iepeers.dll
regsvr32 /s urlmon.dll /i
regsvr32 /s cdfview.dll
regsvr32 /s webcheck.dll
regsvr32 /s mobsync.dll
regsvr32 /s pngfilt.dll
regsvr32 /s licmgr10.dll
regsvr32 /s hhctrl.ocx
regsvr32 /s inetcfg.dll
regsvr32 /s trialoc.dll
regsvr32 /s tdc.ocx
regsvr32 /s MSR2C.DLL
regsvr32 /s msident.dll
regsvr32 /s msieftp.dll
regsvr32 /s xmsconf.ocx
regsvr32 /s ils.dll
regsvr32 /s msoeacct.dll
regsvr32 /s wab32.dll
regsvr32 /s wabimp.dll
regsvr32 /s wabfind.dll
regsvr32 /s oemiglib.dll
regsvr32 /s directdb.dll
regsvr32 /s inetcomm.dll
regsvr32 /s msoe.dll
regsvr32 /s oeimport.dll
regsvr32 /s msdxm.ocx
regsvr32 /s dxmasf.dll
regsvr32 /s laprxy.dll
regsvr32 /s l3codecx.ax
regsvr32 /s acelpdec.ax
regsvr32 /s mpg4ds32.ax
regsvr32 /s danim.dll
regsvr32 /s Daxctle.ocx
regsvr32 /s lmrt.dll
regsvr32 /s datime.dll
regsvr32 /s dxtrans.dll
regsvr32 /s dxtmsft.dll
regsvr32 /s wshom.ocx
regsvr32 /s wshext.dll
regsvr32 /s vbscrīpt.dll
regsvr32 /s scrrun.dll mstinit.exe /setup
regsvr32 /s msnsspc.dll /SspcCreateSspiReg
regsvr32 /s msapsspc.dll /SspcCreateSspiReg
echo.
echo.
echo 修復(fù)成功！任意鍵退出！
pause>nul
案例：

以下是無(wú)組件上傳upload.asp頁(yè)面的部分代碼：
  Set Form = Server.CreateObject ("scrīpting.Dictionary")
  Form.CompareMode = 1
  Set File = Server.CreateObject ("scrīpting.Dictionary")
  File.CompareMode = 1
  'A處
  Set tStream = Server.CreateObject ("ADODB.Stream")
  Set ōUpFileStream = Server.CreateObject ("ADODB.Stream")
  'B處
整個(gè)程序以前均可用，但后來(lái)由于計(jì)算機(jī)染毒，重裝系統(tǒng)并殺毒之后，發(fā)現(xiàn)這個(gè)頁(yè)面程序出現(xiàn)
Microsoft VBscrīpt 運(yùn)行時(shí)錯(cuò)誤 錯(cuò)誤 '800a01ad'
ActiveX 部件不能創(chuàng)建對(duì)象
錯(cuò)誤，使用
   response.write "測(cè)試調(diào)試"
   response.end

放在A處和B處調(diào)試，發(fā)現(xiàn)是
Set tStream = Server.CreateObject ("ADODB.Stream")
這塊的問(wèn)題�？梢�(jiàn)，是組件的問(wèn)題，于是使用上面命令重注了一上，OK，問(wèn)題解決了。

wu8313

在windows8系統(tǒng)中，遇到這個(gè)問(wèn)題，樓主方法試過(guò)了，不行。

GOODWIN

謝謝分享