Discussion :

[nurdinosda]

salut
je veux créer un formulaire qui peut être accédé par plusieurs utilisateurs,
chaque utilisateur a un "login" et un "pass".
le problème que j'ai rencontré c'est que je n'accède à l'application principale que si je tape le "login" et le "pass" du premier utilisateur enregistré dans la table "fonctionnaires" de ma base de données.
si je tape le pass et le login d'un autre utilisateur je n'accède pas à l'application principale.

Mon

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set Rfonctionnaire = New ADODB.Recordset
Rfonctionnaire.Open "fonctionnaire", cnn, adOpenDynamic, adLockOptimistic
 
If login.Text = Rfonctionnaire![login] And pass.Text = Rfonctionnaire![pass] Then
Unload Me
welcome.Show
 
Else
 
MsgBox "Connexion échouée ! vérifiez le nom ou le mot de passe !", 64, "Bibliog"
End If

merci

[ProgElecT]

Salut

Il faut faire l'ouverture du RecordSet via une requête SQL pour atteindre l'enregistrement lié à ta condition login.Text et pass.Text.
Cela pourrait donner un code de se style

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
Dim Rqt As String
 
Set Rfonctionnaire = New ADODB.Recordset
On Error Resume Next
Rqt = "Select * From fonctionnaire where login = '" & login.Text & "' and  pass = '" & pass.Text & "'"
Rfonctionnaire.Open Rqt, cnn, adOpenDynamic, adLockOptimistic
        If Err.Number <> 0 Then
            MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur non gérée"
            Exit Sub
        End If
        If Rfonctionnaire.EOF Then
            Rfonctionnaire.Close
            MsgBox "Connexion échouée ! vérifiez le nom ou le mot de passe !", 64, "Bibliog"
            Exit Sub
        End If
Rfonctionnaire.Close 'nettoyage explicite
Unload Me
welcome.Show

[nurdinosda]

Merci pour ta réponse.
...mais ca na pas marché pour moi......je ne sais pas pourquoi
le message d'erreur s'affiche "erreur de syntaxe"

[ProgElecT]

L'erreur, sur quelle ligne ?

[nurdinosda]

la ligne n'est pas spécifiée. mais voila le message

erreur n°2147217900
erreur de syntaxe dans la chaine dans l'expression 'login='azerty' and pass='12345'

[ProgElecT]

Désolé, un peu long à te répondre car je fais des essais sur la syntaxe proposée, mais je ne parviens pas à la reproduire.
Tes champs login et pass sont bien des littéraux ?

[nurdinosda]

non le pass est numérique

[ProgElecT]

Ouf, je devenais fou de ne pas trouver.
Essais comme cela

Code :

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

Rqt = "Select * From fonctionnaire where login = '" & login.Text & "' and  pass = " & pass.Text

Guillemet en moins

[nurdinosda]

un autre message d'erreur

erreur n°2147217900
erreur de syntaxe (operateur absent)dans l'expression 'login='azerty' and pass='12345'

[ProgElecT]

un autre message d'erreur

erreur n°2147217900
erreur de syntaxe (operateur absent)dans l'expression 'login='azerty' and pass='12345'

mais là il y a toujours les cotes autour de 12345, tu as fais un copier/coller de la dernière requête proposée ?

[nurdinosda]

desolé le 2ème message d'erreur etait comme ca

erreur n°2147217900
erreur de syntaxe (operateur absent)dans l'expression 'login='azerty' and pass=12345

[ProgElecT]

Alors là je ne voie plus, j'ai reproduit une requête identique:

Code :

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

"Select * From Principal where Champ1Text = '" & Login.Text & "' and  NumEnrgLong = " & Pass.Text

quand je l'utilise sur une table, pas d'erreur et il me renvoie bien la bonne ligne d'enregistrement.
La nuit porte conseil, et/ou un autre intervenant verra l'erreur de syntaxe que moi je ne voie pas

[nurdinosda]

Merci quand même pour ton aide....

[nurdinosda]

à l'aide progElect.
je suis encore blocké ici

[nurdinosda]

salut
je veux créer un formulaire qui peut être accédé par plusieurs utilisateurs,
chaque utilisateur a un "login" et un "pass".
le problème que j'ai rencontré c'est que je n'accède à l'application principale que si je tape le "login" et le "pass" du premier utilisateur enregistré dans la table "fonctionnaires" de ma base de données.
si je tape le pass et le login d'un autre utilisateur je n'accède pas à l'application principale.

Mon code:

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
 
Dim Rqt As String
 
Set Rfonctionnaire = New ADODB.Recordset
On Error Resume Next
Rqt = "Select * From fonctionnaire where login = '" & login.Text & "' and  pass = " & pass.Text
 
Rfonctionnaire.Open Rqt, cnn, adOpenDynamic, adLockOptimistic
        If Err.Number <> 0 Then
            MsgBox "Erreur N°" & Err.Number & vbCrLf & Err.Description, vbInformation, "Erreur non gérée"
            Exit Sub
        End If
        If Rfonctionnaire.EOF Then
            Rfonctionnaire.Close
            MsgBox "Connexion échouée ! vérifiez le nom ou le mot de passe !", 64, "Bibliog"
            Exit Sub
        End If
Rfonctionnaire.Close 'nettoyage explicite
Unload Me
welcome.Show

[OhMonBato]

Bonjour,

et si tu mets ta requête comme ça ?

Code :

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

Rqt = "Select * From fonctionnaire where login = '" & login.Text & "' and  pass = '" & pass.Text & "'"

[nurdinosda]

nn...ca marche toujours pas..la meme erreur

[StephaneMinh]

Bonjour
est ce vraiment sécurisé ce formulaire de connexion?

Merci pour votre réponse.