Discussion :

[david71]

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 :

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
 
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.

[LedZeppII]

Bonjour,

Regarde si cette discussion peut t'aider.

A+