Datenbank-Suche mit Locate

[matt11]

Ich suche eine einfache Funktion zum Durchsuchen einer Datenbank nach beliebigen Teilstrings. Mit Locate

Delphi-Quellcode:

Table1.Locate('name', 'hans', [loPartialKey]);

klappt das schon ganz gut, solange das Suchkriterium am Anfang des Datenfeldes zu finden ist.
Wie kann ich aber nun eine Übereinstimmung in der Mitte oder am Ende eines Wortes finden? Ich meine, wenn im Datenfeld z.B. 'Hans-Jürgen' steht und ich nun nicht nach 'hans' sondern nach 'jürgen' suchen möchte.

[MrSpock]

Hallo matt11,

das geht am besten über ein SQL Statement, bei dem zu den LIKE Operator nutzt. Suche einmal nach LIKE im Forum. Der Einsatz wurde schon oft besprochen.

[matt11]

Danke MrSpock,

ich hatte schon fast erwartet, dass ihr mir eine SQL-Abfrage empfehlen werdet. Scheint wohl doch die einzig brauchbare Methode zu sein. Ich dachte nur, dass ich in diesem Fall mit Delphi-Befehlen auskomme, aber dem ist wohl nicht so.

[MrSpock]

Hallo matt11,

naja, du könntest natürlich auch in einer Schleife durch die Datenmenge laufen und dann den Inhalt des Feldes mit Pos() analysieren.

[matt11]

Hallo MrSpock,

so hab' ich's letztlich auch gemacht. Bei der Menge der zu erwartenden Daten funktioniert das praktisch auch ganz gut. Ich dachte eben nur, wenn ich schon eine indizierte Datenbank habe, müsste ich auch eine seriöse Suchfunktion benutzen, aber so geht's auch.

Matt

[Texas]

hallo matt11

bei einem TTable kanst Du auch einen Filter setzen

Delphi-Quellcode:

procedure TForm1.SuchenBitBtnClick(Sender: TObject);
var s : string;
begin
s := '';
s := 'Name like' + '''' + '%ller%' + '''' + ' or Strasse < ' + '''' + 'Neuestr' + '''' ;
(gibt mir alle Namen wie Müller, Miller, Schiller etc und alle Strassen die kleiner als Neuestr)
Table1.filter := s;
Table1.filtered := true;
end;

wenn nicht mehr benötigt

Delphi-Quellcode:

Table1.filtered := false;

Gruß Texas

[joachimd]

Zitat:

Zitat von Texas

bei einem TTable kanst Du auch einen Filter setzen

Delphi-Quellcode:

procedure TForm1.SuchenBitBtnClick(Sender: TObject);
var s : string;
begin
s := '';
s := 'Name like' + '''' + '%ller%' + '''' + ' or Strasse < ' + '''' + 'Neuestr' + '''' ;
(gibt mir alle Namen wie Müller, Miller, Schiller etc und alle Strassen die kleiner als Neuestr)
Table1.filter := s;
Table1.filtered := true;
end;

Aber Achtung: Like wird m.W. bei keiner DB im Filter unterstützt. Die zugehörige XBase-Style Expression ist $:

Delphi-Quellcode:

 s:= '"ller" $ Name';

[RavenIV]

Zitat:

Zitat von Texas

hallo matt11

bei einem TTable kanst Du auch einen Filter setzen

wobei man wo es geht auf TTable verzichten sollte.
Lieber ein TQuery mit "SELECT ab FROM xy WHERE field LIKE %text%" verwenden.

gruessle