mot de passRésolu

Question

Salut je suis debutant en VB6 et je developpe un logiciel de gestion de stock j'utilise le data environnement est je suis bloqué  

voila ma reqete sql :SELECT login, pass FROM Acces WHERE (login ?) AND (pass?)

code:
Private Sub Valider_Click()
D.AccesListe l, p



If l D.rsAccesListe("login") And p D.rsAccesListe("pass") Then
MDIForm1.Clt.Enabled = True
MDIForm1.Prd.Enabled = True
MDIForm1.Quit.Enabled = True
Unload Me
D.rsAccesListe.Close
Else

MsgBox ("votre login et mot de pass est erroné veuiller le resaisir")
login.Text = ""
pass.Text = ""
D.rsAccesListe.Close
End If



End Sub

je tape le login et le mot de pass quand ils sont correct il n'ya pas de problem mais au else il me donne l'erreur 3021 (BOF EOF est egal à true ou l'enregistrement actuel à été supprimé
voila je suis bloqué est je ne sais pas quoi faire mais si quelqun peux m'aider ça serai tres gentil

jrivet · Accepted Answer

Salut, Si il te donne une erreur sert toi de cette erreur. essaie peu etre Private Sub Valider_Click() D.AccesListe l, p If Not D.rsAccesListe.BOF) And Not D.rsAccesListe.EOF) Then If l = D.rsAccesListe("login") And p = D.rsAccesListe("pass") Then MDIForm1.Clt.Enabled = True MDIForm1.Prd.Enabled = True MDIForm1.Quit.Enabled = True Unload Me D.rsAccesListe.Close Else MsgBox ("votre login et mot de pass est erroné veuiller le resaisir") login.Text = "" pass.Text = "" D.rsAccesListe.Close End If End If End Sub Coloration syntaxique automatique [AFCK] @+, Julien Pensez: Moteur de Recherche, Réponse Acceptée, Règlement/FONT>

Dolphin Boy · Answer

Salut, je ne sais pas si ton code est correct, je n'utilise pas de dataenvironnement.

Perso, j'utilise le même genre de requete SQL mais après la création du recordset, je teste :

if not rst.eof then
  'c'est cool on continue
else
  'login et/ou mot de passe incorects
end if
rst.close

cs_aziz09 · Answer

Salut Merci Dolphin pour ta reponse j'ai essaié d'appliquer se que tu ma recommendé mais ça ne marche jrs pas. je suis bloqué ici depuis pas mal de temp et je veux finir j'ai 1 projet.je serais tres ravi si tu accepte que tu me donne un peux d'aide.bon si tu veux je peux t'envoyer mon programme peut etre que vous trouverai une sorie à ce prob. en tt cas merci.

mortalino · Answer

Salut,

et en trichant comme ceci, ça fonctionne ?  

SELECT login, pass FROM Acces WHERE (login ?) AND (pass?)



code:
Private Sub Valider_Click()
D.AccesListe l, p

on error goto FinProg
MonCode:

If l D.rsAccesListe("login") And p D.rsAccesListe("pass") Then
  MDIForm1.Clt.Enabled = True
  MDIForm1.Prd.Enabled = True
  MDIForm1.Quit.Enabled = True
  Unload Me
  D.rsAccesListe.Close
End If

Exit Sub

FinProg:

MsgBox ("votre login et mot de pass est erroné veuiller le resaisir")
login.Text = ""
pass.Text = ""
D.rsAccesListe.Close
GoTo MonCode

End Sub

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

tof008 · Answer

c'est normal que s'il ne trouve pas l'enregistrement, il te donne une erreur en te disant que l'enregistrement est introuvable... essaie de verifier avec un 
if Isnull(req!login) then 
msgBox(login incorrect)
else
ok
end if

et de meme pour le password...


 





(Si la réponse vous convient, appuyez sur réponse acceptée...)





Il y a plusieurs facon d'être con ,mais un con choisit toujours la pire
<>

Mot de pass

5 réponses

Votre réponse

Discussions similaires