begin process at 2012 02 12 10:34:28
  Trouver un code source :
 
dans
 
Accueil > 

Code

 > 

Trucs & Astuces

 > UNE BOITE DE CONNEXION AVEC UNE BASE DE DONNÉES (DAO)

UNE BOITE DE CONNEXION AVEC UNE BASE DE DONNÉES (DAO)


 Information sur la source

 Description

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

  • '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
'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


 Sources du même auteur

Source avec Zip APPRENDRE À MANIPULER EXCEL (GRAPHIQUE ET TABLEAU) LES FICHI...
SPLIT ET DAO : REMPLIR UNE COMBO AVEC PLUSIEURS CHAMPS ET LE...
REMPLIR UNE COMBO BOX AVEC UNE TABLE (DAO)
Source avec une capture IMITATION D'UNE BARRE DE TELECHERGEMENT (PRISE EN MAIN DES T...

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) EXPORTER LES IMAGES DE WORD ET D' EXCEL par Le Pivert
Source avec Zip Source avec une capture JEUX DE VERITÉ ET DE FIDELITÉ par billatosco
Source avec Zip IMAGELOARDER par vkitumaini
Source avec Zip Source avec une capture Source .NET (Dotnet) CREER UN CALENDRIER DE POCHE par Le Pivert
Source avec Zip RECHERCHE D'UN ENREGISTREMENT DANS UNE DATATABLE ET POSITION... par erdna

Commentaires et avis

Aucun commentaire pour le moment.

 Ajouter un commentaire




Nos sponsors


Sondage...

Comparez les prix

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode

Photothèque

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 4,103 sec (3)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales