Un petit problème en vb 6 svp aidez moi!!!
sophiagi
-
sophiagi -
sophiagi -
Bonjour,
voilà j'ai une application en vb 6 je suis étudiante en 1ère année génie informatique
le problème que j'ai rencontré est le suivant
j'ai une base de données qui contient une table compteadmin contenant les champs login et mot de passe
si un administrateur veut se connecter il doit rentrer son login et son mot de passe si ceci correspond à ce qui se trouve dans ma base de données l'administrateur se connecte et il y a un message qui s'affiche admin connecté
mais pour le cas échéant quand l'administrateur rentre soit le login ou le mot de passe incorrect j'avais demandé à vb de m'afficher mot de passe ou login incorrect par contre quand j'éxécute l'application je peux rentrer n'importe quoi il m'affiche toujours admin connecté et je ne sais vraiment pas comment palier au problème
pour ceux qui peuvent m'aider je leur serais vraiment reconnnaissante.
voici mon code
Private Sub cmdvalider1_Click()
Dim strsql As String
strsql = "select * from compteadmin where txtlogin='txtlogin.text' and txtmdp='txtmdp.text'"
If txtlogin = txtlogin.Text Then
If txtmdp = txtmdp.Text Then
MsgBox "admin connecté"
MDIForm1.Show
MDIForm1.démarrer.Enabled = True
MDIForm1.saisiebci.Enabled = False
MDIForm1.saisiebs.Enabled = False
MDIForm1.gestionarticles.Enabled = True
MDIForm1.gestionutilisateurs.Enabled = True
Exit Sub
Else
MsgBox "mot de passe ou login incorrect"
End If
End If
End Sub
nb:pour démarrer, saisiebci, saisiebs, gestionarticles et gestionutilisateurs ce sont des menus qui s'activent selon la personne connecté est ce administrateur ou utilisateur
voilà j'ai une application en vb 6 je suis étudiante en 1ère année génie informatique
le problème que j'ai rencontré est le suivant
j'ai une base de données qui contient une table compteadmin contenant les champs login et mot de passe
si un administrateur veut se connecter il doit rentrer son login et son mot de passe si ceci correspond à ce qui se trouve dans ma base de données l'administrateur se connecte et il y a un message qui s'affiche admin connecté
mais pour le cas échéant quand l'administrateur rentre soit le login ou le mot de passe incorrect j'avais demandé à vb de m'afficher mot de passe ou login incorrect par contre quand j'éxécute l'application je peux rentrer n'importe quoi il m'affiche toujours admin connecté et je ne sais vraiment pas comment palier au problème
pour ceux qui peuvent m'aider je leur serais vraiment reconnnaissante.
voici mon code
Private Sub cmdvalider1_Click()
Dim strsql As String
strsql = "select * from compteadmin where txtlogin='txtlogin.text' and txtmdp='txtmdp.text'"
If txtlogin = txtlogin.Text Then
If txtmdp = txtmdp.Text Then
MsgBox "admin connecté"
MDIForm1.Show
MDIForm1.démarrer.Enabled = True
MDIForm1.saisiebci.Enabled = False
MDIForm1.saisiebs.Enabled = False
MDIForm1.gestionarticles.Enabled = True
MDIForm1.gestionutilisateurs.Enabled = True
Exit Sub
Else
MsgBox "mot de passe ou login incorrect"
End If
End If
End Sub
nb:pour démarrer, saisiebci, saisiebs, gestionarticles et gestionutilisateurs ce sont des menus qui s'activent selon la personne connecté est ce administrateur ou utilisateur
A voir également:
- Un petit problème en vb 6 svp aidez moi!!!
- Paris multiple 2/6 explication ✓ - Forum Loisirs / Divertissements
- Nero 6 - Télécharger - Gravure
- Petit 1 comme ² ✓ - Forum Windows
- Belote a 6 - Forum Graphisme
- Comment imprimer une photo en petit ✓ - Forum Photo numérique
5 réponses
Salut!
Moi je vais essayer ça:
Moi je vais essayer ça:
Private Sub cmdvalider1_Click() Dim strsql As String strsql = "select * from compteadmin where txtlogin='txtlogin.text' and txtmdp='txtmdp.text'" If txtlogin = txtlogin.Text AND txtmdp = txtmdp.Text Then MsgBox "admin connecté" MDIForm1.Show MDIForm1.démarrer.Enabled = True MDIForm1.saisiebci.Enabled = False MDIForm1.saisiebs.Enabled = False MDIForm1.gestionarticles.Enabled = True MDIForm1.gestionutilisateurs.Enabled = True Exit Sub Else MsgBox "mot de passe ou login incorrect" End If End Sub
merci d'avoir répondu à mon message
je viens d'essayer ce que tu m'as conseillé mais c'est toujours le même problème
je viens d'essayer ce que tu m'as conseillé mais c'est toujours le même problème
svp est ce qu'il n'y aurait pas d'autres suggestions
je bloque sur ce point j'ai beau chercher mais je ne sais pas comment m'y prendre
je bloque sur ce point j'ai beau chercher mais je ne sais pas comment m'y prendre
Bonsoir,
Il manque quelque chose dans ton code
strsql = "select * from compteadmin where txtlogin='txtlogin.text' and txtmdp='txtmdp.text'"
Là, tu ne fais qu'affecter une chaine de caractères à la variable strsql, et c'est tout. La requete n'est pas exécutée.
de plus txtlogin et txtlogin.Text pointent vers le même champ texte.
et donc txtlogin = txtlogin.Text.
pareil pour txtmdp = txtmdp.Text.
Pour verifier met cette ligne dans ton code
Msgbox txtlogin & " : " & txtlogin.Text
A+.
Il manque quelque chose dans ton code
strsql = "select * from compteadmin where txtlogin='txtlogin.text' and txtmdp='txtmdp.text'"
Là, tu ne fais qu'affecter une chaine de caractères à la variable strsql, et c'est tout. La requete n'est pas exécutée.
de plus txtlogin et txtlogin.Text pointent vers le même champ texte.
et donc txtlogin = txtlogin.Text.
pareil pour txtmdp = txtmdp.Text.
Pour verifier met cette ligne dans ton code
Msgbox txtlogin & " : " & txtlogin.Text
A+.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
merci tech_57 pour ton message j'ai mis la ligne de code que tu as écrtie il me renvoie ce que j'ai écris
çà ne marche pas non plus
oui je pense aussi qu'il y a un problème dans la requête sql mais je ne sais pas comment écrire la bonne requête
je veux lui dire que si je rentre un login et un mot de passe qui n'existent pas dans ma base de données il doit me renvoyer le message qu'il y a erreur soit dans le login soit dans le mot de passe et s'il trouve que ce que j'ai rentré existe dans ma base de données qu'il se connecte automatiquement.
j'ai beaucoup réfléchi à la requête sql mais c'est tout ce que j'ai trouvé et malheureusement çà ne marche pas
çà ne marche pas non plus
oui je pense aussi qu'il y a un problème dans la requête sql mais je ne sais pas comment écrire la bonne requête
je veux lui dire que si je rentre un login et un mot de passe qui n'existent pas dans ma base de données il doit me renvoyer le message qu'il y a erreur soit dans le login soit dans le mot de passe et s'il trouve que ce que j'ai rentré existe dans ma base de données qu'il se connecte automatiquement.
j'ai beaucoup réfléchi à la requête sql mais c'est tout ce que j'ai trouvé et malheureusement çà ne marche pas
