Une boite de connexion avec une base de données (dao)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 779 fois - Téléchargée 26 fois

Contenu du snippet

Explications :
Juste une petite boite de connexion, avec saisie du nom et du mot de passe. La vérification se fait sur la recherche dans une base de données.

Composants et propriétés :
1 zones de texte (txt_pass)
1 bouton (b_valid)
1 combo (combo_nom)

Source / Exemple :


‘déclarations
‘une var pour récupérer le nom dans la combo
Dim affich_nom As String
‘de la base
dim db as dao.database
‘une requête pour trouver le bon mot de passe
Dim rq_pass As DAO.Recordset
‘une variable pour prendre le mot de passe quie st dans la zonne de texte pour ça
Dim verif_pass As String
‘une variable pour récupérer le bon mmot de passé dans la base
Dim pass_saisi As String
PROCEDURE SUR CLIC CHARGEMENT DU FORMULAIRE
‘remplr la combo (il y a une autre source pour faire ça)
PROCEDURE SUR CLIC SUR LE BOUTON
‘initialisation de la base
Set db = opendatabase (« chmin de la base »)
‘initialisation de la var affich_nom avec le texte de la combo
Affich_nom = combo_nom.text
‘initialisation de la requête qui récupère le mot de passe
Set rq_num_ent = db.OpenRecordset("select pass from entite where nom_entité = '" & affich_nom & "'")
‘initialisation de la var du bon mot de passé avec le résultat de la requête
verif_pass = rq_num_ent!pass
‘initialisation de la var pass_saisi avec le mot de passé saisi dans la zone de texte
pass_saisi = txt_pass.Text
‘si le mot de passé saisi n’est pas le même que celui de la base
If pass_saisi <> verif_pass Then
     ‘message que ce n’est pas le bon
    MsgBox ("Ce mot de passe est mauvais ")
‘sinon
Else
     ‘afficher le formulaire suivant ici c le formulaire accueil
    accueil.Visible = True
    ‘ fermer la boite de connexion
    Unload Me
‘Fin si
End If

Conclusion :


C’est juste une petite boite de connexion sans plus mais ça sert toujours J
N’oubliez pas la référence dao 3.6
Bonne prog
Biz

A voir également

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.