AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2009 01 09 02:15:39
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

CONNEXION PAR MOT DE PASSE GRÂCE À UNE BDD


Information sur la source

Catégorie :Base de Donnees Classé sous : connexion, mot, passe, password Niveau : Débutant Date de création : 03/01/2007 Date de mise à jour : 28/01/2007 12:30:08 Vu / téléchargé: 7 140 / 2 003
Auteur : chouchou270403 Site perso
Ecrire un message privé
Note :
6 / 10 - par 3 personnes
6,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Commentaire sur cette source (19)
Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale
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

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

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

Historique

07 janvier 2007 17:19:40 :
Je pense qu'il y a eu un problème lors de l'ajout de ce projet donc je le remet comme il faut et avec un screener car il avait pas été pris...
28 janvier 2007 12:30:09 :
Essai d'upload d'un screener

Commentaires et avis

signaler à un administrateur
Commentaire de Exploreur le 07/01/2007 20:02:30

Salut,
Il y a un problème avec le zip...Impossible de décompresser avec winzip.
A+
Exploreur

signaler à un administrateur
Commentaire de ghuysmans99 le 07/01/2007 21:36:13

ah ! pourtant, moi, j'y arrive sans problèmes !

signaler à un administrateur
Commentaire de ghuysmans99 le 07/01/2007 21:40:33

bon, on passe aux critiques !

1: Nomme tes contrôles (lbl pour label, cmd pour bouton, lst pour liste déroulante, ...)

2: Utilise App.Path pour le chemin de la database

3: Les couleurs, les mettre à la même que celle de fond du form (lbl1.backcolor=me.backcolor)


Voilà !

signaler à un administrateur
Commentaire de ghuysmans99 le 07/01/2007 21:43:26

Dernière chose pour te faciliter la vie : la propriété Picture de ton form pour l'image de fond ...

Guillaume

signaler à un administrateur
Commentaire de chouchou270403 le 07/01/2007 21:47:13

Merci beaucoup pour les critiques c'est cool en plus elles sont gentilles lol. Au niveau des noms de control, je fais comme à l'école, notre prof de programmation nous demande de les nommer comme ça et je trouve ça bien car perso je m'y retrouve plus facilement je pense que c'est une question de goût lol et de point de vue. Merci beaucoup pour de vos messages et éval cela m'encourage à mettre plus de source développées aux cours et pendant mes heures de temps libre !

J-il

signaler à un administrateur
Commentaire de Exploreur le 07/01/2007 23:26:42

Salut Ghuysmans99,
Bravo si tu y arrives avec le zip !!!
Moi il me dit : Fichier zip non valide, si ce fichier appartient à une sauvegarde insérez le dernier disque!!
A+
Exploreur

signaler à un administrateur
Commentaire de chouchou270403 le 08/01/2007 09:42:25

Coucou, moi j'y arrive aussi j'utilise Winrar pour l'ouvrir et cela fonctionne si pas je referais un zip complet et j'essaierai de mettre un screener mais le problème c'est que ça bug lorsque j'ajoute ma source.... problème de serveur !!!

A+ J-il

signaler à un administrateur
Commentaire de Exploreur le 08/01/2007 10:35:52

Salut Chouchou270403,
Ok pur winrar, pas essayé comme la terminaison du fichier est Zip!!lol
A+
Exploreur

signaler à un administrateur
Commentaire de dokle le 17/01/2007 08:06:33

Slt
dans ton zip il n'y a rien à décompresser je n'arrive pas

signaler à un administrateur
Commentaire de chouchou270403 le 17/01/2007 14:10:37

Il faut décompresser avec Winrar ça fonctionne très bien... moi je travaille que avec celui-là donc ! Essaie tu veras

J-il

signaler à un administrateur
Commentaire de smak83 le 27/01/2007 22:40:17

Salut,
Je suis aussi un debutant mais moi j'arrive pas a truvé le "FINFIRST" .

A noté ke j'utilise comme type de connexion "CONNECTION" et "RECORDSET" ,
est ce que vous avez une solution pour cette lacune  .
voici ce que je veut faire
chercher des information qui existent dans ma BDD selon des critaire et les affichés dans des zones de textes ou dans un DATAGRID

signaler à un administrateur
Commentaire de chouchou270403 le 28/01/2007 12:22:03

Salut smak83,

Donc si j'ai bien compris ta question, tu as une bdd en .mbd et tu veux pouvoir effectuer des recherche dans cette base de données et qu'au final il te sorte ce que tu as recherché dans une DbGrid ou dans des boîtes de textes ou bien dans une ListBox ?

