TIBDataSet and Filter

[Lemmy]

Zitat von Ralf Stehle:

Der Tipp von Lemmy hat nach einer kleinen Korrektur jetzt tatsächlich funktioniert:

IBDataSet.SelectSQL.Text := 'SELECT * FROM Udat WHERE UPPER(Patient) like UPPER('#39 + Edit2.text + '%' + #39')';

Sorry, mein Fehler...

Zitat von Ralf Stehle:

Mit Like habe ich zuerst keinen Datensatz zurückbekommen:

Delphi-Quellcode:

Select * from UDAT Where Patient like
 'Pollmanns'

Versuch mal

Delphi-Quellcode:

Select * from UDAT Where Patient like
 'Pollmanns%'

Zitat von Ralf Stehle:

Aber wieso IBDataSet.Filter:= nicht möglich ist, bleibt mir schleierhaft. Haben die Entwickler diese Methode einfach weggelassen? Warum gibt es dann die Anweisung IBDataSet.Filtered ....
Aber ist ja auch egal, mit der Select-Anweisung ist ja alles wieder im Lot

Wenn schon dann DER Entwickler, Jeff Overcash. Der hat die Eigenschaft sicherlich nicht "Vergessen" sondern mit Absicht nicht reingemacht (kann ich aber nur vermuten), denn eine richtige SQL-Anweisugn ist besser als irgend eine Eigenschaft, die letzenendes eh nur eine SQL zusammenbastelt.

Lemmy

[St.Gro]

Huhu,

ich wollte das Thema jetzt nicht mehr groß ausbuddeln, aber die eigentliche Frage ist ja nun ungeklärt geblieben.

"Filtered" existiert und "Filter" ist natürlich nicht vergessen worden (das würde ja bedeuten, dass sich seit Jahren weltweit im Einsatz befindliche Komponenten einen gravierenden Fehler hätten).

Die filtered-Eigenschaft wird auf true gesetzt. Ist das geschehen, wird alles im OnFilterRecord Event entschieden:

Delphi-Quellcode:

procedure DataSetFilterRecord(DataSet: TDataSet; var Accept: Boolean);

begin
  Accept := DataSet['AmountOfPurchase'] > 20;

end;