Discussion :

[mademoizel]

Bonjour,

Je souhaite faire une vérification de login dans mon apllication.

J'ai une fonction qui vérifie si login et le mot de passe correspond bien, que les champs ne sont pas vide sinon s'affiche un message d'erreur. En cas de bonne saisie, l'utilisateur est renvoyé vers l'autre page. J'appel cette fonction lorsque je clique sur le bouton valider.

Le problème c'est que sa ne marche pas.

Si quelqu'un peut trouver mon erreur parceque je ne vois pas.

Voici mon code: concernant la procèdure

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
 
 
Private Sub VerifLogMDP()
 
Dim rsLog As New ADODB.Recordset
Dim reqLog As String
 
 
reqLog = "Select Login, MotPasse, Type from Utilisateur" _
            & "where login ='" & txtLogin & "'" And motPasse = "& txtMDP & '"
 
 
rsLog.Open reqLog, Cnx
 
 
If txtLogin.txt <> "" Then
    MsgBox "Erreur"
 
End If
 
If (rsLog.login = textLogin.tex) And (rsLog.motPasse = textMDP.Text) Then
    If rsLog.Type = "utilisateur" Then
        Form2.Show
        Form2.cmdAdmin.Visible = False
    Else
       Form2.Show
       Form2.cmdUtilisateur.Visible = False
 
    End If
End If
 
 
 
End Sub

Voici le code correspondant à l'appel de la fonction

Code :

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

1
2
3
4
5
6
 
Private Sub cmdOk_Click()
 
Call VerifLogMDP
 
End Sub

[ThierryAIM]

dejà ily a des erreurs dans les ' et " et il manque un espace avant where :

Code :

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

1
2
reqLog = "Select Login, MotPasse, Type from Utilisateur" _
            & " where login ='" & txtLogin.Text & "' And motPasse = '" & txtMDP.Text & "'"

[mademoizel]

Ok merci.

En revanche, il n'accepte pas rsLog.Login.

Ce que je souhaite faire sur cette ligne c'est de vérifier si le login qui se trouve dans la base de données soit le meme que celui qui est saisie.

Est-ce la bonne méthode.

[ThierryAIM]

Code :

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

rsLog!Login

ou

Code :

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

rsLog.Fields("Login").Value

[mademoizel]

Merci beaucoup

[motrin]

Aussi, tu pourrais faire une requête te permettant de savoir si le login est valide avec un count(*), cela ressemblerais à ceci :

Code :

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

1
2
 
select count(*) from Utilisateur where Login='lelogin' and motPasse='lemotpasse'

Ensuite, vérifie si la requête a retenu un enregistrement : si oui le login est valide sinon affiche un message d'erreur.