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
Version imprimable
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
:salut:
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:
Double clicquer sur le bouton de commandeCode:
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
Mettre ce code
J'essayerai de faire un exemple et de le poster si il y en a un domaine réservé à cela.Code:
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:king:
la suite ici :
[source] Gestion d'Utilisateur et mot de passe pour l'accés à mon application vb
Cordialement
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,
Bonjour,
En réadaption selon votre besoin, est ce que vous avez bien mis le code.
Sinon, remplacer
Par ceciCode:Rs.Open Sql, Conn, 3, 3
Excuser s'il y a des fautes, mais l'intellicence vous guidera.Code:Rs.Open Sql, Conn, OpenDynamic, LockPermistic
Bon courage
Cordialement