none
boucle pour parcourire une table RRS feed

  • Question

  • voici le code écrit dans l'événement click du bouton se connecter de mon forme authentification.
    le code s'éxécute seulement pour le premier enregistrement de la table AGENTS SAISIE(cad pour le nom d'utilisateur et le mot de passe du premier enregistrement) mais non pour les autres utilisateurs qui sont enregistrés dans la table 
    est ce qu'il faut utiliser une boucle pour lire tous les enregistrements de la table? 
    qui peut m'aider pour le code?
    merci.

     Private Sub Cmdsidentif_Click(Index As Integer)
    '2 variables pour récupérer l'identifiant et le mot de passe saisis par l'utilisateur
      Dim recupnu, recupmp As String
      recupnu = txtlogin.Text
      recupmp = txtmotp.Text
    'pour lire l'identifiant et le mot de passe de la BD
     Dataauthentif.RecordSource = "select nom,motpasse from AGENTS SAISIE"
    ' pour tester si l'identifiant et le mot de passe sont corrects
    If (recupnu = Dataauthentif.Recordset.nom And recupmp = Dataauthentif.Recordset.motpasse) Then
          
     Form1.Visible = False
     Form2.Visible = True
    Else
       If recupnu <> Dataauthentif.Recordset.nom Then
       MsgBox (" Identifiant introuvable!")
       txtlogin.Text = " "
       txtlogin.SetFocus
      
       Else
          If recmp <> Dataauthentif.Recordset.motpasse Then
          MsgBox (" Mot de passe non valide, réessayez !")
          txtmotp.Text = " "
          txtmotp.SetFocus
         
         
         
          End If
      End If
     End If
    End Sub
    samedi 31 janvier 2009 14:04

Toutes les réponses

  • Tu devrais plutôt utiliser la ligne :

    Dataauthentif.RecordSource = "select nom,motpasse from AGENTS SAISIE where nom='" & recupnu & "' and motpasse='" & recupmp & "'" 


    Et ensuite vérifier si tu récupères seulement un enregistrement, si oui, alors c'est valide, sinon c'est pas bon.

    Microsoft MVP C# :: mongeon.devrpm.ca
    lundi 2 février 2009 14:58
    Modérateur
  •     Else
          If recmp <> Dataauthentif.Recordset.motpasse Then
          MsgBox (" Mot de passe non valide, réessayez !")
          txtmotp.Text = " "
          txtmotp.SetFocus



    Je  suis pas un expert  mais la ta variable  est pas déclaré ou il y a faute


    recmp  
    ???

    jeudi 5 février 2009 16:14
  • Bonjour j'arrive un peut tard mais il faudrait ton code entier.
    Personnellement je n'utilise pas cette méthode

    j'utilise le datareader qui est plus simple.
    mardi 10 mars 2009 16:51