Dudas con filtros en interbase

[dec]

Hola,

No me hagas mucho caso, pero, prueba con algo como "A%".

Echa un vistazo a este apartado de cierto Manual de SQL publicado en FireBird en español a ver si puede ayudarte algo más.

[iuqrul]

El componente TIBQuery, no hace caso a la propiedad Filter, pero sí a filtered, pero usando el evento OnFilterRecord, de esta manera:

procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
/*Condiciono Accept al valor de la primera letra del campo*/
Accept := DataSet.FieldByName('descripcion').AsString[1] = 'A';
end;

Salu2.

[Luis Castillo]

Empezado por iuqrul

El componente TIBQuery, no hace caso a la propiedad Filter, pero sí a filtered, pero usando el evento OnFilterRecord, de esta manera:

procedure TForm1.IBQuery1FilterRecord(DataSet: TDataSet;
var Accept: Boolean);
begin
/*Condiciono Accept al valor de la primera letra del campo*/
Accept := DataSet.FieldByName('descripcion').AsString[1] = 'A';
end;

Salu2.

Lo que quieres decir es que no puedo usar la propiedad Filter en el TIBQuery?. Ahi si estoy fregrado....iba a ser la misma pregunta y encontre esto. No hay manera? porque el evento Onfilterrecord no me sirve.

[[maeyanes]]

Así es, no se puede usar la propiedad Filter del componente TIBQuery.

Lo que puedes hacer (y es lo que yo hago), es modificar la propiedad SQL del mismo TIBQuery cuando quiero filtrar datos.

Código Delphi [-]
procedure TForm1.btnFiltrarClick(Sender: TObject);
begin
  IBQuery1.Close;
  IBQuery1.SQL.Text := 'select * from Tabla where Descripcion like ' +
    QuotedStr('A%');
  IBQuery1.Open
end;

Saludos...