Discussion :

[Megaxel]

Bonjour,
j'essaie d'accéder à une base oracle via du code VBA dans une feuille Excel. Voici mon code pour créer une connexion:

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
 
Function ConnexionBaseOracle(ByVal NomServeurOracle As String, ByVal NomBaseOracle As String _
    , ByVal NomUtilisateur As String, ByVal MotDePasse As String) As ADODB.Connection
 
    Set ConnexionBaseOracle = New ADODB.Connection
 
    'Définition du pilote de connexion
    'ConnexionBaseOracle.Provider = "OraOLEDB.Oracle.1"
 
    ConnexionBaseOracle.ConnectionString = "UID=" + NomUtilisateur & ";PWD=" & MotDePasse & _
        ";" & "DRIVER=msdaora;Server=" & NomServeurOracle & ";Database=" & NomBaseOracle & ";"
 
    ConnexionBaseOracle.CursorLocation = adUseClient
    ConnexionBaseOracle.Mode = adModeRead
 
    'Ouverture de la base de données
    ConnexionBaseOracle.Open
 
End Function

Et ça ne fonctionne pas...
J'ai le message d'erreur suivant:
[Microsoft][Gestionnaire de pilotes ODBC]Source de données non trouvée et nom de pilote non spécifié

Est-ce que quelqu'un peut m'aider?

[Megaxel]

Bon, ben je me suis débrouillé autrement: je suis passé par un DSN, créé dans les liens ODBC dans le panneau de configuration.
Mais je ne comprend toujours pas comment faire marcher ce code, qui provient pourtant de l' EXCELLENT (la preuve, le code proposé avec un DSN fonctionne très bien!!) tuto dispo sur ce site.