Генератор SQL-запросов Insert, Update . Delphi , Базы данных , SQL

Вам ещё не надоело динамически генерировать SQL запросы insert и update ? Давайте посмотрим, как можно раз и навсегда упростить этот процесс.

Допустим Вы создавали запрос следующим образом (типы параметров Data1:string Data2: integer Data3:TdateTime)

неправда ли она более проста в использовании ?

Здесь представлены функции SqlInsert и SqlUpdate. Вы наверное заметили, что я передаю TDateTime приведённый как Variant. Причина кроется в том, что VType в array of const не имеете TDateTime типа и даты просто представлены как vtExtended.

Функция SqlInsert имеет 2 переопределённых вызова, которые позволяют Вам включить или выполнить массив имён колонок.

Это пример программирования Delphi, демонстрирующий, как генерировать динамические запросы SQL для вставки и обновления данных с помощью функций SqlInsert и SqlUpdate.

Основная идея этих функций - упростить процесс создания динамических запросов SQL. Функции принимают массив значений, имя таблицы и необязательные имена столбцов для запроса обновления в параметрах.

Функция SqlInsert генерирует запрос INSERT INTO, перебирая массив значений, форматируя каждое значение по его типу (целочисленное, строка, дата/время) и конкатенируя их в единый SQL-строковый запрос. Если количество значений не соответствует количеству имен столбцов, предоставленных пользователем, функция отображает сообщение об ошибке.

Функция SqlUpdate генерирует запрос UPDATE, перебирая массив значений и массив имен столбцов, форматируя каждое значение по его типу и конкатенируя их в единый SQL-строковый запрос. В запросе также включается клаузула WHERE. Если количество значений не соответствует количеству имен столбцов, предоставленных пользователем, функция отображает сообщение об ошибке.

Вот некоторые улучшения, которые можно сделать:

Вот пример рефакторирования функции SqlInsert с использованием более современного и безопасного подхода:

function SqlInsert(Values: TArray<TValue>; TableName: string; ColNames: TArray<string>): string;
var
  RetVar: TStringBuilder;
begin
  RetVar := TStringBuilder.Create;
  try
    RetVar.Append('insert into ').Append(TableName).AppendLine;
    RetVar.Append('(');
    for var i := 0 to High(ColNames) do
    begin
      RetVar.Append(ColNames[i]);
      if i < High(ColNames) then
        RetVar.Append(', ');
    end;
    RetVar.AppendLine(')');
    RetVar.AppendLine('values (');
    for var i := 0 to High(Values) do
    begin
      case Values[i].VType of
        vtInteger, vtInt64: 
          RetVar.Append(IntToStr(TValue(Values[i]).AsInteger));
        vtChar: 
          RetVar.Append(QuotedStr(TValue(Values[i]).AsString));
        vtString: 
          RetVar.Append(QuotedStr(TValue(Values[i]).AsString));
        vtPChar: 
          RetVar.Append(QuotedStr(TValue(Values[i]).AsString));
        vtExtended: 
          RetVar.Append(FloatToStr(TValue(Values[i]).AsExtended));
        vtAnsiString: 
          RetVar.Append(QuotedStr(string(TValue(Values[i]).AsAnsiString)));
        vtVariant: 
          if TValue(Values[i]).VType = tvariantdatetime then
            RetVar.Append('to_date(').Append(FormatDateTime('dd/mm/yyyy', TValue(Values[i]).AsDateTime)).Append(',').Append(QuotedStr('dd/mm/yyyy')).Append(')')
          else
            RetVar.Append(QuotedStr(TValue(Values[i]).AsString));
        else 
          RetVar.Append('??????');
      end;
      if i < High(Values) then
        RetVar.AppendLine(', ');
    end;
    RetVar.AppendLine(')');
    Result := RetVar.ToString;
  finally
    RetVar.Free;
  end;
end;

В этом рефакторированном функции используется TStringBuilder для создания SQL-запроса, что обеспечивает лучшую производительность и управление памятью по сравнению с конкатенацией строк с помощью оператора +. Функция также использует сильные типы переменных (например, TValue, TString) где это возможно, что может помочь предотвратить ошибки типа при выполнении.

Генератор SQL-запросов Insert, Update позволяет упростить процесс создания динамических запросов к базе данных.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш

Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS