Récupérer une valeur dans une base de données et la comparer au contenu d'un tex
Résolu
cs_SecondSight
Messages postés
16
Date d'inscription
lundi 27 décembre 2004
Statut
Membre
Dernière intervention
11 février 2007
-
2 janv. 2006 à 08:09
risbominkala - 30 juil. 2012 à 18:17
risbominkala - 30 juil. 2012 à 18:17
3 réponses
COlive
Messages postés
91
Date d'inscription
mercredi 27 février 2002
Statut
Membre
Dernière intervention
3 décembre 2011
2 janv. 2006 à 13:26
2 janv. 2006 à 13:26
Moi j'aurai tout simplement fais ceci :
'Connexion à la table Eleves
Set tmpRec = DBTest.OpenRecordset("SELECT * FROM Eleves WHERE Nom=' + Combo1.text + "'", dbOpenDynaset)
if tmpRec.recordcount = 0 then
msgbox "Utilisateur Inconnu"
exit sub
end if
if txtMotPasse.text <> tmprec.fields(Num du champ correspondant au mot de passe).value then
msgbox "Mot de passe incorrect"
exit sub
end if
msgbox "Mot de passe Bon !!"
Voila, ça serait un truc dans le genre, je pense.
COlive.
Deux intellectuels assis iront moins loin qu'un con qui marche. Pensez-y !
Pensez à cliquer sur réponse acceptées quand votre problème est solutionné.
'Connexion à la table Eleves
Set tmpRec = DBTest.OpenRecordset("SELECT * FROM Eleves WHERE Nom=' + Combo1.text + "'", dbOpenDynaset)
if tmpRec.recordcount = 0 then
msgbox "Utilisateur Inconnu"
exit sub
end if
if txtMotPasse.text <> tmprec.fields(Num du champ correspondant au mot de passe).value then
msgbox "Mot de passe incorrect"
exit sub
end if
msgbox "Mot de passe Bon !!"
Voila, ça serait un truc dans le genre, je pense.
COlive.
Deux intellectuels assis iront moins loin qu'un con qui marche. Pensez-y !
Pensez à cliquer sur réponse acceptées quand votre problème est solutionné.
cs_SecondSight
Messages postés
16
Date d'inscription
lundi 27 décembre 2004
Statut
Membre
Dernière intervention
11 février 2007
2 janv. 2006 à 19:19
2 janv. 2006 à 19:19
Merci ! Je vais tester de suite :)
