Question

我正在尝试在VBscript中创建ADODB.Stream对象。这是功能：

   Function ByteArray2Text(varByteArray)
'Convert byte array into a string with ADODB.Stream
'Data should be real plain text because binary data will be mangled
Dim byt
Const adTypeText = 2
Const adTypeBinary = 1
    Set byt = CreateObject("ADODB.Stream")
    byt.Type = adTypeBinary
    byt.Open
    byt.Write varByteArray
    byt.Position = 0
    byt.Type = adTypeText
    byt.CharSet = "us-ascii"
    ByteArray2Text = byt.ReadText
    byt.Close
    Set byt = Nothing
End Function

当我尝试运行此功能时，我收到错误：

Microsoft VBScript runtime error: ActiveX component can't create object: 'ADODB.Stream'

我需要做什么来创建这个ADODB.Stream对象？

Answer 1

确保：

您的计算机上会退出Stream组件。
如果存在，请在运行对话框中输入：

regsvr32“path \ stream_file_here.dll”

有可能蒸汽组件文件已在注册表中取消注册，您无法创建该对象。

Answer 2

确保您已安装MDAC。

Answer 3

尝试像Mark所说的MDAC ......但你也可以尝试使用microsoft Jet 4.0

你也可以注册这些dll：

REGSVR32“C：\ Arquivos de Programas \ Arquivos Comuns \ System \ ole db \ sqloledb.dll”

REGSVR32“C：\ Arquivos de Programas \ Arquivos Comuns \ System \ ole db \ Oledb32.dll”

REGSVR32“C：\ Arquivos de Programas \ Arquivos Comuns \ System \ ole db \ Msdasql.dll”

REGSVR32“C：\ Arquivos de Programas \ Arquivos Comuns \ System \ msadc \ Msadce.dll”

他们与adodb有关系

无法创建对象：ADODB.Stream

3 个答案: