Discussion :

[botbot]

Bonjour à tous,

J'essaye de mettre à jour le champ password de ma table Users en fonction du userid...

Voici mon code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
      Dim chemin As String = Application.StartupPath & "\Config\myDB.mdb"
        Dim conn As New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=" & chemin)
        Dim qry As New OleDbCommand("update Users set password='" & TextBox3.Text & "' where userid=" & LoginForm1.user, conn)
 
        Try
            conn.Open()
            qry.ExecuteNonQuery()
            conn.Close()
            MsgBox("Record Updated")
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

Message d'erreur : " Erreur de syntaxe dans l’instruction UPDATE" ??

Un pro du SQL pourrait-il m'éclairer ??

Merci !

[infosam76]

Je pencherais pour deux problèmes possibles :

- Users qui pourraient être un mot clé du SGBD (je pense pas dans ce cas vu que cela ressemble à une connexion access).
- Le password contiendrait le caractère '

Dans tout les cas préférer l'utilisation des requêtes paramétrées qui permettent d'éviter pas mal d'erreurs de syntaxe (entre autre)

[botbot]

Bonjour infosam76, merci pour ta réponse.

- Oui c'est bien une connexion access
- Je n'ai pas de caractère ' dans mon mot de passe, juste des chiffres...

Je regarde en parallèle pour les requêtes paramétrées, que je ne connais pas du tout.

Merci

[_Ez3kiel]

Code :

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

userid=" & LoginForm1.user

User est une property de LoginForm1 de type integer ? Si non n'oublie pas les apostrophes. userid='" & LoginForm1.user & "'" (Mais tu n'aurais pas eu ce souci avec une requête paramétrée.

Au niveau de ta BDD c'est une clé primaire unique ?

N'hésite pas à faire une msgbox de qry.CommandText pour voir la requête "formée" avec les valeurs avant l'ajout.

[botbot]

Bonjour à tous, j'ai le même problème avec une requête paramétrée, voici mon code, la requête, et le message d'erreur :

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
 
 Using cn As New OleDbConnection("PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source =C:\myDB.mdb"), _
         cmd As New OleDbCommand("UPDATE [Users] SET password= ? WHERE userid= ? ;", cn)
 
            ''# Note: I normally don't use AddWithValue(), but I don't know your data types
            cmd.Parameters.AddWithValue("?", TextBox3.Text)
            cmd.Parameters.AddWithValue("?", TextBox1.Text)
 
            Try
                cn.Open()
                cmd.ExecuteNonQuery()
 
                MsgBox("done")
            Catch ex As Exception
                MsgBox(cmd.CommandText)
                MsgBox(ex.ToString)
            End Try
        End Using

Requête :



Erreur :



Je remarque qu'il ne modifie pas les paramètres "?" ??

[botbot]

Code :

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

userid=" & LoginForm1.user

User est une property de LoginForm1 de type integer ? Si non n'oublie pas les apostrophes. userid='" & LoginForm1.user & "'" (Mais tu n'aurais pas eu ce souci avec une requête paramétrée.

Au niveau de ta BDD c'est une clé primaire unique ?

N'hésite pas à faire une msgbox de qry.CommandText pour voir la requête "formée" avec les valeurs avant l'ajout.

Oui je n'ai qu'une clé primaire, le champ "userid"

[_Ez3kiel]

La structure de ta requête paramétrée est étrange ... (Voir pas conventionnel/fonctionnel ) Voir F.A.Q.

J'ai mis le symbole @ comme préfixe du paramètre mais je ne connais pas celui d'Access ... (Je crois que @ est pour SqlServ et : pour Oracle mais pas sûr ..)

