Echec de connection sur une base oracle par VBA [Fermé]

Signaler
Messages postés
2
Date d'inscription
jeudi 19 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017
-
Messages postés
2
Date d'inscription
jeudi 19 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017
-
Bonjour,

Je suis en train de tenter de connecter une macro excel à une base de données oracle.

Quand je me connecte à cette base par sqldeveloper j'utilise les paramètres suivants et je n'ai aucun problème:

( j'anonymise les paramètres pour des raison de confidentialité )

Nom de connexion : ANONYMOUS
Nom utilisateur : anonLogin
Mot de passe : anonPwd
Nom de l'hote : xxxxx.anon.fr
Port : 1521
SID : anonSID

voila ce que j'écris dans ma MAcro

Sub toto()
Dim SQL_String As String
Dim dbConnectStr As String
Set con = New ADODB.Connection
Set recset = New ADODB.Recordset
dbConnectStr = "Provider=OraOLEDB.Oracle;" & _
" Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST= xxxxx.anon.fr)(PORT=1521)))(CONNECT_DATA=(SID=anonSID)(SERVER=DEDICATED)));User Id=anonLogin;Password= anonPwd;"

con.ConnectionString = dbConnectStr

con.Open dbConnectStr, consult, consult

MsgBox "Con state: " & GetState(con.State)

con.BeginTrans

recset.ActiveConnection = con

recset.Open "select 2+2 from dual;"

End Sub

La macro semble bien se connecter mais elle plante sur la dernière ligne.

J'arrive très bien à me connecter sur cette base par LibreOffice en utilisant la chaine de connexion que vous voyez dans le code. elle semble donc être bonne.

Je suis avec une base 11g

Quelqu'un aurait il une idée ?

Je vous remercie d'avance pour votre aide.

1 réponse

Messages postés
16432
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
14 avril 2021
3 162
Bonjour

anonlogin et anonpwd sont bien des variables ?

peut-^tre
port= 1521/XE

voir sans garantie
https://www.connectionstrings.com/oracle/
Provider=OraOLEDB.Oracle;dbq=localhost:1521/XE;Database=myDataBase;
User Id=myUsername;Password=myPassword;
Messages postés
2
Date d'inscription
jeudi 19 janvier 2017
Statut
Membre
Dernière intervention
19 janvier 2017

Je viens d'essayer cela ne marche pas.
Merci quand même