Discussion :

[foufou.mr]

Bonjour,

Je suis en train de créer une application avec vb.net 2010 et access 2007. J'ai débuter à créer un écran d'authentification qui est composé de deux champs texte l'un pour login et l'autre pour mot de passe. Ma base de donnée créer par access 2007 contient une table user qui contient les champs suivant: login,password,nom,prénom,statut(0:admin,1:simple user), adresse.

Ci-dessous le 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
26
27
28
29
30
31
32
33
34
35
36
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
 
Public Class authentificationForm
 
    Private Sub connexionBouton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles connexionBouton.Click
        Dim lg As String = Me.loginTextbox.Text()
 
        '  Déclaration Objet Connexion
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=C:\Users\NHaouel\Desktop\ecureuilServices\P13PRESSING\P13PRESSING_DB.accdb")
 
        ' Déclaration Objet Commande
 
        Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
        ' MyCommand.CommandText = "SELECT [login,password] FROM [User] WHERE login = ' " + loginTextbox.Text + " ' and password = ' " + passwordTextBox.Text + " ' "
        MyCommand.CommandText = "SELECT login FROM [User] WHERE login = ' " & lg & " ' "
 
        MyConnexion.Open()
 
            Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader()
        If MyReader.Read Then
            adminAccueil.Show()
            Me.Hide()
        Else
            MsgBox("Erreur! Utilisateur non reconnu!")
        End If
 
        MyReader.Close()
 
        MyConnexion.Close()
 
    End Sub
End Class

Après l'execution: le message d'erreur s'affiche direct "Erreur! Utilisateur non reconnu!" meme si le login entré est dans la base de donnée.


Merci

[abd75web]

bonjour

je vois pas d'erreur sauf personnelement je préfère utiliser "Like"

Code :

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

WHERE login Like ' " & lg & " ' "

et de préférence utiliser des requetes avec des parametres

A+

[prologic]

Après l'execution: le message d'erreur s'affiche direct "Erreur! Utilisateur non reconnu!" meme si le login entré est dans la base de donnée.

C'est donc ton IF qui déconne.

J'utilise While :

Code :

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

1
2
3
While Datareader.Read()
      log = true
End While

Et merci d'utiliser les balises CODE pour que ce soit plus clair au niveau de la lecture.

++

[rv26t]

Bonjour,

@prologic

J'utilise While :

Code :

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

1
2
3
While Datareader.Read()
      log = true
End While

Je ne vois pas en quoi le While résoudrait le problème.
Si le test dans le if renvoie faux, le while renverra faux aussi.
L'instruction While est prévue pour effectuer une boucle, la détourner de son but afin d'effectuer un test est une mauvaise idée.
________________________

Ici, on peut simplement tester si MyReader contient une ou plusieurs lignes avec l'instruction HasRows.

Code :

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

1
2
3
4
5
6
7
8
9
    Using MyReader As OleDbDataReader = MyCommand.ExecuteReader()
        If MyReader.HasRows Then
            adminAccueil.Show()
            Me.Hide()
        Else
            MsgBox("Erreur! Utilisateur non reconnu!")
        End If
        'MyReader.Close() ' devenu inutile, le End Using effectuant la fermeture
    End Using

Remarque : comme le souligne abd75web il est préférable d'utiliser les requêtes paramétrées. Voir Tuto ou Faq.