Problem bei der Übergabe von SQLStatements an ein TQuery

[shmia]

Wenn man keine Parameter verwendet, sollte man zumindest die Funktion QuotedStr verwenden !

Delphi-Quellcode:

MyQuery.SQL.Text:='SELECT SUCHTEXT FROM ARTIKEL Artikel WHERE SUCHTEXT LIKE '+
   QuotedStr('%'+Edit1.Text+'%');
MyQuery.Open;

Andernfalls kommt es zu einem SQL Syntaxfehler wenn Edit1.Text mal ein Hochkoma enthalten sollte.

[Silbar]

danke leute (besonders marabu) :cheers: jetzt rennt das.

eine kleine weiteführende frage wie baue ich das UPPER von Hansa passend in marabu's bzw.shmia's quelltext ein irgendwie funzt das net wen ich das mache (im SUCHTEXT steht alles in Grossbuchstaben drin deshalb soll die Eingabe vom Edit auch in Grossbuchstaben umgewandelt werden)

PS.: Das open habe ich wohl überlesen marabu sry

[marabu]

Hier eine überarbeitete Fassung:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE UPPER(SUCHTEXT) LIKE ''%' 
                         + QuotedStr(AnsiUppercase(Form1.Edit1.Text)) + '%''';
 Form1.MyQuery.Open;    // ExecSQL nur, wenn du keinen result set erwartest 
end;

Verbesserungsvorschläge von Hansa und shmia sind eingebaut.

und auch noch ein Fehler - also unbedingt bis zum Beitrag von shmia weiterlesen...

marabu

[Silbar]

Danke für die Mühe marabu aber jetzt bekomm ich die Meldung

Zitat:

[Error] OMDBTestUnit.pas(58 ): Undeclared identifier: 'Upper'

[Chris1986]

ich glaub marabu meint die Funktion UpperCase

[marabu]

Er meinte sogar AnsiUppercase() - um genau zu sein - aber so ist das im Alter: man meint manchmal das eine und schreibt das andere. Gut das immer einer da ist, der mitdenkt. Ich ändere das mal im Code, bevor noch jemand darauf hereinfällt...

marabu

[shmia]

Zitat:

Zitat von marabu

...aber so ist das im Alter: man meint manchmal das eine und schreibt das andere

Stimmt, die grauen Zellen wollen einfach nicht mehr. :nerd:
Und das mit den Hochkommas und QuotedStr passt auch nicht.
Richtig wäre:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Form1.MyQuery.SQL.Text := 'SELECT SUCHTEXT FROM Artikel WHERE UPPER(SUCHTEXT) LIKE ' 
                         + QuotedStr('%'+AnsiUppercase(Form1.Edit1.Text)+'%'); 
Form1.MyQuery.Open;    
end;

[marabu]

Heute ist nicht mein Tag
*UnbedachterTrittGegenSchreibtisch*
Ich gehe dann mal nachbessern...

marabu

[Silbar]

Danke Leute jetzt funzt :thumb:

und marabu baruchst net sauer sein wusstest immmerhin mehr als ich :thumb:


also leute cya