Discussion :

[superthx]

Bonjour,
J´essai de mettre à jour une valeur null dans mysql avec vb.
Mais je sais pas si mon code est correct ou il faut quelque chose d´autre que je connais pas.

Quand j´utilise le code suivant direct dans mysql cela passe bien

Code :

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

update Produccion set Lote_cliente = NULL where id = 193261

Par contre sous vb je vois pas pourquoi cela ne fonctionne pas.

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
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MessageBox.Show("Put id, please", "hahahaha", MessageBoxButtons.OK, MessageBoxIcon.Warning)
        Else
            Dim conn As New MySqlConnection(ConfigurationManager.ConnectionStrings("COUCOU_OVH_MARIADB").ToString)
                conn.Open()
            Try
                Dim cmd As New MySqlCommand("update Produccion set Lote_cliente = NULL where id = @id", conn)
                cmd.Parameters.AddWithValue("@id", TextBox1.Text)
 
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            Finally
                conn.Dispose()
                End Try
                MessageBox.Show("NULL VALUE ADD", "hahahaha", MessageBoxButtons.OK, MessageBoxIcon.Information)
                conn.Close()
            'End If
 
        End If
    End Sub

Rien ne se passe, sauf le messagebox a la fin....
Qu´est ce que j´ai louper? Merci

[Thumb down]

Bonjour,
Tu peux utiliser @id dans ta requête si tu veux que le Where corresponde au TextBox 1 et non à 193261!

Code :

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

1
2
Dim cmd As New MySqlCommand("update Produccion set Lote_cliente = NULL where id = @id", conn)
                cmd.Parameters.AddWithValue("@id", TextBox1.Text)

[superthx]

Oui, pardon je viens de éditer. C´était en effet le code du début, le 193261 c´était pour test.
Mais avec @id cela ne fait rien non plus.

[Thumb down]

Bonjour,

Code :

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

1
2
3
Dim cmd As New MySqlCommand("update Produccion set Lote_cliente = NULL where id = @id", conn)
cmd.Parameters.AddWithValue("@id", TextBox1.Text)
cmd.ExecuteNonQuery()