VBA Excel et Oracle

Bonjour,

Je souhaite requêter dans une base de données Oracle à partir d'une macro VBA Excel. J'utilise la méthode avec le composant ADO (ActiveX Data Object).

La connexion ne s'effectue pas. En effet, je n'ai pas de message d'erreur (via une boite de dialogue) qui s'affiche mais lorsque je place un espion sur la variable associée à la connexion, j'ai le message suivant :

Citation:

---

Une opération OLE-DB en plusieurs étapes a généré des erreurs. Vérifiez chaque valeur d'état OLE-DB disponible. Aucun travail n'a été effectué." : String : Module1.FonctionSQ

---

Le code que j'utilise est le suivant :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Sub FonctionSQL()   Dim cnx As ADODB.Connection Dim rst As ADODB.Recordset   Set cnx = New ADODB.Connection Set rst = New ADODB.Recordset   cnx.ConnectionString = "DSN=NOM_DSN;PWD=MotDePasse;"   cnx.Open   rst.Open "SELECT champ FROM table WHERE predicat = valeur", cnx   MsgBox rst("champ")   rst.Close cnx.Close   End Sub

---

J'ai au préalable configurer un DSN nommé NOM_DSN dans Microsoft ODBC Administrator avec comme pilote : {Oracle in OraHome92}. Dans ce module, un clic sur le bouton "Test connection" renvoie le message "connection successful".

Je me suis aidé du site http://drq.developpez.com/vb/tutoriels/ADO/ mais sans succès.

Quelqu'un peut-il m'aider ?

Merci d'avance.

Bonjour.

Dans le tuto auquel tu fais référence, on parle aussi de l'identifiant utilisateur (UID) et je ne le vois pas dans ton code.

PGZ

Bonjour,

J'ai spécifié le nom d'utilisateur en ajoutant une nouvelle source de données utilisateur dans le module "Administrateur de source de données" que l'on trouve dans "Démarrer --> tous les programmes --> Oracle OraHome92 --> Network Administration".

Je viens de faire également un test avec la chaine de connexion suivante :

Code:

---

DSN=NOM_DSN;UID=NomUtilisateur;PWD=MotDePasse;

---

Pouvez-vous m'aider ?

Merci.

Et sans DSN, tu as essayé?

Code:

---

cnx.ConnectionString = "UID=" + NomUtilisateur & ";PWD=" & MotDePasse & ";" & "DRIVER=msdaora;Server=" & NomServeur & ";Database=" & NomBaseDeDonnées & ";"

---

Voici une Connection String que j'utilise pour une base Oracle Application Express:

Code:

---

"Provider=OraOLEDB.Oracle;Data Source=(DESCRIPTION=(CID=GTU_APP)(ADDRESS_LIST=(ADDRESS=(PROTOCOL=TCP)(HOST=10.xxx.xx.xxx)(PORT=1521)))(CONNECT_DATA=(SID=xe)(SERVER=DEDICATED)));User Id=xxx;Password=xxx;"

---

Bonsoir,

J'ai trouvé où était le problème : je n'utilisais pas le bon schéma.

Bonne soirée et bonne nuit.