SQL Like Abfrage aufbauen ?

[Leuselator]

so etwa?

Delphi-Quellcode:

  tmpQry := TQuery.create(nil);

  tmpQry.SQL.Add('SELECT MiaID                         ');
  tmpQry.SQL.Add('     , Name                          ');
  tmpQry.SQL.Add('     , Vorname                       ');
  tmpQry.SQL.Add('     , Plz                           ');
  tmpQry.SQL.Add('     , Ort                           ');
  tmpQry.SQL.Add('  FROM DM_ADMIN.Mitarbeiter          ');
  tmpQry.SQL.Add(' WHERE Name        LIKE :PName       ');
  tmpQry.SQL.Add('   AND Vorname     LIKE :PVorname    ');
  tmpQry.SQL.Add('   AND Strasse     LIKE :PStrasse    ');
  tmpQry.SQL.Add('   AND Bezeichnung LIKE :PBezeichnung');

  tmpQry.parambyname('PName       ').asString := inp_name           .text+'%';
  tmpQry.parambyname('PVorname    ').asString := inp_vorname        .text+'%';
  tmpQry.parambyname('PStrasse    ').asString := inp_strasse        .text+'%';
  tmpQry.parambyname('PBezeichnung').asString := cmb_landMitarbeiter.text+'%';
  ...

Gruß