Discussion :

[foufou.mr]

Bonjour,

Tout d'abord, je vous présente une description sur le but atteindre.
J'ai deux table client et User. Un User peut ajouter plusieurs client. j'ai besoin d'afficher le nom d'user qui a ajouter le client.
Comme solution, j'ai créer une variable booléenne nommé etat. Lorsque l'user est connecté la variable etat sera vrai et lorsqu'il quitte l'application la variable etat sera faux et comme 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
37
38
39
40
41
42
43
44
45
46
Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click
        Dim lg As String = Me.UsernameTextBox.Text()
        Dim psw As String = Me.PasswordTextBox.Text()
        Dim DBA As String = Environment.GetEnvironmentVariable("DB_PRESSING_ENV")
 
        '  Déclaration Objet Connexion
 
        Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data source=" & DBA & "\P13PRESSING_DB.accdb")
 
        ' Déclaration Objet Commande
 
        Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
        MyCommand.CommandText = "SELECT * FROM [User] where login ='" & lg & "';"
 
        MyConnexion.Open()
 
        Dim MyReader As OleDbDataReader = MyCommand.ExecuteReader()
 
        If MyReader.Read() Then
            If MyReader.GetString(o) = lg Then
                If MyReader.GetString(1) = psw Then
                    If MyReader.GetBoolean(5) = True Then
                        adminAccueil.Show()
                    Else
                        userAccueil.Show()
                    End If
                    ' Modification de l'état de l'utilisateur (connecté ou non)
                    Dim MyCommandmaj As OleDbCommand = MyConnexion.CreateCommand()
                    MyCommandmaj.CommandText = "UPDATE [User] Set etat = True WHERE login ='" & lg & "';"
                    Dim MyReaderMaj As OleDbDataReader = MyCommandmaj.ExecuteReader()
                    MyReaderMaj.Close()
                    Me.Hide()
                Else
                    MsgBox("Mot de passe incorrecte!", MsgBoxStyle.Information, "Invalid Input")
                End If
            Else
                MsgBox("Nom de l'utilisateur non reconnu!")
            End If
        Else
            MsgBox("Erreur! Utilisateur non reconnu!", MsgBoxStyle.Critical, "Echec Connexion")
        End If
 
        MyReader.Close()
 
        MyConnexion.Close()
    End Sub

et j'ai comme erreur " Aucune valeur donnée pour un ou plusieurs des paramètres requis."

Avez vous une autre solution ?

Merci

[sevyc64]

ligne 20, c'est pas o mais 0 (zéro)

[abd75web]

Bonjour


Pour éviter tout ce genre d'erreur de préférence utiliser le nom de la colonne

Code :

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

MyReader.Item("Nom de la Colonne")

au lieu

Code :

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

MyReader.GetString(1)

A+

[foufou.mr]

Bonjour,

l'erreur s'affiche dans cette ligne.

Code :

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

1
2
3
4
5
' Modification de l'état de l'utilisateur (connecté ou non)
                    Dim MyCommandmaj As OleDbCommand = MyConnexion.CreateCommand()
                    MyCommandmaj.CommandText = "UPDATE [User] Set etat = True WHERE login ='" & lg & "';"
                    Dim MyReaderMaj As OleDbDataReader = MyCommandmaj.ExecuteReader()
                    MyReaderMaj.Close()

[abd75web]

normalement il y a aucune erreur dans la requete

sauf que je te conseille d'utiliser les requtes parametries

Code :

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

1
2
3
4
MyCommandmaj.CommandText = "UPDATE [User] Set etat = True WHERE login =@Lg"
MyCommandmaj.Parameters.Add("@Lg",SqlDbType.NVarChar).Value=lg
Dim MyReaderMaj As OleDbDataReader = MyCommandmaj.ExecuteReader()
MyReaderMaj.Close()

A+

[sevyc64]

et on utilise pas ExecuteReader et un datareader lorsque la requete ne renvoie aucun resultat, on utilise ExecuteNonQuery

[DeWaRs]

En step by step, qu'elle est la valeur de lg ?

[foufou.mr]

En step by step, qu'elle est la valeur de lg ?

Concernant cette code

Code :

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

1
2
3
MyCommandmaj.CommandText = "UPDATE [User] Set etat = True WHERE login =@Lg"
MyCommandmaj.Parameters.Add("@Lg",OleDbType.VarChar).Value=lg
 MyCommandmaj.ExecuteNonQuery()

Merci ça marche !!!!!!!!!!!!!!!

Mais , maintenant je veux rendre etat égale False.Voici le code:

Code :

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

1
2
3
MyCommandmaj.CommandText = "UPDATE [User] Set etat = False WHERE etat =True"
 
 MyCommandmaj.ExecuteNonQuery()

Aucune erreur qui s'affiche mais la valeur ne change pas..

[foufou.mr]

Merci à vous