Discussion :

[jj4822]

Bonjour.

Je souhaite, a partir d'Access, me connecter a ma base SQL Server uniquement avec les references de la base et le nom de l'utilisateur. Je souhaite que ce soit la base qui demande le mot de passe pour l'utilisateur et accepte ou refuse l'acces en fonction de la bonne saisie du nom utilisateur ou du mot de passe.

J'ai trouve quelque chose d'interessant dans le lien ci-dessous (le mot de passe n'est pas donne, ca correspond a ce que je recherche) :
http://access.developpez.com/faq/?pa...ConnectSQLServ

Apres modif j'ai la chose suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
dim serveur as string
dim util as string
dim Dtb as string
 
serveur="mon serveur"
util="utilisateur"
dtb="ma base"
 
cnx.ConnectionString = "Driver={SQL Server};server=" & serveur & ";UID=PL\" & util & ";PWD=;database=" & Dtb

Lorsque je teste, Access me repond qu'il n'arrive pas a se connecter avec l'utilisateur : "Login failed for user 'utilisateur'"

Lorsque je rajoute le mot de passe, il arrive a se connecter avec un utilisateur local, pas avec un utilisateur windows.

Avec mot de passe ca donne ca :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
dim serveur as string
dim util as string
dim Dtb as string
dim passe as string
 
 
serveur="mon serveur"
util="utilisateur"
dtb="ma base"
passe="mot de passe"
 
cnx.ConnectionString = "Driver={SQL Server};server=" & serveur & ";UID=PL\" & util & ";PWD=" & passe & ";database=" & Dtb

A quoi ca peut etre du ?


Merci.
Cdlt
Jean.

[bernardmichel]

Bonjour !

Et si tu ajoutais simplement une InputBox pour demander le mot de passe est-ce que cela ne répondrais pas à ta question ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim serveur     As String
Dim util        As String
Dim Dtb         As String
Dim passe       As String
 
    serveur = "mon serveur"
    util = "utilisateur"
    Dtb = "ma base"
    passe = InputBox("Veuillez saisir le login...", "Sécurité")
 
    cnx.ConnectionString = "Driver={SQL Server};server=" & serveur & ";UID=PL\" & util & ";PWD=" & passe & ";database=" & Dtb

Cordialement.

[jj4822]

Bonjour bernardmichel.

Merci pour cette reponse.

Je souhaitais justement eviter de demander la saisie du mot de passe hors de SQL Server. Le but du jeu etait que ce soit le serveur qui demande le mot de passe apres avoir recupere le nom de l'utilisateur.

Une des solutions peut etre de lancer par VBA l'execution d'un batch en T-SQL qui va assurer cette fonctionnalite. Je ferais des recherches le moment venu s'il n'est vraiment pas possible de forcer le serveur lui meme a demander le mot de passe.

Ou alors faire simple avec la saisie du nom de l'utilisateur et de son mot de passe dans un formulaire Access (dans deux champs texte dont le champ texte mot de passe remplacant les lettres par des *). Ou alors, effectivement, un input box.

Merci.
Cordialement.
Jean

[jj4822]

Bonjour.

Merci pour ces reponses.

J'utilise pour l'instant l'utilisateur windows pour que les utilisateurs puissent se connecter. C'est plus simple.

Les reponses me seront tres utiles lorsque je chercherai a connecter les utilisateurs avec un utilisateur non windows.

Cdlt.
Jean.

[FMJ]

Je ne pense pas que ce que tu demandes soit possible : préalablement à toute interaction avec le serveur, tu dois ouvrir une connexion. Et une connexion exige un login et un mot de passe. Au mieux le serveur pourrait te retourner une erreur t'indiquant que l'utilisateur n'existe pas (mais comme c'est plutôt anti-sécuritaire, je ne pense pas que le serveur puisse être configuré ainsi : il t'indiquera juste que le login ou le mot de passe est incorrect, c'est tout).