select mit ' läuft nicht

[Uwe Raabe]

Nur ein Hinweis - häufig bekommt man eine aussagekräftigere Information über den tatsächlichen SQL-Text, wenn man das Text-Property der Query auswertet:
FireDAC.Comp.Client.TFDCustomQuery.Text

Für exaktere Aussagen kann man auch das FireDAC Monitoring aktivieren:

[Dr. Jack]

Zitat von Sherlock:

Der Unterschied ist aber immer noch da, oder hast Du den behoben?

SQL: SELECT DATE('2018-11-01','+1 year');
Delphi: SELECT DATE('2018-11-01', + '1 year');

Sherlock

Richtig, das + ist in den String gewandert
select * from fam_check where (DATE(verfall, '+1 year') <= CURRENT_DATE) AND (DATE(p_datum, '+5 years') <= CURRENT_DATE)
ABer das Ergebnis wird nur im DB-Browser korrekt angezeigt. Delphi findet nichts, wenn man das mal in einer Query-Abfrage testet (und zur Laufzeit kommt natürlich auch kein Ergebnis).

[Delphi.Narium]

Und wie sieht jetzt konkret Dein Quelltext aus?

[blawen]

Zitat von Dr. Jack:

Delphi: SELECT DATE('2018-11-01', + '1 year');

Müsstest Du nicht die " Hochkommata verwenden?
  'SELECT DATE("2018-11-01", "+ 1 year");

[Dr. Jack]

Zitat von blawen:

Zitat von Dr. Jack:

Delphi: SELECT DATE('2018-11-01', + '1 year');

Müsstest Du nicht die " Hochkommata verwenden?
  'SELECT DATE("2018-11-01", "+ 1 year");

es geht konket um diese Zeile:
SELECT * FROM fam_check WHERE DATE(verfall, '+1 year') <= CURRENT_DATE AND DATE(p_datum, '+5 years') <= CURRENT_DATE
Ich habe dein Vorschlag mit den Hochkommata getestet. Es geht auch hier beides. Sowohl auf DB Ebene als auch übers Query in Delphi.
Also könnte es daran m.M.n. nicht liegen.

[Dr. Jack]

Zitat von Uwe Raabe:

Nur ein Hinweis - häufig bekommt man eine aussagekräftigere Information über den tatsächlichen SQL-Text, wenn man das Text-Property der Query auswertet:
FireDAC.Comp.Client.TFDCustomQuery.Text

Für exaktere Aussagen kann man auch das FireDAC Monitoring aktivieren:

Der Hinweis ist sehr gut- danke dafür! Im Prinzip ist der Select wie im Logfile gleich.

[ol1uw]

mein Vorschlag

Delphi-Quellcode:

       main.qryproducts.SQL.Add('SELECT * ');
       main.qryproducts.SQL.Add('FROM fam_check ');
       main.qryproducts.SQL.Add('WHERE DATE(verfall,''+ 1 year'') <= CURRENT_DATE');
       main.qryproducts.SQL.Add('AND (DATE(p_datum,''+ 5 year'') <= CURRENT_DATE)');

nicht 1 doppeltes Hochkomma " sondern 2 einzelne '

[Dr. Jack]

Also das Problem ist tatsächlich gelöst. Es lag an Delphi.

Die DB-Engine versteht das und liefert ein Ergebnis: select * from fam_check where DATE(verfall, + '1 year') <= CURRENT_DATE AND (DATE(p_datum, + '5 years') <= CURRENT_DATE)
Delphi verteht das nicht und braucht den Select etwas vorgewärmt.

Delphi-Quellcode:

 
  // Datum erstmnal selbst berechnen weils delphi nicht hinbekommt
       jahr_begin := datetostr(now- 365) ;  //1 Jahr
       jahr_end := datetostr(now-1825);     //5 Jahre
 
 //     
       main.qryproducts.SQL.Add('SELECT * ');
       main.qryproducts.SQL.Add('FROM fam_check ')            ;
       main.qryproducts.SQL.Add('WHERE verfall <= '+ quotedstr(jahr_begin) );    // ohne quotedstr gehts nicht
       main.qryproducts.SQL.Add(' AND p_datum <= '+ quotedstr(jahr_end)     );

Vielen lieben Dank für eure Hilfe!

[himitsu]

Eigentlich sollte es egal sein, ob mit oder ohne Zeilenumbruch.
Das Statement wird ja eigentlich auch erst in der DB und nicht in Delphi verarbeitet.

Zitat:

ohne quotedstr gehts nicht

Natürlich nicht ... obwohl, eigentlich doch.

Delphi-Quellcode:

main.qryproducts.SQL.Add('WHERE verfall <= ''' + jahr_begin + '''');
main.qryproducts.SQL.Add(' AND p_datum <= ''' + jahr_end + '''');

Aber nochmal ... QuoteStr ist falsch.

Du kannst Milch auch in einer Papiertüte transportieren, aber sehr lange wird es nicht gut gehen, auch wenn es erstmal funktionieren mag.

QuoteStr ist für Pascal ... nicht für SQL.
Das ' ist hier zwar zufällig das Gleiche, jedenfalls zu Beginn und am Ende des Strings, aber innerhalb eines Strings ist das nicht kompatibel, was QuoteStr hier produziert, und somit falsch,
vorallem wenn es um andere Zeichen geht, speziell ' oder \


Insgesamt ist es hier eben immer besser mit Parametern zu arbeiten, da die DB-Komponente bzw. Datenbankengine das dann intern behandelt und du dich um Nichts kümmern musst.


Tipp: bei uns waren Kunden mal auf die geile Idee gekommen, in Artikelbezeichnern ein ' zu verwenden, was an einigen Stellen dann knallte, vor allem dort, wo die Übergabestellen zwischen Delphi, Python und SQL stattfanden, da die alle ihre eigene Syntax nutzen.

[BigAl]

Zitat von himitsu:

Tipp: bei uns waren Kunden mal auf die geile Idee gekommen, in Artikelbezeichnern ein ' zu verwenden, was an einigen Stellen dann knallte, vor allem dort, wo die Übergabestellen zwischen Delphi, Python und SQL stattfanden, da die alle ihre eigene Syntax nutzen.

Ich verwende eigentlich immer QuotedStr (MS SQL). Der arbeitet bei mir seit Jahren immer richtig. Wenn ein ' im string ist wird der gedoppelt. Das interpretiert der SQL-Server auch richtig. Also aus

Delphi-Quellcode:

S := 'That''s it' (wird als "That's it" im String gespeichert)
S := QuotedStr(S) ist dann "'That''s it'" im String)

Die doppelten Hochkommas (") sind natürlich oben nur um den String abzugrenzen...

Was also ist am QuotedStr bitte falsch? Wo läuft's schief? Was wäre die Alternative (außer das als S := '''That''s it''' zu schreiben - was ich nebenbei furchtbar finde).

Mit Escape-Zeichen kann der SQL-Server ja nicht wirklich was anfangen, oder? Lasse mich gerne belehren...

Alex