Si l'Id est Integer, tu devrais remanier le code en conséquence, j'ai fais comme si c'était un String. (Voir commentaires)

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
        Try
 
            Dim cn As New OleDbConnection("PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source =C:\myDB.mdb")
            Dim req As String = "UPDATE [Users] SET password= @pwd WHERE userid= @id ;"
            Dim cmd As New OleDbCommand(req, cn)
            Dim nbLigneAffecte As Integer
 
            Using cn
                Using cmd
 
                    With cmd.Parameters
                        .Add(New OleDbParameter("@pwd", OleDbType.BSTR))
                        .Add(New OleDbParameter("@id", OleDbType.BSTR)) '<------- A commenter si l'id est un int
 
                        ' .Add(New OleDbParameter("@id", OleDbType.Integer)) '<----- A décommenter si l'id est un int
                    End With
 
 
                    With cmd
                        .Parameters("@pwd").Value = TextBox3.text
                        .Parameters("@id").Value = TextBox1.Text
                    End With
 
                    cn.Open()
                    nbLigneAffecte = cmd.ExecuteNonQuery()
 
                    If nbLigneAffecte >= 1 Then
                        MsgBox("done")
                    Else
                        MsgBox("not done")
                    End If
 
                End Using
            End Using
 
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

[botbot]

Merci _Ez3kiel,

L'userid et le password sont bien des strings.

Par contre, j'ai toujours le même message d'erreur, je suis maudis

[_Ez3kiel]

Tu as régénéré la solution ?

A tester si la table [Users] nécessite l'encadrement en crochet ou pas ?
Msgbox de TextBox3.Text et TextBox1.Text avant l'assignation aux paramètres ?
Tente la requête "à la main" dans Acess ?

[botbot]

-> J'ai bien (re)généré la solution, en cliquant sur le bouton "play" de Visual Studio, si tu parles bien de cela...

-> J'ai essayé sans crochets pour la table Users pour tester, pareil.

-> Msgbox textbox 1 et 3 ok, avant l'assignation des paramètres

Voici un msgbox de la requête :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
       With cmd.Parameters
                        .Add(New OleDbParameter("@pwd", OleDbType.BSTR))
                        .Add(New OleDbParameter("@id", OleDbType.BSTR)) '<------- A commenter si l'id est un int
 
                        ' .Add(New OleDbParameter("@id", OleDbType.Integer)) '<----- A décommenter si l'id est un int
                    End With
 
 
                    With cmd
                        .Parameters("@pwd").Value = TextBox3.Text
                        .Parameters("@id").Value = TextBox1.Text
                    End With
                    MsgBox(cmd.CommandText)

Étonnant qu'il n'attribue pas les valeurs précédemment données non ?

Il me reste à tenter la requête dans access...

[infosam76]

Étonnant qu'il n'attribue pas les valeurs précédemment données non ?

Je pense que c'est normal je vérifierais quand j'aurais un peu plus de temps.
Par contre je continue à m'interroger pour voir si le problème ne viendrais pas du nom de ta table. Peut-être la renommer le temps d'un test ?

[rv26t]

Bonjour,

il faut placer password entre crochet

Code :

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

1
2
Using cn As New OleDbConnection("PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source =C:\myDB.mdb"), _
        cmd As New OleDbCommand("UPDATE [Users] SET [password]= ? WHERE userid= ? ;", cn)

Pour access c'est bien les "?".

[botbot]

Merci rv26t !! ca marche impeccable avec ce 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
 
Using cn As New OleDbConnection("PROVIDER=Microsoft.JET.OLEDB.4.0;Data Source =C:\myDB.mdb"), _
           cmd As New OleDbCommand("UPDATE [Users] SET [password]= ? WHERE userid= ? ;", cn)
 
            ''# Note: I normally don't use AddWithValue(), but I don't know your data types
            cmd.Parameters.AddWithValue("?", TextBox3.Text)
            cmd.Parameters.AddWithValue("?", TextBox1.Text)
 
            Try
                cn.Open()
                cmd.ExecuteNonQuery()
 
                MsgBox("done")
            Catch ex As Exception
                MsgBox(cmd.CommandText)
                MsgBox(ex.ToString)
            End Try
        End Using

Merci à tous pour votre précieuse aide...