Discussion :

[elgigante2010]

Bonjour
Je voudrais faire un formulaire qui verifie le nom d'utilisateur et le mot de passe. J'ai essaye plusieurs des sources presentées mais aucune ne fonctionne
Quelqu'un peut m'aider avec quelques pistes qui me permettraient de realiser cela en vb.net avec les tables sous access 2010 ?

J'utilise visual studio 2010 ultimate , jai crée un formulaire de connexion avec 2 champs texte (txtLogin et txtMdp, le dernier ayant la propriété PasswordChar a true) et un bouton (cmdconnexion). J'ai mis les 2 champs en tant que clé primaire (c'est juste pour empêcher que 2 personnes ayant le même login aient le même mot de passe).

Merci de m'aider

[hunteshiva]

Bonjour,

ou bloque tu exactement?

• connexion à la base de données Acces
• Récupération des données

[Virtual62]

Bonjour,

ou bloque tu exactement?

• connexion à la base de données Acces
• Récupération des données

Moi je bloque a la connexion a la base de donnée ^^

[Invité]

c'est juste pour empêcher que 2 personnes ayant le même login aient le même mot de passe

Logiquement, chaque personne doit avoir son propre login, et ainsi, son propre mot de passe, comment un même login pourrait avoir un second mode de passe? ça n'a pas de sens...

[m_brun]

Moi je bloque a la connexion a la base de donnée ^^

Bonjour,

il te faut une fonction qui retourne une valeur si la personne est reconnu.
Voici un exemple de fonction avec Access qui verifie si la personne a les droit d'accès (role)

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
26
27
28
29
30
31
32
33
34
35
 
Function IsUserInRole(ByVal username As String, ByVal roleName As String) As Boolean
        Dim roles As String = ""
        Dim sql_Cde As New OleDb.OleDbCommand()
        Dim myReader As OleDb.OleDbDataReader = Nothing
        Dim ConnectionBase As New OleDb.OleDbConnection(Chemins.acsConstStrgUsersParametres)'chemin de la base
        Dim userIsInRole As Boolean = False
 
 
        Dim txt_sql As String = "SELECT COUNT(*) FROM T_utilisateur INNER JOIN (tRoles INNER JOIN tRolesUtilisateurs " & _
            "ON tRoles.nRole = tRolesUtilisateurs.nRole) ON T_utilisateur.N_Personne = tRolesUtilisateurs.nUtilisateur " & _
            "WHERE (((tRoles.nApplication)=3) AND ((tRoles.Role)=""" & roleName & """) AND ((T_utilisateur.Nom_Utilisateur)=""" & username & """));"
 
 
 
        sql_Cde.CommandText = txt_sql
 
        Try
            sql_Cde.Connection = ConnectionBase
            ConnectionBase.Open()
 
            Dim numRecs As Integer = CType(sql_Cde.ExecuteScalar(), Integer)
 
            If numRecs > 0 Then
                userIsInRole = True
            End If
        Catch e As OleDb.OleDbException
            ' Handle exception.
        Finally
            ConnectionBase.Close()
        End Try
 
        Return userIsInRole
 
    End Function

cordialement