Geek asks and answers

Using the LIKE Statement to Filter

Im using this code to filter my table:

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

but raises this exception:

"Operation not applicable."

where is the problem?

+6
source share
6 answers

A is TTable.Filternot an SQL query. LIKEnot supported (neither IN). Supported operators: =, <>, >, <, >=, '<= ,And ,the NOT andOR`, according to the documentation

For more complex filtering, use the TDataSet.OnFilterRecord event :

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

:

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;

and it will work like Magic and no longer use TQuery .... and if you want, matching does not take into account case sensitivity. You should use this code instead:

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

I use mainly with TEdit here the code

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

I recommend using SQL Query to perform this operation.

Example:

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

More articles:


All Articles