Si oui je pense avoir un programme pour toi ou bien un code source avec explication... il a était fait lors de l'élaboration d'un petit carnet d'adresse.

Seulement je n'ai aucune idée comme te faire partager le code ! Soit en créant un autre topic ou bien en te filant le code ici...

Dis -moi quoi

Bon dimanche à tous

J-il

signaler à un administrateur
Commentaire de subaqua le 07/02/2007 17:29:40

Salut J-il,

Je viens de lire ton message et cela m'intéresse diablement. J'essaye de créer un code VB qui permet de récupérer des infos sur une base Access ou d'en enregistrer. Je débute pour ce type de code et ton code pour carnet d'adresse pourrait m'aider.
Peux-tu mettre le code sur le site ?
Merci.

signaler à un administrateur
Commentaire de chouchou270403 le 08/02/2007 12:44:28

Re SUBAQUA,

Pas de problème, je vais te mettre mon programme que j'ai fais à l'école... il y aura surement quelques bugs car il manquera quelques OCX pour le menu etc. Mais au moins tu as le code dans les feuilles et ce code est un rien commenté donc tu ne devrais pas avoir de problème pour comprendre si pas VBFrance est la pour ça et les commentaires aussi lol

Je mettrais mon code aujourd'hui ou bien dans le courant du week-end car ici je bosse sur un gestion des droits d'accès à un prog.

A bientôt J-il

signaler à un administrateur
Commentaire de fixi2007 le 19/07/2007 21:22:21

slt et merci

signaler à un administrateur
Commentaire de francis_421 le 26/07/2007 18:39:15

Bonjour,
Parfait ton programme, je viens de l’intégrer pour faire des tests sur VB6.
Merci Francis

signaler à un administrateur
Commentaire de dady_coolll le 06/08/2007 11:35:21

slt mes amis je vien de me faire avoire par un merdeure hier il ma pris mon mots de passe aidé moi stp

signaler à un administrateur
Commentaire de ghuysmans99 le 06/08/2007 12:25:23

dady_coolll: t'as qu'à changer de mot de passe !

signaler à un administrateur
Commentaire de philou_90 le 21/05/2008 15:58:03

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 ?

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Pb de connexion à une BD protégée par un mot de passe. [ par Zouheir ] Salut à tous. Je n'arrice pas à trouver la bonne chaine de connexion à une base de données (Access 97) protége par un mot de passe. 'J'ai essayé avec Password?... O_o [ par jia2812 ] Wala, jé 1 zoli desktop. Mais je veux créer 1 fenêtre d'acceuil qui me permet d'entrer 1 mot de passe afin de pouvoir accéder au bureau de mon ordi', pb : connexion a une base access avec un mot de passe [ par nilujebu ] J'ai une petit souci! j'essaye de me connecter a ma base acces, ça marche tres bien losque qu'il n'y a pas de mot de passe mais ça plante losque y en Prob avec mot de passe d'access à la connexion [ par freebond ] J'ai cree une liaison adodb vers ma base access (que j'ai bloque par un mot de passe), mais lorsque je me connecte à celle ci, j'ai un message d'erreu Prob de connexion à ma base access protégée par un mot de passe [ par freebond ] J'ai cree une liaison adodb vers ma base access (que j'ai bloque par un mot de passe), mais lorsque je me connecte à celle ci, j'ai un message d'erreu VB.NET ACCESS et Password [ par gwiwi ] Bonjour,Je me connecte sur une base Access via oleDb et je souhaite ouvrir une base access avec un mot de passe. Cela fonctionne tres bien sans mot de connexion Ras sous Vb [ par gborde ] gbordeBonjour, d'abord je suis sur XP avec Vb6 en dehors de vb j'ai une connexion Ras qui marche bien avec un utilisateuret un mot de passe.je me conn BD avec password [ par AABS ] Bonjourje n'arrive pas à ouvrir une BD ayant un mot de passe avec le code suivant:dim db as databasedim rs as recordsetset db=opendatabase("c:\BDCaiss Connexion winsock [ par bilaloch ] Bonjour,S'il vous plaît, aider moi. Je sais me connecte avec un pseudo et un mot de passe avec un winsock, mais est ce que cela marche avec tout les s Connexion [ par bilaloch ] Bonjour,Voila, je me suis connecté avec winsock sur un serveur pop, par exemple "pop.wanadoo.com". Ensuite, je me connecte avec un compte et mot de pa


Nos sponsors

Sondage...

CalendriCode

Janvier 2009
LMMJVSD
   1234
567891011
12131415161718
19202122232425
262728293031 

Consulter la suite du CalendriCode

Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, 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
Temps d'éxécution de la page : 0,406 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.