Mega Code Archive

 

Categories / Delphi / ADO Database

 

Ado-filter-like kullanımı

if Edit2.Text <> '' then begin Adodst.Filtered := False; // Adodst.Filter := CBAlan.Text + ' like ''' + Edit2.Text + '%'''; Adodst.Filter := CBAlan.Text + ' like '+QuotedStr(Edit2.Text + '%'); Adodst.Filtered := True; //QuotedStr('%'+Edit2.Text + '%'); end else begin if Adodst.Filtered then Adodst.Filtered := False; end;