Discussion :

[dompiau80]

Bonjour,

Quelqu'un aurait-il développé un module en vb pour une gestion d'application multi-utilisateurs avec login et mot de passe. Un bout de code ferait l'affaire car je tourne en rond.

Merci et bonne journée a tous

[Bilxadim]

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

J'essayerai de faire un exemple et de le poster si il y en a un domaine réservé à cela.
Bon courage

la suite ici :

[source] Gestion d'Utilisateur et mot de passe pour l'accés à mon application vb


Cordialement

[rivomalala]

salut à tous.
j'ai appliquer tous ces codes mais à la ligne qui contient le code :
Rs.Open Sql,conn,3,3
il y a message d'erreur
Les arguments sont de type incorrectes, en dehors des limites autorisées ou en conflits les un avec les autres.
je sais pas quoi faire,MErci beaucoup pour les codes,

[Bilxadim]

Bonjour,
En réadaption selon votre besoin, est ce que vous avez bien mis le code.
Sinon, remplacer

Code :

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

Rs.Open Sql, Conn, 3, 3

Par ceci

Code :

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

Rs.Open Sql, Conn, OpenDynamic, LockPermistic

Excuser s'il y a des fautes, mais l'intellicence vous guidera.
Bon courage
Cordialement