Probleme avec mon test ifRésolu

Question

Bonjour j'ai un probleme avec mon test if , j'ai verifié les champs de ma base et j'ai rempli les meme valeur mais sa ne marche si quelqu'un peut m'aider mon code est le suivant:

var1 = FIdentification.txtNomUtilisateur.Text
 var2 = FIdentification.txtMotdePasse.Text
 
 temp = False
 
 'Ouverture de la base
 ' Set bd = New ADODB.Connection
 'Set bd = Server.CreateObject("AdoDB.Connection")
 cnx1.Open "dsn=facturefondation"
 
 
 'Vérifier si les champs sont vides  If (var1 "") Or (var2 "") Then
    MsgBox "Veuillez renseigner les champs pour faire la connexion!"
  Else
    'Ouverture table ou requete
    Set rs1 = New ADODB.Recordset
    
    
   
    
    rq1 = "Select admin, motdepasse From utilisateur "
   
    rs1.Open rq1, cnx1, adOpenKeyset, adLockReadOnly
   
   Do While Not rs1.EOF
     ' Test si les valeurs saisies sont identiques à celles de ma base     If (rs1.Fields("admin").Value "ba") And (rs1.Fields("motdepasse").Value "test") And (temp = False) Then
   
          temp = True
       
     Else
        rs1.MoveNext
         
     End If
    
   Loop
    
    If temp = True Then
       FIdentification.Hide
       FMenu.Show
       
      
    Else
        MsgBox "Votre Nom ou Mot de passe n'existe pas!"
   
    End If
  End If

cs_cheikhtba · Accepted Answer

Bonjour sa marche les amis. Le probleme c'etait au niveau de la condition de if
rq1 = "Select* From utilisateur "
   
    rs1.Open rq1, cnx1, adOpenKeyset, adLockReadOnly
   
   Do While Not rs1.EOF
         If ((rs1.Fields("admin").Value var1) And (rs1.Fields("motdepasse").Value var2) And (temp = False)) Then
   
          temp = True
       
     Else
        rs1.MoveNext
         
     End If
    
   Loop
    
    If temp = True Then
       FIdentification.Hide
       FMenu.Show
       
      
    Else
        MsgBox "Votre Nom ou Mot de passe n'existe pas!"
   
    End If

cs_DARKSIDIOUS · Answer

ah oui en effet ca marche pas !

Qu'est-ce qui ne marche pas ? Bah j'sai pas moi, tu n'as qu'à nous dire déjà ce que toi tu veux faire !

cs_Exploreur · Answer

Salut, 
il y a la fonction Like, qui te permet de comparer ta zone de text à ton champ de la base, essaye cela défois que : 
Exemple :
Dim Rep

Resume:
Rep = rs1.Fields("admin").Value LIKE var1 And rs1.Fields("motdepasse").Value Like var2

If Rep = False then
    MsgBox "Votre Nom ou Mot de passe n'existe pas!"
    If Rs1.Eof = False then Rs1.MoveNext
    Resume Retour
Else
'Si ok tu valide
End if

A+
Exploreur

cs_Exploreur · Answer

Tu peux aussi par la suite faire la comparaison si il y a plusieurs personnes du même nom, et ou du même mot de passe sans avoir le même nom
A+
Exploreur

marzouki_tn2003 · Answer

Normalement ca doit marcher si tu ajoute biensur une instance de ADODB.Connection , Set cnx1 = New ADODB.Connection
- on doit pas utiliser LIKE dans la selection car on cherche une valeur précise.
- dans l'ajout des utilisateur essaie d'empécher les doublons
s'il ya tjr un probléme vérifie ta base de données.
bonne chance

cs_cheikhtba · Answer

Salut Exploreur,
j'ai esayé ton exemple mais jusqu'à present sa ne marche pas on dirait que j'ai pas les valeurs au niveau de ma base ce qui est faut j'ai bien vérifié j'ai donné les valeurs mais sa retourne false
Rep = (rs1.Fields("admin").Value Like var1) And (rs1.Fields("motdepasse").Value Like var2)

cs_cheikhtba · Answer

Je souligne une chose j'ai remplit ma table directement sur sql Server je si sa peut poser probleme ou pas

marzouki_tn2003 · Answer

est ce que ton Recordset rs1 retourne des valeurs, c-à-d la boucle while teste des valeur retournée par rs1

cs_Exploreur · Answer

Re Cheikhtba,
En réponse à ton post de 15:51, là je ne sais pas, donc je ne préfère rien dire pour ne pas dire de bêtises.
A+
Exploreur

cs_Exploreur · Answer

oups ce n'est pas Resume: mais plutôt Retour:
Bon cela ne change rien au problème, juste la correction de syntaxe.
A+
Exploreur

Probleme avec mon test if

10 réponses

Votre réponse

Discussions similaires