Discussion :

[Chips_]

Bonjour,

Je cherche à me connecter à un serveur Oracle grâce à du code VBA.

J'ai déjà réussi avec un serveur MySQL mais à mon grand désaroi je n'y arrive pas pour Oracle.

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
Public conn As New ADODB.Connection
 
Sub connexion()
 
'Déclaration de la variable de connexion
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
Dim server_name As String
Dim database_name As String
Dim user_id As String
Dim password As String
 
server_name = "SPWPRDDB01" ' Enter your server name here 
database_name = "SPWX01" ' Enter your database name here
user_id = "XXX" ' enter your user ID here
password = "YYY" ' Enter your password here
 
'Définition de la chaîne de connexion
cnx.ConnectionString = "UID=" & user_id & ";PWD=" & password & ";" & "DRIVER=msdaora;Server=" & server_name & ";Database=" & database_name & ";"
 
'Ouverture de la base de données
cnx.Open
 
End Sub

Malheureusement je me retrouve avec l'erreur suivant au niveau de la dernière ligne:

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

Savez-vous d'ou vient cette erreur?

Dans la liste des drivers, j'ai 4 drivers:
Microsoft Access dBASE Driver
Microsoft Excel Driver
MySQL ODBC 3.51 Driver
Microsoft Access Driver

Il ne semble donc pas y avoir de driver Oracle. Dois-je en installer un? Si oui, savez-vous où je peux le dl, sachant que j'utilise Oracle 11?

Au niveau des références, j'ai bien coché Microsoft DAO 3.6 et Microsoft ActiveX Data Objects 2.8. Dois-je en rajouter d'autres?

En espérant une réponse de voitre part.
Bonne journée

Chips

[Chips_]

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
Sub connexion_BDD_SPARK()
 
Dim server_name As String
Dim database_name As String
Dim user_id As String
Dim password As String
 
server_name = "SPWPRDDB01" ' Enter your server name here 
database_name = "SPWX01" ' Enter your database name here
user_id = "XXX" ' enter your user ID here
password = "YYY" ' Enter your password here
 
Set conn = New ADODB.Connection
 
conn.Open "DRIVER={Microsoft ODBC for Oracle}" _
& ";SERVER=" & server_name _
& ";DATABASE=" & database_name _
& ";UID=" & user_id _
& ";PWD=" & password _
& ";OPTION=16427" ' Option 16427 = Convert LongLong to Int: This just helps makes sure that large numeric results get properly interpreted
 
End Sub

Sinon j'ai le code ci-dessus. Mais cette fois-ci ça me renvoit l'erreur:

[Microsoft][ODBC Driver Maanger] Driver's SQLAllocHandle on SQL_HANDLE_ENV failed'

Chips