martes, 26 de enero de 2010

Filtrar una tabla sin una query

procedure TForm1.Button1Click(Sender: TObject);
begin

table1.Filter:='cocheid >= 15 and cocheid <=20 or cochematricula = ' + QuotedStr('0755-DXR');
table1.Filtered:=true;

end;



ojo !! si se quiere filtrar con un LIKE sería así:



//*** asi no va
clientes.Filter:='ClientesNomApellidos like ' + QuotedStr('%'+edit1.text+'%');

//*** asi SI (ojo en Paradox solo funciona para los campos en que les pasemos como comienzan, no va ni con terminan, ni contienen)
clientes.Filter:='ClientesNomApellidos= '+QuotedStr(Edit1.text+'*');
clientes.Filtered:=true;

No hay comentarios: