Impossible de créer l'objet: ADODB.Stream

Question

J'essaie de créer un objet ADODB.Stream dans VBScript. Ceci est la fonction:

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 

Lorsque je tente d'exécuter cette fonction, je reçois l'erreur:

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

Ce que je dois faire, pour créer cet objet ADODB.Stream?

Answer 1

Assurez-vous que:

1. Les sorties de composants de flux sur votre ordinateur.

2. Si elle existe, tapez à boîte de dialogue Exécuter:

   regsvr32 « chemin \ stream_file_here.dll »

Les chances sont que le fichier des composants de la vapeur a été désinscrit dans le registre et vous ne peut pas créer un objet de cela.

Answer 2

Assurez-vous que vous avez MDAC installé.

Answer 3

Essayez MDAC comme Mark dit ... mais vous pouvez essayer Microsoft Jet 4.0

Vous pouvez également inscrire ces dll:

REGSVR32 « C: \ Arquivos de programas \ Arquivos Comuns \ System \ ole db \ sqloledb.dll "

REGSVR32 "C: \ Arquivos de programas \ Arquivos Comuns \ System \ db ole \ 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"

Ils ont relation avec adodb