Problème connexion base Access et vb.net

Version imprimable

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:

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

21/11/2013, 12h01
abd75web

bonjour

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

Code:

WHERE login Like ' " & lg & " ' "

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

A+
21/11/2013, 12h08
prologic
Citation:

Envoyé par foufou.mr

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:

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.

++

Bonjour,

@prologic
Citation:
Envoyé par prologic
J'utilise While :
Code:

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:

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.