Discussion :

[cedrickb]

Bonjour,

Voici mon problème.
J'ai créé une petite appli VBA sous access pour accéder à des données d'une base oracle (l'importation ou la liaison de table etant impossible car trop d'indexes ds la table).
Bref quand je lance ma connection à la base oracle, j'ai l'erreur suivante:
TNS Protocol Adapter Error.
Mes sources ODBC Sont correctement configurées.
Quand je fais un tnsping sur la base ça fonctionne correctement... donc je comprends pas d'ou ça peut venir!
Si quelqu'un a une idée je suis preneur!!
Pour info voici le code:

Code :

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

1
2
3
4
5
6
7
 
Set Connection = New ADODB.Connection
Connection.ConnectionString = "Driver={Oracle ODBC Driver};server=BDD;UID=user;PWD=pass;database=BDD"
Connection.Open
If Connection.State = adStateOpen Then
     MsgBox "connection OK"
End If

(c'est un code que j'ai récupéré dan les FAQ... )
Merci d'avance!

Weedtrompette

[NicolasR]

Salut
Esaie ceci:

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
 
dim wrkODBC as workspace 
dim connexion as connection 
 
On Error GoTo Gestion_Erreur 
 
set wrkODBC = createworkspace("", "admin", "", dbUseODBC) 
wrkODBC.LoginTimeOut = 3600 
set connexion = wrkODBC.openConnection(nom_serveur_oracle, ,False, chaine_de_connexion) 
 
msgbox "Tout va bien" 
 
Exit sub 
 
Gestion_Erreur: 
    Msgbox err.description

J'espere que cela t'aideras.

[cedrickb]

Ok c bon
j'ai réussi à me connecter l'erreur provenait de la ConnectionString.
Voici le code Corrigé, ça pourra peut être aider quelqu'un!

Code :

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

1
2
3
4
5
6
7
8
 
Set Connection = New ADODB.Connection
Connection.ConnectionString = "Driver={Oracle ODBC Driver};UID=User;PWD=pass;dbq=BDD"
 
Connection.Open
If Connection.State = adStateOpen Then
     MsgBox "connection OK"
 End If

Pour info il faut que la DBQ (ici BDD) soit déclarée dans le tnsname.ora
En gros il faut avoir le client oracle installé sur le poste utilisateur et qu'il soit bien configuré .
Voila c'est tout.

a+

Weedtrompette

[cedrickb]

merci NiColasR



weedtrompette