Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.063 Beiträge
 
Delphi 10 Seattle Enterprise
 
#1

AnyDAC zur Laufzeit WHERE Bedingungen hinzufügen.

  Alt 15. Mai 2012, 21:01
Datenbank: Firebird • Version: 2.5 • Zugriff über: AnyDAC
Hallo Zusammen,

ich vergleiche gerade meine Erfahrungen mit IBO und versuche äquivalente Technologien zu finden zu AnyDAC.
In IBO gibt es eine StringList SQLWhereItems die zur Laufzeit gefüllt werden kann mit WHERE Bedingungen.
Ist so etwas auch mit AnyDAC machbar?
Ich der Doku habe ich verschiedene Ansätze gefunden wie Filter und Macros dessen Ansatz habe ich noch nicht durchleuchtet.



Delphi-Quellcode:
procedure TfrAdressenSuch.dsSuchAdressenPrepareSQL(
  Sender: TIB_StatementLink; Statement: TIB_Statement);
var
  AkquiseStr:String;
  temp:String;
begin
  with AdressRecord, dsSuchAdressen.Dataset.SQLWhereItems do
  begin
    if rAdressNr<>''
    then Add('A.ADRESSNR = '''+rAdressNr+'''');

    if rFirma<>''
    then Add('A.FIRMA CONTAINING '''+rFirma+'''');

    if rPlz<>''
    then Add('A.PLZ STARTING WITH '''+rPlz+'''');
  end;{with}
end;
Gruß Kostas
  Mit Zitat antworten Zitat