Discussion :

[Overrider]

Bonjour à tous,

Je souhaite établir une connexion ODBC à ma base oracle pour y faire une requête sql qui renvoie l'info dans la case E2. Pour cela, j'ai un client oracle10 d'installé avec un tnsnames.ora. (Pour infos mon sqldevelopper et mon sql+ fonctionnent nickel avec l'alaias de base. Mais dans Excel il ne veut pas... Bon trêve de bavardage... Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub MacroTest()
 
    '¤¤¤¤¤¤¤¤¤Déclaration des variables¤¤¤¤¤¤¤¤¤¤
    Dim cNx As ADODB.Connection
    Dim oRS As ADODB.Recordset
 
    Dim sSQL As String
    '¤¤¤¤¤¤¤¤¤FIN Déclaration¤¤¤¤¤¤¤¤¤¤
 
    'On déclare le nouvel objet connexion
    Set cNx = New ADODB.Connection
 
    'Chaine de connexion
    cNx.ConnectionString = "ODBC;DRIVER={Oracle dans Ora10_2_0_3};SERVER={AliasBDD};UID=User;PWD=MDP"
    cNx.Open
 
    'On lance la requête SQL
    sSQL = "Select name from datatable;"
    Set oRS = New ADODB.Recordset
 
    oRS.Open sSQL, cNx, adOpenStatic
 
    'On vérifie le retour de requête
    MsgBox IIf(oRS.EOF, "Il n'y a aucun enregistrement", "Il y a au moins un enregistrement")
 
    'On implémente la case excel avec le résultat de la requête
    With ThisWorkbook.Worksheets("Feuil1")
        .Range("E2").ClearContents
        .Range("E2").CopyFromRecordset oRS
    End With
 
    'On ferme le tout !
    oRS.Close
    cNx.Close
    Set oRS = Nothing
    Set cNx = Nothing
 
End Sub

Et cela plante à l'open, voici mon message d'erreur :



Pour finir, le nom du driver a été récupéré sur Excel :



En clair je ne voit pas ce que je fais de mal... Merci de votre aide par avance.

[Invité]

Code :

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

"Provider=OraOLEDB.Oracle.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE

[Overrider]

Code :

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

"Provider=OraOLEDB.Oracle.1;Password=" & Password & ";Persist Security Info=True;User ID=" & User & ";Data Source=" & BASE

Merci dysorthographie, j'ai testé et cette fois-ci j'ai ce message d'erreur :



Dois-je cocher une bibliothèque de plus ?

[Overrider]

Je l'ai fait depuis l'outils "Autres sources" dans l'onglet "Données" et cela fonctionne ! Mais ce n'est pas mon but... Je souhaite créer une fonction capable d'interroger une multitude de base juste en récupérant l'alias dans une des case. Je ne veut pas de cette outil.

Bref voilà mon paramétrage de cette outils au cas où cela puisse vous aider à me dire où est l'erreur dans mon code :

1. Je choisis "autres sources" et "Provenance : Microsoft Query"


2.Je choisis "Nouvelle source de données" et je clique sur "ok"


3. J'indique mon Alias de BDD, utilisateur et mot de passe


4. J'indique un Libellé à cet éléments que je suis en train de cré, le driver à utiliser et la table avec laquelle je souhaite travailler


5. J'annule et je ferme les deux fenêtres suivantes



6. Je clique sur "SQL"


7. Je mets ma requête


8. Je fais "OK" à ce message d'erreur


9. Je ferme la fenêtre à la croix


10. Je fais "OK"


11. Et J'obtiens cela :


Je ne sais pas si cela vous éclaire plus que moi... Mais de mon côté je me dis zut qu'ai je fait de mal dans mon code ?

Une idée de votre côté ?

[Menhir]

Est-ce que dans le VBE tu as coché la bibliothèque d'objets correspondant dans Outils > Référence ?

[Overrider]

Pour moi oui, mais vous qu'en pensez vous :