Une boite de connexion avec une base de données (dao)
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)
Cest juste une petite boite de connexion sans plus mais ça sert toujours J
Noubliez pas la référence dao 3.6
Bonne prog
Biz
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 nest pas le même que celui de la base
If pass_saisi <> verif_pass Then
message que ce nest 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 :
Cest juste une petite boite de connexion sans plus mais ça sert toujours J
Noubliez pas la référence dao 3.6
Bonne prog
Biz
A voir également
- Une boite de connexion avec une base de données (dao)
- Base de données javascript - Conseils pratiques -Javascript
- Connexion base de données - Conseils pratiques -PHP
- Récupérer données json (javascript) - Conseils pratiques -Javascript
- Restauration base de données sql server ✓ - Forum SQL
- Base de données e-commerce - Forum PHP
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.