Не могу создать объект: ADODB.Stream

Question

Я пытаюсь создать объект ADODB.Stream в VBscript. Это функция:

   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

Убедитесь, что у вас установлен MDAC .

Answer 2

Попробуйте 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

Answer 3

Убедитесь, что:

1. Компонент Stream выходит на ваш компьютер.

2. Если он существует, введите его в диалоговом окне запуска:

   regsvr32 "path \ stream_file_here.dll"

Скорее всего, файл компонента steam был незарегистрирован в реестре, и вы не можете создать объект этого.