Discussion :

[discogarden]

bonjour,

voici un bout de 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
 
Try
                    Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=" & "C:\Pointage\pointage.mdb")
                    Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
                    MyConnexion.Open()
                    Mycommand.CommandText = "UPDATE [Actions] SET [nom_Action] = @nom1 WHERE [ID_Action] = (SELECT [ID_Action] FROM [Actions] WHERE [nom_Action] = @nom2)"
                    Dim nom1 As New System.Data.OleDb.OleDbParameter("@nom1", System.Data.OleDb.OleDbType.Char, 0, "@nom1")
                    Dim nom2 As New System.Data.OleDb.OleDbParameter("@nom2", System.Data.OleDb.OleDbType.Char, 0, "@nom2")
                    nom1.Value = TextBox2.Text.ToString
                    Mycommand.Parameters.Add(nom1)
                    nom2.Value = ListBox1.SelectedItem.Text.ToString
                    Mycommand.Parameters.Add(nom2)
                    MsgBox(Mycommand.CommandText)
                    Mycommand.ExecuteNonQuery()
                    MyConnexion.Close()
                    mise_a_jour_liste()
                    TextBox2.Text = ""
                Catch ex As Exception
                    MsgBox("Une exception s'est declenche, veuillez contacter le service informatique")
                End Try

Aucune erreur ne se déclenche , mais rien ne se passe ?

[tomlev]

Tu te compliquerais pas un peu la vie ?
Tu peux simplifier la requête comme ça :

Code SQL :

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

UPDATE [Actions] SET [nom_Action] = @nom1 WHERE [nom_Action] = @nom2

Ensuite, pas la peine d'appeler ToString sur la propriété Text, elle est déjà de type String

Pour voir ce qui ne va pas, essaie déjà de voir le nombre de lignes mises à jour :

Code :

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

Dim nb as Integer = Mycommand.ExecuteNonQuery()

Si c'est 0, c'est la requête qui pose problème...