Оптимизация конкатенации строк F #

Question

Я строю запрос MySql, который пакет вставляет 4096 записей одновременно. Фактическая вставка довольно быстрая, но узкое место генерирует запрос. Любые подсказки по оптимизации этого? Генерация строк в настоящее время занимает примерно 18 раз дольше, чем запрос.

    let builder = StringBuilder(524288) 
        Printf.bprintf builder 
         " 
         INSERT INTO %s 
          (`ID`, 
           `Tag`, 
           `Port`, 
           `Excess`, 
           `Return`, 
           `StartDate`, 
           `EndDate` 
          ) 
          values " 
         x.evaluationstable 

        evaluations 
        |> Seq.iter(fun (e) -> 
         Printf.bprintf builder 
          " (%d, '%s', '%s', %A, %A, %A, %A), " 
          e.ID 
          e.Tag 
          e.Port 
          e.Excess 
          e.Return 
          (e.StartDate.ToString(x.datetimeformat)) 
          (e.EndDate.ToString(x.datetimeformat)) 
        ) 

Answer 1

Попробуйте использовать StringBuilder.AppendFormat вместо Printf.bprintf. Когда я сделал это изменение в моем примере вашего вопроса, я увидел огромное увеличение производительности (~ 80x).

evaluations 
|> Seq.iter (fun (e) -> 
    builder.AppendFormat(
     " ({0}, '{1}', '{2}', {3}, {4}, {5}, {6}), ", 
     e.ID, 
     e.Tag, 
     e.Port, 
     e.Excess, 
     e.Return, 
     (e.StartDate.ToString("MM/dd/yyyy")), 
     (e.EndDate.ToString("MM/dd/yyyy")) 
    ) |> ignore 
) 

Answer 2

Я попытался бы избежать встраивания данных непосредственно в SQL для начала. Используйте последовательность подготовленных операторов с параметрами и задайте эти параметры для значений (без их форматирования). Это безопаснее и, вероятно, будет намного более эффективным.

Если вы все еще можете сделать это в пакете, а не в нескольких отдельных вызовах только в рамках одной транзакции, я не уверен.