Bonjour
J'avais une fois vu un thread pareil sur le forum, mais je peine à le trouver.
En fait je me connecte à ma base de données Access via ODBC et je veux maintenant pour des raisons de sécurité ajouter un mot de passe à la BD. Je cherche ce qu'il faut ajouter à ma fonction de connexion pour résoudre le problème.


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function OuvertureConnexion(ByRef objConnexion As ADODB.Connection, ByVal ChaineConnexion As String) As Boolean
 
        On Error GoTo ErreurOuvertureConnexion
        Set objConnexion = New ADODB.Connection
        objConnexion.CommandTimeout = 960
        objConnexion.Open ChaineConnexion
        OuvertureConnexion = True
ExitOuvertureConnexion:
    Exit Function
ErreurOuvertureConnexion:
    OuvertureConnexion = False
    MsgBox "Erreur d'ouverture de Connexion..." & Err.Description & "", , strTitre
    GoTo ExitOuvertureConnexion
End Function