Использование оператора LIKE для фильтрации

Question

Я использую этот код для фильтрации моей таблицы:

Table.Filtered := False;
Table.Filter := '[' + Field_Search + '] LIKE ''%' + Edit_Search.Text + '%''';
Table.Filtered := True;

но возникает это исключение:

"Операция не применима".

где проблема?

Answer 1

TTable.Filter не SQL-запрос LIKE не поддерживается IN). Поддерживаемые операторы =, <>, >, <, >=, '<= ,А ТАКЖЕ,НЕandИЛИ`, согласно документации

Для более сложной фильтрации используйте событие TDataSet.OnFilterRecord:

procedure TForm1.Table1FilterRecord(Dataset: TDataset; var Accept: Boolean);
begin
  // Don't remember if D7 supports DataSet[FieldName] syntax; if not,
  // use DataSet.FieldByName instead, or a persistent field.
  Accept := Pos(Edit_Search.Text, DataSet[SearchField].AsString) > 0;
end;

Answer 2

Table.Filtered := False;
Table.Filter := Field_Search + ' LIKE ' + QuotedStr('*' + Edit_Search.Text + '*');
Table.Filtered := True;

Answer 3

Вы должны использовать это:

   DataModule.Table.Filtered := False;
   DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
   DataModule.Table.Filtered := True;

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

   DataModule.Table.Filtered := False;
   DataModule.Table.FilterOptions := [foCaseInsensitive];
   DataModule.Table.Filter := 'Field_Name' + ' LIKE ' + QuotedStr(Edt_SearchByCode.Text +'%');
   DataModule.Table.Filtered := True;

Answer 4

Я нашел эту тему в поисках чего-то другого. Я всегда использую событие TDataSet.OnFilterRecord, и в большинстве случаев я использую событие TEdit.OnChange, чтобы поиск был «активным»;

      var
Criteria : string;
...
...

procedure TForm1.Edit1Change(Sender: TObject);
begin
  Table.Filtered := False;
  Criteria := Edit1.text;
  Table.Filtered := True;
end;

и с событием OnFilter

      procedure TForm1.TableFilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
begin
  Accept := AnsiContainsStr(Table.Fields[xx].asString,Criteria);
end;

Работает на меня.

Answer 5

Следующий код также будет работать как Like:

if Edit1.Text <>'' then
begin
Query1.Filter :='FieldName ='+quotedstr('*'+ edit1.Text +'*');
Query1.Filtered:=true;
end
else
begin query1.Filtered :=false; end;

Answer 6

Я использую в основном TEdit, вот код

if (EditSerarch.Text <> '') then
begin
FDQQuery.Filtered := false;
FDQQuery.Filter:=   'Name LIKE'+ QuotedStr('%'+EditSerarch.Text+'%') +
            ' OR Company LIKE '+ QuotedStr('%'+EditSerarch.Text+'%') +
              ' OR Phone LIKE '+ QuotedStr('%'+EditSerarch.Text+'%') +
             ' OR Mobile LIKE '+ QuotedStr('%'+EditSerarch.Text+'%');
FDQQuery.Filtered:= True;
end else FDQQuery.Filtered := false;

Answer 7

Я рекомендую использовать SQL-запрос для выполнения этой операции.

Пример:

query1.SQL.Text:='Select * FROM table_name WHERE field like '+ QuotedStr(edit1.text+'%');
query1.Active:=true;