memo Feld in Datenbank durchsuchen

[Jacuzzi]

okay :roteyes:

Auch wenn ich in der BDE dafür gar keinen Eintrag hab?



Das hier geht auch nich:

Delphi-Quellcode:

   
Form1.Query1.Active := False;
Form1.Query1.SQL.Text := 'SELECT * FROM problemloesung WHERE titel LIKE "sfilter" OR problem LIKE "sfilter" OR loesung LIKE "sfilter"';
Form1.Query1.Active := True; // "Fehler: Variante des Typs (Null) konnt nich in den Typ (String) konvertiert werden."

[Gerous]

Das Ganze ist doch schon fast richtig ;)

probiers mal so:

Delphi-Quellcode:

Form1.Query1.SQL.Text := 'SELECT * FROM problemloesung WHERE titel LIKE ''%' + sfilter + '%'' OR problem LIKE ''%' + sfilter + '%''  OR loesung LIKE ''%' + sfilter + '%''';

[Jacuzzi]

Super, das hab ich jetzt kurz vorher auch schon rausgefunden :D
Aber trotzdem Danke.

Delphi-Quellcode:

Form1.Query1.Active := False;
Form1.Query1.SQL.Text := 'SELECT * FROM problemloesung WHERE titel LIKE ''%' + sfilter + '%'' OR problem LIKE ''%' + sfilter + '%''  OR loesung LIKE ''%' + sfilter + '%''';
Form1.Query1.Active := True;

while not Form1.Query1.Eof do
begin
  Form1.lb_titel.Items.Add(Form1.Query1.FieldValues['titel']);
  Form1.Query1.Next;
end;

Nochmal zusammenfassend zum Quellcode:
- Volltextsuche der Query in der db
- gefundene Einträge in Listbox schreiben

[Jacuzzi]

So, weiter gehts :D


Ich suche in den "Titeln" nach verschiedenen Strings -> AND-verknüpft
funkioniert alles soweit:

Delphi-Quellcode:

   
Query1.SQL.Text := 'SELECT * FROM ''' + DB_NAME + ''' WHERE (titel LIKE ''%' + fwoerter[1] + '%'') 
                                                        AND (titel LIKE ''%' + fwoerter[2] + '%'')';

Jetzt will ich aber bestimmte Zeichen von der Suche ausschließen -> also AND-NOT-verknüpft
funktioniert NICHT:

Bsp: "1" und "2" finden, welche keine "3" enhalten

Delphi-Quellcode:

   
Query1.SQL.Text := 'SELECT * FROM ''' + DB_NAME + ''' WHERE (titel LIKE ''%' + fwoerter[1] + '%'') 
                                                        AND (titel LIKE ''%' + fwoerter[2] + '%'')
                                                    AND NOT (titel LIKE ''%' + fwoerter[3] + '%'')';

Kann ich das überhaupt mit SQL realisieren?
Wie mach ich das?


Jacuzzi.

[Jürgen Thomas]

Hallo,
versuch es einmal mit zusätzlichen Klammern.

Delphi-Quellcode:

Query1.SQL.Text := 'SELECT * FROM ''' + DB_NAME + ''' WHERE (titel LIKE ''%' + fwoerter[1] + '%'')
                                                        AND (titel LIKE ''%' + fwoerter[2] + '%'')
                                                    AND ( NOT (titel LIKE ''%' + fwoerter[3] + '%'') )';

Es sollte grundsätzlich mit SQL möglich sind. Wenn Du Pech hast, überschreitest Du allenfalls die Fähigkeiten von LocalSQL.

Gruß Jürgen

[marabu]

Hallo Hannes,

das NOT gehört in LocalSQL zum LIKE:

SQL-Code:

... AND titel NOT LIKE :titel ...

Grüße vom marabu

[Jacuzzi]

@ marabu
So funktioniert das leider nicht.

Bei mir klappt das nur so:

Delphi-Quellcode:

      
// erster zu suchender String
Query1.SQL.Text := 'SELECT * FROM ''' + DB_NAME + ''' WHERE (titel LIKE ''%' + fwoerter[0] +
  '%'' OR problem LIKE ''%' + fwoerter[0] + '%'' OR loesung LIKE ''%' + fwoerter[0] + '%'')';

// weitere zu suchende Strings (anfügen)
for i := 1 to length(fwoerter)-1 do
  Query1.SQL.Text := Query1.SQL.Text + ' AND (titel LIKE ''%' + fwoerter[i] +
    '%'' OR problem LIKE ''%' + fwoerter[i] + '%'' OR loesung LIKE ''%' + fwoerter[i] + '%'')';

// auszuschließende Strings (anfügen)
for i := 0 to length(fwoerter_)-1 do
  Query1.SQL.Text := Query1.SQL.Text + ' AND (NOT (titel LIKE ''%' + fwoerter_[i] +
    '%'' OR problem LIKE ''%' + fwoerter_[i] + '%'' OR loesung LIKE ''%' + fwoerter_[i] + '%''))';

So funktioniert das aber auch nur wenn ich nur einen String ausschließe...
wenn ich zwei oder mehrere Strings auschließen will, dann wird alles rausgefiltert.
Liegt wahrscheinlich daran, dass es dann so aussieht:

AND (NOT (... OR ...)) AND (NOT (... OR ...))

wobei es aber bei mehreren Ausschließungen sicher so sein müsste:

AND (NOT (... OR ... OR ... OR ...))


:roll:

[marabu]

Hallo,

dein Fall ist tatsächlich etwas komplizierter. Ich habe dir mal eine Demo angehängt, die dir den Ansatz über eine konjunktive Normalform zeigt.

Freundliche Grüße

[Jacuzzi]

Vielen Dank!

Dein Programm ist sicherlich funktionsfähig und durchdacht, aber für mich undurchsichtig.

Ich hab mir da jetzt schon selber was gebastelt, sicherlich für Außenstehende auch nich ganz durchsichtig, aber funktionell. :-D
Für alle die es interessiert, hier mein Proggie.



MfG Jacuzzi. :cheers: