1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| conn = New MySqlConnection(chaine)
conn.Open()
cmd = New MySqlCommand
cmd.Connection = conn
cmd.CommandType = CommandType.Text
Dim reqsql As String
reqsql = "UPDATE pieces SET Quantite = @Quantite WHERE idPieces = @idPieces"
cmd.CommandText = reqsql
With cmd
.Parameters.Add(New MySqlParameter("@Quantite", MySqlDbType.Int24))
.Parameters.Add(New MySqlParameter("@idPieces", MySqlDbType.Int24))
End With
With cmd
.Parameters("@Quantite").Value = quantite
.Parameters("@idPieces").Value = idpiece
End With |
Partager