Vérification dans une base de donnée

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 628 fois - Téléchargée 46 fois

Contenu du snippet

un petit code pour vous permettre de vérifier si une donnée existe dans un base de donnée
Pourquoi pas un login et un password ?
PS : comme je m'y connais pas tres bien en db, il faudra cacher certains composants comme le controle data et 3 labels

Source / Exemple :


'Form
'2 zones de texte :
'TextLogin, TextPassword
'2 boutons :
'Login, Cancel
'1 contrôle Data (à vous de le cacher...) :
'Data1
'(Dans la base de donnée) :
'Table 1 :
'LoginPassword
'2 Champs
'Login
'Password
'Table 2 :
'NbrLogin
'1 Champs :
'NbrLogin
'3 Labels
'lblLogins
'lblLogin
'lblPassword
'------------------------------------
Private Sub Login_Click
Login = TextLogin.Text
If Login = "" then
MsgBox "Champs de donnée vide"
Exit sub
Else
Data1.RecordSource = "NbrLogin"
lblLogins.DataSource = Data1
lblLogins.DataField = "NbrLogin"
NbrLogins = Val(lblLogins.Caption)
Data1.RecordSource = "LoginPassword"
lblLogin.DataSource =Data1
lblLogin.DataField ="Login"
lblPassword.DataSource =Data1
lblPassword.DataField ="Password"
Data1.RecordSet.MoveLast
if lblLogin.caption = "" then Data1.RecorSet.MovePrevious
Dernier = lblLogin.Caption
Data1.Recorset.MoveFirst
For i=1 to NbrLogins
If Login = lblLogin.Caption then
If Password = lblPassword.caption then
'Login et Password correct. a vous de le diriger
MsgBox "Login et Password correct"
else
MsgBox "Password incorrect"
end if
else
if Login = Dernier then
MsgBox "Login incorrect"
else
Data1.RecordSet.MoveNext
End if
End If
Next
End Sub

Private Sub Cancel_Click()
End
End Sub

Conclusion :


Bon, c'est un peu confus, mais sa marche :°)
PS : si vous connaissez le moyen de racorder une variable à un contrôle data, merci de m'en faire part (et de me dire comment...)
§ Thinks & @+ §

A voir également

Ajouter un commentaire Commentaires
Messages postés
1
Date d'inscription
mercredi 11 juillet 2007
Statut
Membre
Dernière intervention
11 juillet 2007

et il est ou le zip de téléchargement ?
Messages postés
7
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
14 janvier 2003

jaime pas les controle data alor tu te débrouille lol, essaie l'ado ;).
Sinon ça a lair de marcher

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.