Access Datenbank Durchsuchen (mit Wildcards)

[aschne1]

Hallo Freecer

Ich verwende ebenfalls Access mit ADO. Mit folgendem Code müsste es gelingen:

Delphi-Quellcode:

 with DeineQuery do                                  // TADODataSet
 begin
  Close;
  CommandText := 'SELECT DeineTabelle.Feld1, DeineTabelle.Feld2 FROM DeineTabelle WHERE ';
  CommandText := CommandText  + 'DeineTabelle.Feld1 LIKE "%' + Edit1.Text + '%" ';            // % vor Edit1 legt Suchart fest (*Ausdruck* oder Ausdruck*)
  CommandText := CommandText  + 'AND DeineTabelle.Feld2 LIKE "%' + Edit2.Text + '%" ';
  Open;
 end;

Damit nicht nach jeder Taste die Abfrage neu berechnet wird, kannst Du einen Timer einsetzen. Im OnChange wird nur der Timer neu gestartet, beziehungsweise eingeschaltet. Im OnTimer wird die Abfrage neu geschrieben und anschliessend der Timer ausgeschaltet. Den Timer auch bei Exit vom Editfeld ausführen.
So kannst Du dir eventuell den Button sparen(Sorry Sharky). Der Button ist geschmacksache, oder ?

MFG

Armin