SQL - Volltextsuche

[Snyderburn]

Hi Leute!

Ich möchte gerne eine Volltextsuche über meine Datenbank machen! Kann mir jemand einen Rat geben, wie man das am schnellsten macht???

mfg
Snyderburn

[SirThornberry]

'select * from meineTabelle where feld1 like "' + suchwort1 + '"' and feld2 like like "' + suchwort1 + '"'

Deine Aufgabe ist da nur noch die suchwörter die in einem String vermutlich kommen auseinander zu basteln und dem entsprechend alles hinter dem where dann zu laufzeit zusammen zu stellen.

[MrSpock]

Hallo Snyderburn,

zwei Anmerkungen zu dem Vorschlag von Sir Thornberry:

Anstatt AND musst du OR benutzen, weil der Wert ja in irgendeinem beliebigen Feld vorkommen darf.
Außerdem würde ich für den Zusammenbau des Strings die Funktion QuotedStr benutzen:

Delphi-Quellcode:

SQL := 'select * from meineTabelle '+
'where (feld1 like '+QuotedStr(suchwort1)+')'+
' OR (feld2 like '+ QuotedStrsuchwort1)+')'

[Snyderburn]

Gibt es nicht noch ne einfachere Möglichkeit, wo man nicht so viel schreiben muß??? Ich habe nämlich ca. 200 Felder, die ich dann ja alle auflisten müsste! Das wird eine ziemlich große schreibarbeit und der SQL-Code wird dementsprechend auch sehr groß!

mfg
Snyderburn

[MrSpock]

Hallo Snyderburn,

eine Tabelle mit 200 Feldern in einer relationalen Datenbank ist schon eine Besonderheit.
Die Übertragung des langen SQL Strings kannst du dir ersparen, wenn du eine entsprechende StoredProcedure auf dem Server erstellst. Eine einfachere Methode gibt es wohl nicht. Du kannst aber bei der Erzeugung des SQL Codes eine Schleife einbinden. Wenn du eine z.B. TQuery Komponente benutzt, die Felder der Datenmenge über den Feldeditor hinzufügst und dann über eine Schleife darauf zugreifst:

Delphi-Quellcode:

SQL := 'select * from meineTabelle where '
for i := 0 to myQry.FieldCount-1 do
  if i > 0 then
    SQL := SQL+' OR ('+Fields[i].FieldName+' like '+QuotedStr(suchStr)+')'
  else
   SQL := SQL+'('+Fields[i].FieldName+' like '+QuotedStr(suchStr)+')'