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

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

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

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

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

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

6
delphi delphi-7

5 ответов

A 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;
8
Table.Filtered := False;
Table.Filter := Field_Search + ' LIKE ' + QuotedStr('*' + Edit_Search.Text + '*');
Table.Filtered := True;
3

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

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

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

   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;
0

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

пример:

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