A voir également:
- Authentification Active Directory / VB
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Directory opus - Télécharger - Gestion de fichiers
- Double authentification google - Guide
- Directory list & print - Télécharger - Divers Utilitaires
2 réponses
Commentaire inutile, le code est bugué, certaines variables ne sont pas déclarées, on ne connait pas le nom des objets coté fenêtre, donc on ne sait pas à quoi correspond quoi, bref de la grosse merde.
salut voila le code pour verifier que le code entre par l'utisateur est celui qui est dans la basse de donnée
Public Class utilisateur
Dim trouve As Boolean
'procédure qui verifie l'existance du champs
Sub cherchermotsdepasseetutilisateur()
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Utilisateur where Login = '" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'"
dr1 = cmd.ExecuteReader
If dr1.Read Then
trouve = True
Else
trouve = False
End If
con.Close()
End Sub
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
cherchermotsdepasseetutilisateur()
If trouve = False Then
Label3.Text = "Erreur Veuillez verifier votre Login et votre Mot de passe ou le ce utilisateur n'existe pas"
Else
Me.Hide()
Form1.Show()
End If
Public Class utilisateur
Dim trouve As Boolean
'procédure qui verifie l'existance du champs
Sub cherchermotsdepasseetutilisateur()
con.Open()
cmd.Connection = con
cmd.CommandText = "select * from Utilisateur where Login = '" & TextBox1.Text & "' and Password ='" & TextBox2.Text & "'"
dr1 = cmd.ExecuteReader
If dr1.Read Then
trouve = True
Else
trouve = False
End If
con.Close()
End Sub
Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn.Click
cherchermotsdepasseetutilisateur()
If trouve = False Then
Label3.Text = "Erreur Veuillez verifier votre Login et votre Mot de passe ou le ce utilisateur n'existe pas"
Else
Me.Hide()
Form1.Show()
End If