filtered dbgrid

[cryptid]

filter db grid not work


procedure TForm1.Edit1Change(Sender: TObject);
begin
       SQLQuery1.Filtered:=False;
       SQLQuery1.Filter:='name' + 'LIKE' + QuotedStr(Edit1.Text );
        SQLQuery1.Filtered:=True;
end;   

[wp]

Without spaces around 'LIKE' the three parts in your filter text, 'name', 'LIKE', condition, will not be separate words.

[Joek]

A small example: this works for me with LIKE ...

Code: Pascal  [Select][+][-]

1. procedure TFOhlaseni.FilterKodChange(Sender: TObject);
2. var sImput:string;
3. begin
4.     sImput:=FilterKod.Text;
5.     DMOhlaseni.DSIBOhlaseni.Filtered := false;
6.     DMOhlaseni.DSIBOhlaseni.Filter := 'KOD_OHLASENI LIKE ' + QuotedStr(sImput+'%');
7.     DMOhlaseni.DSIBOhlaseni.Filtered := true;
8. end;    

[flori]

Code: Pascal  [Select][+][-]

1. SQLQuery1.Active:=false;
2. SQLQuery1.SQL.Clear;
3. SQLQuery1.SQL.Append('select * from log WHERE user LIKE '''+edit1.Text+'%''');
4. SQLQuery1.Active:=true