Запрос к MySQL через Delphi 7: поиск по нескольким ключевым словам в любом порядке

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

Вопрос, поставленный пользователем, связан с необходимостью написания запроса к базе данных MySQL с использованием Delphi 7. Задача заключается в том, чтобы запрос возвращал записи, содержащие все слова из поискового запроса, независимо от их порядка. Например, если поисковый запрос состоит из слов "John Michael Smith", запрос должен вернуть записи с такими именами, как "John Smith Michael", "Michael Smith John", "Smith John Michael" и так далее.

Пример неудачной попытки

В примере кода, предоставленного пользователем, используется простой метод поиска с использованием оператора LIKE и шаблона, где слова разделены пробелами:

procedure Tfrm_Query.Button1Click(Sender: TObject);
var
    mask : string;
begin
    mask:='''%'+StringReplace(Edit1.text,' ','%',[rfReplaceAll, rfIgnoreCase])+'%''';
    if Edit1.Text > '' then
    begin
        Adosorgulama.Close;
        Adosorgulama.SQL.Clear;
        Adosorgulama.SQL.Add('SELECT * FROM stok.product');
        Adosorgulama.SQL.Add('Where (P_Name like '+mask+')  limit 50');
        Adosorgulama.Open;
    end;
end;

Этот метод не работает корректно, так как он возвращает записи, содержащие все слова поискового запроса, но в любом порядке, включая случайные сочетания слов и несоответствующие запросу записи.

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

Для решения задачи можно использовать следующий подход: заменить пробелы на AND P_Name LIKE % в шаблоне запроса. Это позволит сформировать условие, которое будет искать записи, содержащие все слова из поискового запроса, независимо от их порядка. Пример кода:

mask:='''WHERE (P_Name LIKE %'+StringReplace(Edit1.text,' ','% AND P_Name LIKE %',[rfReplaceAll, rfIgnoreCase])+'%)''';
Adosorgulama.SQL.Add(mask + '  limit 50');

При этом, если поисковый запрос содержит лишние пробелы, их следует сначала удалить, чтобы запрос работал корректно.

Альтернативный ответ с использованием полнотекстового поиска

Для более сложных запросов можно использовать полнотекстовый поиск в MySQL. Сначала создадим таблицу с полнотекстовым индексом:

CREATE TABLE IF NOT EXISTS `TableName` (
  `ID` int(11) NOT NULL AUTO_INCREMENT,
  `PNUMBER` varchar(20) DEFAULT NULL,
  `PNAME` varchar(255) DEFAULT NULL,
  `PBARCODE` varchar(30) DEFAULT NULL,
  `PSearch` mediumtext,
  PRIMARY KEY (`ID`),
  FULLTEXT KEY `PSearch` (`PSearch`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin5 ;

Затем добавим в поле PSearch все необходимые данные из полей PNUMBER, PNAME, PBARCODE и т.д.

После этого в Delphi 7 можно использовать следующий код для выполнения поиска:

procedure TForm1.Button1Click(Sender: TObject);
var
    mask : string;
begin
    mask:='+'+StringReplace(Edit1.text,' ','* +',[rfReplaceAll, rfIgnoreCase])+'*';
    if Edit1.Text > '' then
    begin
        Query1.Close;
        Query1.SQL.Clear;
        Query1.SQL.Add('SELECT MATCH(PSearch) AGAINST("'+mask+'" IN BOOLEAN MODE), tablename.* FROM database.tablename');
        Query1.SQL.Add('WHERE MATCH(PSearch) AGAINST("'+mask+'" IN BOOLEAN MODE) limit 300;');
        Query1.Open;
    end;
end;

Этот метод позволяет использовать возможности полнотекстового поиска для более точного и гибкого поиска по нескольким ключевым словам.

Важные замечания

• Формирование SQL запросов с помощью конкатенации строк может сделать ваше приложение уязвимым для SQL-инъекций. Рекомендуется использовать подготовленные выражения для предотвращения таких атак.
• При работе с полнотекстовым поиском необходимо учитывать, что не все типы таблиц поддерживают полнотекстовые индексы, и MyISAM является одним из поддерживающих типов.

Следуя этим рекомендациям, вы сможете успешно реализовать поиск по нескольким ключевым словам в любом порядке в вашем приложении на Delphi 7, используя базу данных MySQL.

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

Пользователь обращается с вопросом о написании запроса к базе данных MySQL через Delphi 7, который должен возвращать записи, содержащие все слова из поискового запроса в любом порядке, и просит помочь с примером корректного решения, а также обсуждает мет

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

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

:: Главная :: SQL ::