Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.861 Beiträge
 
Delphi 11 Alexandria
 
#13

AW: Suchfunktion in einem DBGrid

  Alt 8. Sep 2015, 12:10
Zitat:
oder eher eine neue Abfrage für die Datenbank?
markieren
Delphi-Quellcode:
Delphi-Quellcode:
procedure Tform1.ButtonSuchmalwasClick(Sender: TObject);
begin
  qry.Close;
  qry.SQL.Text := Format('select * from Tabelle where name like %s',[QuotedStr(Editfeld.text]);
  qry.Open;
end;
Dann würde ich mit einer parametrisierten Abfrage arbeiten

SQL-Code:
select
  <Feldliste>
from
  Tabelle
where
  (suchbegriff = '') or (name like :suchbegriff);
Delphi-Quellcode:
  if Trim(sSuchbegriff) <> 'then begin
    qry.ParamByName('suchbegriff').Value := '%'+Trim(sSuchBegriff)+'%';
  else
    qry.ParamByName('suchbegriff').Value := '';
  qry.Refresh;
Markus Kinzler
  Mit Zitat antworten Zitat