Discussion :

[Bilxadim]

Suite à la discussion :
Gestion d'appli en vb avec mot de passe

Là je vais donner un exemple de connection avec des utilisateurs qui se trouve sur une base de données Access format 2000.
1- Créer votre Base de données Access nommée le Mabase et vous le sauvegarder dans votre disque lmocal C:
Créer votre table user avec comme champs login et pass, ici le login est la clé primaire.
2- Démarer Visual Basic 6.0
3- Commencer par créer une référence vers la bibliothéque en faisant menu Projet-Référence ensuite cocher la cage Microsoft ActivX DataObject 2.8 Library.
3- Sur votre feuille Form1 insèrer:
- deux labels, mettre sur leur propriètés caption respectivement Login et Mot de pass.
- deux textBox et nommer les l'un TxtLogin et l'autre TxtPass.
- Un bouton de commande: propriété caption Connection et name CmdConnect
4- Ajouter une nouvelle feuille qui constituera la feuille à démarrer si l'utilisateur s'est bien connecté

Passons au code:
Double cliccquer sur la feuille Form1, et dans la partie où se trouve le curseur mettre:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Private Sub Form1_load()
'Déclaration et ouverture de la connection
Dim Conn as ADODB.Connection
Set Conn = New ADODB.Connection
Conn.Provider="Microsoft.Jet.OLEDB.4.0"
Conn.ConnectionString="C:\Mabase.mdb"
Conn.Open
End sub

Double clicquer sur le bouton de commande
Mettre ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Private sub CmdConnect_click()
Dim Rs as ADODB.Recordset
Dim Sql as String
Dim Trouve as Boolean
Set Rs = New ADODB.Recordset
Sql=" SELECT * FROM user"
Rs.Open Sql, Conn, 3, 3
Rs.Movefist
Trouve = False
Do while Not Rs.EOF And Not Trouve
   If Val(TxtLogin)=Rs("Login") And Val(TxtPass)=Rs("pass") Then
      Trouve=true
   Else
      Rs.Movenext
   End if
Loop
 
If Trouve Then
   Form2.Show 'Ceci représente votre programme à démarrer après avoir l'identifier
   Unload Me
Else
   Msgbox "Login ou mot de pass incorrect", Vbinformation, "Connection"
End If
End sub

Bon courage
Cordialement

[SfJ5Rpw8]

Bonsoir, Bilxadim

pour ta contribution..

une première remarque serai de mettre, un chemin relatif pour ta base de donnée, ce qui simplifierai sa distribution

par exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

App.path & "\Mabase.mdb"