Передача параметров в запрос с использованием TSQLQuery в Delphi

Delphi , Базы данных , Interbase

Вопрос передачи параметров в запросы является ключевым моментом при работе с базами данных в среде разработки Delphi. Особенно это актуально для компонента TSQLQuery, который используется в пакете dbExpress. В данной статье мы рассмотрим, как правильно передать параметр в запрос, используя TSQLQuery на примере базы данных Firebird, что особенно важно для разработчиков, использующих Delphi XE2.

Проблема при передаче параметров

Разработчик столкнулся с проблемой, когда пытался использовать синтаксис, аналогичный TADOQuery, для передачи параметра в запрос через TSQLQuery. В TADOQuery передача параметра осуществляется с помощью символа :, как показано в примере:

SELECT *
FROM sometable
WHERE sometable.id = :value;

Однако, при попытке использовать аналогичный синтаксис в TSQLQuery, разработчик получил ошибку:

dbExpress driver does not support the TDBXTypes.UNKNOWN data type. Vendor Error Message.

Это указывает на то, что синтаксис с использованием символа : не поддерживается в TSQLQuery и требует другого подхода.

Решение проблемы

Для передачи параметров в TSQLQuery необходимо использовать свойство Params. Это позволяет установить значения параметров, используя индексы или имена параметров. Значения параметров устанавливаются с помощью соответствующих свойств, таких как AsString, AsInteger и других, в зависимости от типа поля.

Пример кода на Object Pascal (Delphi), демонстрирующий передачу параметра:

var
  LSQLQuery: TSQLQuery;
begin
  LSQLQuery := TSQLQuery.Create(nil);
  try
    LSQLQuery.SQLConnection := SQLConnection1;
    LSQLQuery.CommandText := 'Select FIRST_NAME from EMPLOYEE Where EMP_NO=:Param1';
    LSQLQuery.Params.ParamByName('Param1').AsInteger := 2; // или используя индекс параметра LSQLQuery.Params[0].AsInteger := 2;
    LSQLQuery.Open; // Выполнение запроса
    ShowMessage(LSQLQuery.FieldByName('FIRST_NAME').AsString); // Получение данных
    LSQLQuery.Close;
  finally
    LSQLQuery.Free;
  end;
end;

Заключение

При работе с TSQLQuery в Delphi важно понимать, что синтаксис для передачи параметров отличается от TADOQuery. Использование свойства Params и установка значений параметров через соответствующие свойства AsString, AsInteger и другие позволяет корректно передать параметр в запрос, что является ключевым для безопасной и эффективной работы с базами данных в среде Delphi.

Создано по материалам из источника по ссылке.

Вопрос касается правильной передачи параметров в запросы при использовании компонента TSQLQuery в среде разработки Delphi для работы с базой данных Firebird.

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

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Interbase ::