Einbindung einer SQL-Abrage

[Flash68]

Hallo zusammen,

ich möchte gern folgende SQL-Abfrage:

Select * from Sicht where contains(*, '"*Text*"') {Text soll dann durch das Textfeld eines editfeldes sein(edt.text)}

in eine ADO-Querry mit SQL.ADD einbauen.
Bekomme aber entweder Meldungen das beim Compilieren ein Fehler oder es gibt direkt fehlermeldungen wegen der Syntax.

kann mir jemand helfen wie ich die Sonderzeichen mit '' maskiere das die Abfrage richtig ausgeführt wird.

Gruß

Flash

[DeddyH]

Hast Du einmal versucht, die Abfrage zu parametrisieren?

[Flash68]

Das habe ich noch nie gemacht, bis jetzt habe ich immer mit den SQL-Abfragen gearbeitet, weiß nicht wie das geht.

Normal trage ich die Abfragen direkt in das ADO-DataSet ein, nur das ist jetzt für eine Suche da brauche ich die Eingabe über ein Editfeld das dann auf Knopfdruck die Abfrage macht.

Gruß

Flash

[DeddyH]

Ein Beispiel aus der hohlen Hand:

Delphi-Quellcode:

ADOQuery.SQL.Text := 'SELECT Name, Vorname FROM Personen WHERE Wohnort = :ort';
ADOQuery.Parameters.ParamByName('ort').Value := 'Kleinkleckersdorf';
ADOQuery.Open;

Hier wird ein Parameter mit Namen 'ort' innerhalb der SQL-Abfrage definiert und später durch den entsprechenden Suchbegriff ersetzt. Anschließend werden die Daten abgerufen.

[Flash68]

Bei mir muß aber die Abfrage so sein wie in meiner Frage, das ist eine Volltextabfrage und da brauche ich die Sonderzeichen und die werden in der normalen form wie du sie beim SQL-Server eingibst nicht in Delphi akzeptiert.

[DeddyH]

Welche Sonderzeichen meinst Du jetzt?

[Flash68]

Folgende:

' und ", manchmal auch * oder %

[DeddyH]

Sollen die im Edit stehen? Dann werden sie durch das Parametrisieren automatisch passend escaped. Was genau hast Du denn ausprobiert, als die Fehlermeldung kam?

[Flash68]

ne das muß im Code stehen, sollte ungefähr so aussehen:

SQL.Clear;
SQL.ADD('Select * from Sicht where contains(*, ''"''*' EDT_Suchen.Text '*''"'')');

die eigentliche Abfrage sieht ja so aus: Select * from Sicht where contains(*, '"*Suchtext*"')
aber da meckert der Edit bei den hochkommas und oder wenn nicht dann meckert gibt es eine Fehlermeldung bei der Ausführung, Fehler beim Ausdruck Suchtext.

[DeddyH]

Versuch es mal so:

Delphi-Quellcode:

Query.SQL.Text := 'Select * from Sicht where contains(*, :suchtext)';
Query.Parameters.ParamByName('suchtext').Value := Format('"*%s*"', [EDT_Suchen.Text]);