Discussion :

[Neoximus]

Bonjour à tous,
J'ai un problème pour me connecter à ma DB via VBA.

Dans la configuration actuelle nous avons win 10 Pr 64 bits et office 2013 ou 2016 32 bits.
J'ai installé Oracle Developer Tools ( ODTwithODAC122011.zip ) et je me connecte à ma DB via les code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.dbOpenDatabase(ORACLE_INSTANCE, ORACLE_CONNECTION, 0&)

Les nouveaux PC sont installé avec office 365 32 ou 64 bits et la connexion ne se fait pas.

Lors de l'exécution il y a une erreur sur la ligne Set OraSession = CreateObject("OracleInProcServer.XOraSession") .

Run-time error '429';
ActiveX component can't create object

Dans les références il n'y a pas de différences.

Est ce que quelqu'un aurait une solution ?
Merci d'avance.

Alex,

[vanagreg]

Bonjour,

J'utilise VBA pour me connecter à une base Oracle et ce n'est pas comme ça que je fais. Puisque tu as téléchargé ODAC, tu dois avoir le driver Ole DB, donc il faut que tu le coches dans les références. La référence ADO doit également être cochée.
Ensuite dans le code tu fais:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Set Conn = New ADODB.Connection
 
With Conn
    .ConnectionString = "PROVIDER=OraOLEDB.Oracle;USER ID=" & vUser & ";PASSWORD=" & vPwd & ";DATA SOURCE=(DESCRIPTION=(ADDRESS_LIST =(ADDRESS=(PROTOCOL=TCP)(HOST = " & vHost & ")(PORT = " & vPort & ")))(CONNECT_DATA =(SERVICE_NAME = " & vService & ")))"
    .Open
End With

Tu renseignes les variables de la chaine de connection par les tiennes.

[Neoximus]

Bonjour,

J'utilise cette méthode car on l'avait établie avec l'éditeur de notre logiciel.

Pour ce qui est de ta méthode, j'ai bien dans les références "OraOLEDB 1.0 Type Library" et ADO cochées, mais j'ai une erreur à l'ouverture de la connection :

Ayant déjà grand nombre de fichiers codé avec ma méthode je voudrais trouver une solution en gardant celle ci afin de ne pas avoir a reprendre de font en comble chaque fichier.

Merci encore.

Alessandro.

[vanagreg]

Si même avec cette méthode tu as une erreur (dont tu ne donnes pas le détail d'ailleurs), c'est qu'il doit y avoir un pb d'installation quelque part. Déjà il faut bien prendre les drivers version 32bits si Office est en 32bits et les drivers 64bits si Office est en 64bits.