Connexion automatique base Oracle sur ouverture formulaire

Version imprimable

Bonjour,

J'ai un formulaire basé sur des tables liées qui viennent d'une base Oracle.
Lorsque j'ouvre ce formulaire la première fois, il me demande systématiquement le mot de passe.
Y-t-il une possiblité pour indiqué se mot de passe automatiquement en arrière plan ? :?
Je veux que le panneau de demande du mot de passe n'apparaisse pas.

J'ai essayé de mettre :
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 Private Sub Form_Open(Cancel As Integer) Dim rs As ADODB.Recordset Dim strConnection As String strConnection = "ODBC;DSN=XXXX;;UID= XXXXX;PWD= XXXX;" Set cn = New ADODB.Connection With cn .Properties("Data Source").Value = strConnection .Open End With Set rs = Nothing Set cn = Nothing End Sub Private Sub Form_Unload(Cancel As Integer) Dim cn As ADODB.Connection Set cn = CurrentProject.Connection cn.Close Set cn = Nothing End Sub
Mais il n'a pas l'air de tenir compte de la nouvelle connexion.

Faut-il le faire pour tous les tables ? :?

Merci pour votre aide,

LeRico

A tester

Bonjour,

Access (ou DAO) doit utiliser des connexions ODBC particulières pour les tables liées.
Comme toi j'ai pu constater qu'établir une connexion via ADO ou DAO (Workspace ODBCdirect) n'a aucun effet.

J'ai essayé d'exécuter une requête SQL Direct (pour laquelle on fournit une chaîne de connexion ODBC avec UID et PWD) en VBA.
Cela semble faire ce que tu souhaites.

Exemple:

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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
Sub odbcConnecter()
Dim db As DAO.Database, strODBCconn As String
Dim qdef As DAO.QueryDef, strSQL As String
Dim strUID As String, strPWD As String
Dim errX As DAO.Error, strErrMsg As String
 
strUID = "User1"
strPWD = "123"
 
On Error GoTo ERRH
 
' Réfénce la base de données en cours
Set db = CurrentDb
' Chaîne de connexion ODBC
strODBCconn = "ODBC;" & "DSN=Mon DSN;" & "Database=MaBDD;" & _
              "Uid=" & strUID & ";Pwd=" & strPWD
' Crée une requête SQL Direct temporaire
strSQL = "SELECT TOP 1 * FROM fournisseurs"
Set qdef = db.CreateQueryDef("", strSQL)
qdef.Connect = strODBCconn
' Exécute la requête
qdef.OpenRecordset
 
QUIT:
Set qdef = Nothing
Set db = Nothing
Exit Sub
 
ERRH:
 
strErrMsg = "Erreur N° " & CStr(Err.Number) & " : " & Err.Description
Select Case Err.Number
    Case 3146, 3151, 3154, 3155, 3156, 3157, 3231, 3232, 3234, 3225, 3238, 3247, 3254
        strErrMsg = strErrMsg & vbCrLf & vbCrLf & _
           ">>> Erreurs complémentaires DAO :" & vbCrLf & _
           "======================"
        'Récupérations Erreur(s) driver ODBC
        For Each errX In DBEngine.Errors
            strErrMsg = strErrMsg & vbCrLf & Format(errX.Number, "00000") & " : " & errX.Description
        Next
End Select
 
MsgBox strErrMsg
Resume QUIT
 
End Sub

Après exécution du code j'ai pû ouvrir ma table liée sans que le pilote ODBC me demande un nom d'utilisateur et un mot de passe.

A+

01/10/2008, 14h54
lerico

Bonjour,

C'est exactement ce qu'il me fallait :king:

Merci LedZeppII,

LeRico