Vérification dans une base de donnée

Commenter

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

S'inscrire maintenant

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.

Du même auteur (psykocrash)