Discussion :

[Sagsag]

Bonjour,

J'ai lié un formulaire access vers une DB dans SQL server.
Nous utilisons deux logins et mot de passe pour accèder SQL, avec deux niveaux de sécurité différents.
Je voulais savoir comment faire pour changer le login et mot de passe via le formulaire access. Ou pour être un peu plus clair, comment faire pour changer le nom d'utilisateur de la DB sql ?
Merci.

[LedZeppII]

Bonsoir,

Est-ce que le formulaire est dans un fichier Access adp/ade ou mdb/mde ?

adp/ade : c'est au niveau de la connexion (Fichier->Connection)
Ecemple vba

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub ConnectUser(strUser As String, strPWD as String)
Dim strBaseCn As String
 
strBaseCn = "PROVIDER=SQLOLEDB;" & _
            "DATA SOURCE=NomServeurSQL;INITIAL CATALOG=NomBDSQL;"
strBaseCn = strBaseCn & "USER ID=" & strUser & ";PASSWORD=" & strPWD
 
Application.CurrentProject.CloseConnection
Application.CurrentProject.OpenConnection strBaseCn
 
End Sub

mdb.mde : c'est dans la chaîne de connexion de la table liée
Exemple vba

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub RfshLinkODBCenDAO(strTbl As String, strUser As String, strPWD As String)
Dim strConn As String, db As DAO.Database, td As DAO.TableDef
 
Set db = CurrentDb
strConn = "ODBC;Driver={SQL Server};SERVER=NomServeurSQL;DATABASE=NomBDSQL;"
strConn = strConn & "UID=" & strUser & ";PWD=" & strPWD
 
Set td = db.TableDefs(strTbl)
td.Connect = strConn
td.RefreshLink
 
Set td = Nothing
End Sub

A+