Discussion :

[frantz44]

Bonjour à tous,
Je migre sur SQL Server une base de données qui était utilisée sur un NAS, avec un popup de connexion ID et MDP.
Je réutilise ce popup pour me connecter à SQL Server, et création automatique du DSN. Tout fonctionne très bien, mais le seul souci, c'est qu'a chaque nouvelle session, pour ouvrir une table, il faut de nouveau saisir le MDP via la fenêtre DSN. Il n'y a pas de case à cocher pour mémoriser le mot de passe...
Le nom d'utilisateur est bien mémorisé par le script de création du DSN



Existe t-il un bout de code VBA pour qu'a chaque ouverture de session, après authentification sur SQL Server au démarrage, que la connexion aux tables se fasse automatiquement ?
Je tourne en rond sur le WEB à chercher, mais ne trouve rien de pertinent.

Merci de votre retour

[micniv]

Bonjour,
Une autre configuration :
Pour ma part, j'ai toujours utilisé SQL SERVER avec l'authentification windows (les utilisateurs de l'appli doivent figurer dans des groupes windows selon leur profil ...)
j'installe la source ODBC sur chaque poste client
J'attache une seule fois les tables Sql Server via ce DSN.
et roule la galère (en clair , tout marche)

CDLT

[Invité]

Bonsoir,
Quand tu lies tes table sql serveur dans Access il faut cocher la case mémorisé mot de passe.

Tu es quitte à recommencer.

j'installe la source ODBC sur chaque poste client
J'attache une seule fois les tables Sql Server via ce DSN.

Il faut créer un DSN fichier sur un serveur partager et lier ses table à Access en utilisant ce DSN fichier.

Ainsi pas besoin de configurer ODBC sur toutes les machines. Ne pas oublier de cocher la case mémoriser mot de passe.

[micniv]

... ainsi pas besoin de configurer ODBC sur toutes les machines...

Voila qui est un bon conseil . Je le testerai à la prochaine occase.

CDLT

[frantz44]

Bonsoir,
Quand tu lies tes table sql serveur dans Access il faut cocher la case mémorisé mot de passe.

Tu es quitte à recommencer.



Il faut créer un DSN fichier sur un serveur partager et lier ses table à Access en utilisant ce DSN fichier.

Ainsi pas besoin de configurer ODBC sur toutes les machines. Ne pas oublier de cocher la case mémoriser mot de passe.

Bonjour
Je viens de recommencer, ce n'est pas ca qui prend du temps ca va En tous cas j'ai appris une chose, c'est que la mémorisation du mdp est par table, pas pour toute la base, ce qui peut sembler logique pour interdire l'accès à certaines tables. C'est vraiment tout con, merci beaucoup

Je partage mon petit script trouvé sur internet (site MS) pour créer un DSN automatiquement à l'ouverture de la base (a condition que le pilote soit installé au préalable bien sûr !). cela évite d'aller dans le panneau de config / outils admin... Ca fonctionne à merveille
D'ailleurs à propos du pilote, je vais bientôt tester de l'intégrer dans le package Wizard pour qu'il s'installe automatiquement.

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
 
'Code à mettre dans un module
 
Function CreateDSNConnection(stServer As String, stDatabase As String, Optional stUsername As String, Optional stPassword As String) As Boolean
    On Error GoTo CreateDSNConnection_Err
 
    Dim stConnect As String
 
    stConnect = "Description=MCM" & vbCr & "SERVER=" & stServer & vbCr & "DATABASE=" & stDatabase & vbCr
 
    DBEngine.RegisterDatabase "MCM", "ODBC Driver 13 for SQL Server", True, stConnect
 
    CreateDSNConnection = True
    Exit Function
 
CreateDSNConnection_Err:
 
    CreateDSNConnection = False
    MsgBox "Erreur de création DSN : " & Err.Description
 
End Function

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
30
31
32
33
34
35
36
37
38
39
40
41
 
'Code d'appel de la fonction à mettre sur un bouton valider par exemple après avoir entré son ID et MDP compte SQL Server
 
Dim Cnxn As ADODB.Connection
Dim strSRV As String
Dim strBDD As String
Dim strDRV As String
Dim strSRV2 As String
 
strSRV = "tcp:xxxxxx.Database.windows.net,1433"
strSRV2 = "xxxxxxx.database.windows.net"
strBDD = "nombdd"
strDRV = "{ODBC Driver 13 for SQL Server}"
 
USER = Me.TexteUser 'Variable globale
MDP = Me.TexteMDP 'Variable globale
 
On Error GoTo ErrConnexion
 
Set Cnxn = New ADODB.Connection
Cnxn.ConnectionString = "Data Source=MCM;User ID=" & USER & ";Password=" & MDP & ";"
    Cnxn.ConnectionTimeout = 30
    Cnxn.Open
    MsgBox "Etat connexion : " & GetState(Cnxn.State)
 
Cnxn.Close
Set Cnxn = Nothing
 
 
DoCmd.Close
DoCmd.OpenForm "POPUP_OUVERTURE"
 
Else
MsgBox "Erreur, veuillez recommencer..."
End If
Exit Sub
 
ErrConnexion:
MsgBox "Erreur d'identifiant ou mot de passe..."
 
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
'Fonction état connexion au SQL Server à mettre dans un module
Public Function GetState(intState As Integer) As String
 
   Select Case intState
      Case adStateClosed
         GetState = "Réussi"
      Case adStateOpen
         GetState = "Echec"
   End Select
 
End Function

[micniv]

... pas besoin de configurer ODBC sur toutes les machines ...

dysorthographie,
Peux-tu détailler ta procédure ? merci

[frantz44]

dysorthographie,
Peux-tu détailler ta procédure ? merci

Hum je pense que c'est sur un serveur local sur lequel tu stockes le fichier DSN, et dans une table tu mets le chemin d'accès et par une procédure d'appel ca exécute le DSN