Connexion par mot de passe grâce à une bdd

Soyez le premier à donner votre avis sur cette source.

Vue 10 739 fois - Téléchargée 2 563 fois

Description

Bonjour, voici ma première source sur le site ! J'espère que celle-ci pourra aider des gens !

Il s'agit donc d'une interface assez graphique qui permet de se connecter par mot de passe à un programme et ce avec plusieurs compte. Vous pourrez même créer un nouvel utilisateur. Je pense qu'il y a un tout petit bug au niveau de la propriété Visible de certain objet mais bon cela n'est pas forcément compliqué à trouver si pas je regarderais pour mettre une version hyper parfait si cela reste possible lol car améliorer c'est toujours possible.

Pour la connexion j'utilise l'objet ControlData.

Pour le code qui vérifie si le nom d'utilisateur et le mot de passe sont bon, les connexion à la BDD sont faites par programmation avec les chemins complets !

Si quelqu'un à une idée ou quelque chose à proposer par rapport à ce code, je suis ouvert à toute proposition ainsi qu'à toute question !

Voilà amusez-vous bien J-il

P.S : vous pouvez me joindre aussi sur ce forum où je suis modérateur c'est un pptit forum de pote pour l'école mon pseudo y est J-il

Source / Exemple :


Private Sub bou_ajouter_nouveau_compte_Click()

motpas.Recordset.AddNew

End Sub

Private Sub bou_annuler_ajout_Click()

    'Affichage de certains bouton et etiquette
    eti_utilisateur.Visible = True
    eti_mot_de_passe.Visible = True
    eti_nouveau_compte.Visible = True
    eti_connexion.Visible = True
    txt_utilisateur.Visible = True
    txt_mot_de_passe.Visible = True
    bou_annuler.Visible = True
    Command2.Visible = True
    
    'affichage des boutons pour l'ajout
    eti_ajout_mot_de_passe.Visible = False
    eti_ajout_utilisateur.Visible = False
    eti_creer_utilisateur.Visible = False
    txt_ajout_utilisateur.Visible = False
    txt_ajout_mot_de_passe.Visible = False
    bou_annuler_ajout.Visible = False
    bou_enregistrer_ajout.Visible = False
    bou_ajouter_nouveau_compte.Visible = False
    
End Sub

Private Sub bou_annuler_Click()

End

End Sub

Private Sub bou_enregistrer_ajout_Click()

    motpas.Recordset.Update

    'Affichage de certains bouton et etiquette
    eti_utilisateur.Visible = True
    eti_mot_de_passe.Visible = True
    eti_nouveau_compte.Visible = True
    eti_connexion.Visible = True
    txt_utilisateur.Visible = True
    txt_mot_de_passe.Visible = True
    bou_annuler.Visible = True
    Command2.Visible = True
    
    'affichage des boutons pour l'ajout
    eti_ajout_mot_de_passe.Visible = False
    eti_ajout_utilisateur.Visible = False
    eti_creer_utilisateur.Visible = False
    txt_ajout_utilisateur.Visible = False
    txt_ajout_mot_de_passe.Visible = False
    bou_annuler_ajout.Visible = False
    bou_enregistrer_ajout.Visible = False
    bou_ajouter_nouveau_compte.Visible = False

End Sub

Private Sub Command2_Click()

On Error GoTo erreur 'Gestion des erreurs

'Déclaration des variables
Dim str_nom_utilisateur As String
Dim str_mot_de_passe As String

'Affectation des variables aux boites de textes
str_nom_utilisateur = txt_utilisateur.Text
str_mot_de_passe = txt_mot_de_passe.Text

'Recherche dans la BDD avec le FindFirst sur les champs de la base
motpas.Recordset.FindFirst "nom_utilisateur like '" & str_nom_utilisateur & "' "
motpas.Recordset.FindFirst "mot_de_passe like '" & str_mot_de_passe & "' "

'Test pour vérifier l'existance du nom d'utilisateur et du mot de passe
If str_nom_utilisateur = motpas.Recordset.Fields("nom_utilisateur") And str_mot_de_passe = motpas.Recordset.Fields("mot_de_passe") Then
    
    MsgBox "Codes d'accès acceptés"
    frm_prog.Show
    Unload frm_connexion

Else
        
    MsgBox "Vérifiez votre nom d'utilisateur ou mot de passe !"
    txt_utilisateur.Text = ""
    txt_mot_de_passe.Text = ""
    txt_utilisateur.SetFocus
            
End If

Exit Sub                                                                                            '
erreur:                                                                                             'Gestion des erreurs
MsgBox "L'erreur suivante s'est produite : " & Err.Description, vbInformation + vbOKOnly, "Erreur"  '

End Sub

Private Sub eti_nouveau_compte_Click()

    'effacement écran de certains bouton et etiquette
    eti_utilisateur.Visible = False
    eti_mot_de_passe.Visible = False
    eti_nouveau_compte.Visible = False
    eti_connexion.Visible = False
    txt_utilisateur.Visible = False
    txt_mot_de_passe.Visible = False
    bou_annuler.Visible = False
    Command2.Visible = False
    
    
    'affichage des boutons pour l'ajout
    eti_creer_utilisateur.Visible = True
    bou_ajouter_nouveau_compte.Visible = True
    eti_ajout_utilisateur.Visible = True
    eti_creer_utilisateur.Visible = True
    eti_ajout_mot_de_passe.Visible = True
    txt_ajout_utilisateur.Visible = True
    txt_ajout_mot_de_passe.Visible = True
    bou_annuler_ajout.Visible = True
    bou_enregistrer_ajout.Visible = True

End Sub

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Messages postés
4
Date d'inscription
lundi 18 décembre 2006
Statut
Membre
Dernière intervention
17 janvier 2013

Si je peux me permettre tu ne fais pas la gestion d'erreur en cas ou la base de donnée est vide.

voici un exemple que j'ai pris dans une de mes appli;

On Error GoTo gèreerreur
If erreur = 3021 Then
gèreerreur:
MsgBox "Aucun fichier a été créer, Aucun ordinateur n'est retiré du l'inventaire", vbInformation, "Information"
Exit Sub

Else
Num = FreeFile
chemin = "C:\Documents and Settings" & user & "\Bureau\Recylcage.doc"
Open chemin For Output As #Num
rs_selection.MoveLast
val = rs_selection.Fields(0)
rs_selection.MoveFirst

For i = 1 To val
Write #Num, rs_selection.Fields(0) & " " & rs_selection(2) & " " & rs_selection(3) & " " & rs_selection.Fields(4) & " " & rs_selection.Fields(5)
rs_selection.MoveNext
Next
Close Num
End If

Ensuite tu devrais essayer d'utiliser un module où tu déclares tes fonction en public plus simple et pour acces de donnée ADO ?
Messages postés
2501
Date d'inscription
jeudi 14 juillet 2005
Statut
Contributeur
Dernière intervention
5 juin 2016
1
dady_coolll: t'as qu'à changer de mot de passe !
Messages postés
1
Date d'inscription
lundi 6 août 2007
Statut
Membre
Dernière intervention
6 août 2007

slt mes amis je vien de me faire avoire par un merdeure hier il ma pris mon mots de passe aidé moi stp
Messages postés
1
Date d'inscription
mardi 26 décembre 2006
Statut
Membre
Dernière intervention
26 juillet 2007

Bonjour,
Parfait ton programme, je viens de l'intégrer pour faire des tests sur VB6.
Merci Francis
Messages postés
1
Date d'inscription
dimanche 15 juillet 2007
Statut
Membre
Dernière intervention
19 juillet 2007

slt et merci
Afficher les 19 commentaires

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.