Connexion à des tables liées en ODBC
Bonjour,
Voilà j'exécute des requêtes ACCESS présentes dans ma base qui portent sur des tables liées ODBC qui pointent sur une base ORACLE.
Or à chaque fois que je lance ces requêtes, la première fois on me demande le mot de passe de la base de données. J'ai décidé de faire une fonction avant d'appeler les requêtes.
La fonction marche bien le premier appel mais si je relance les requêtes une deuxième fois, je passe systématiquement dans la partie erreur de la fonction --> Connecting to Oracle failed. Pourtant la requête s'exécute bien...
Ci-dessous le code de la fonction :
Code:
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
|
Public Function OracleConnectABSALON() As Boolean
Dim ws As Workspace
Dim db As Database
Dim LConnect As String
On Error GoTo Err_Execute
'Use { } ODBC connection
LConnect = "ODBC;DSN=ABS_PRD;UID=LS1A;PWD=mot_de_passe;SERVER=toto.com"
'Point to the current workspace
Set ws = DBEngine.Workspaces(0)
'Connect to Oracle
Set db = ws.OpenDatabase("", False, True, LConnect)
db.Close
OracleConnectABSALON = True
Exit Function
Err_Execute:
MsgBox "Connecting to Oracle failed."
OracleConnectABSALON = False
End Function |
Merci pour votre retour.
