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
Partager