Переход с ADO на FireDAC: тонкости использования дикаприков

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

При работе с базами данных в среде Delphi и Pascal часто возникает необходимость использования различных компонентов для доступа к данным. Одним из таких компонентов является ADO, который на протяжении многих лет был популярным выбором среди разработчиков. Однако с появлением FireDAC, который предлагает более высокую производительность и новые возможности, многие специалисты сталкиваются с необходимостью перехода на новый компонент.

Проблема

Вопрос пользователя заключается в том, что код, который прекрасно работал с ADO, не функционирует в условиях использования FireDAC. Пример кода, представленный пользователем, демонстрирует использование фильтров для запросов на основе введенных данных.

DataModule1.TBABonne.Filter := '';
if (scGPEdit2.Text) = '' then
  exit;
try
  ref_Abonne := QuotedStr(scGPEdit2.Text + '*');
  if (scGPEdit2.Text <> '') then
    DataModule1.TBABonne.Filter := Format('(ref_Abonne LIKE %s)', [ref_Abonne])
  else
    DataModule1.TBABonne.Filtered := Trim(scGPEdit2.Text) <> '';
except
  on E: Exception do
    Abort;
end;

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

В FireDAC дикаприки (wildcards) используются для поиска частичных совпадений, но их синтаксис отличается от ADO. В FireDAC для обозначения одного символа используется подчеркивание _, а для обозначения нескольких символов — процент %. Это ключевое отличие необходимо учесть при переходе с ADO на FireDAC.

Подтвержденный ответ

Как указано в документации FireDAC, для использования дикаприков в фильтрах следует применять оператор LIKE и соответствующие символы для обозначения количества символов. Например, для получения всех записей, начинающихся на 'F', следует использовать условие:

Country LIKE 'F%'

Таким образом, в вашем коде необходимо заменить строку:

ref_Abonne := QuotedStr(scGPEdit2.Text + '*');

на использование процента % как дикаприка для обозначения нескольких символов:

if (scGPEdit2.Text <> '') then
  DataModule1.TBABonne.Filter := Format('(ref_Abonne LIKE %s)', [QuotedStr(scGPEdit2.Text) + '%'])

Альтернативный ответ и примеры

Для лучшего понимания использования дикаприков в FireDAC можно рассмотреть следующий пример, который демонстрирует применение дикаприка % в фильтре:

procedure TForm1.UpdateFilter;
var
  FilterExpr : String;
begin
  FilterExpr := edFilter.Text;
  if FilterExpr <> '' then
    FilterExpr := 'LastName Like ' + QuotedStr(FilterExpr + '%');
  FDMemTable1.Filter := FilterExpr;
  FDMemTable1.Filtered := FDMemTable1.Filter <> '';
end;

В этом примере введенный текст в компоненте edFilter используется для фильтрации записей по столбцу LastName, где LIKE и процент % позволяют получить записи, начинающиеся на введенную строку.

Заключение

Переход с ADO на FireDAC может потребовать некоторых корректировок в коде, особенно в части использования дикаприков. Важно помнить, что в FireDAC дикаприки представлены символами _ и %, и применить соответствующие изменения в фильтрах запросов.

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

Переход с использования ADO на FireDAC в среде Delphi и Pascal включает понимание отличий в использовании дикаприков для фильтрации данных.

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

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

:: Главная :: ADO ::