![]() |
AW: select mit ' läuft nicht
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:
![]() Für exaktere Aussagen kann man auch das ![]() |
AW: select mit ' läuft nicht
Zitat:
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). |
AW: select mit ' läuft nicht
Und wie sieht jetzt konkret Dein Quelltext aus?
|
AW: select mit ' läuft nicht
Zitat:
Delphi-Quellcode:
'SELECT DATE("2018-11-01", "+ 1 year");
|
AW: select mit ' läuft nicht
Zitat:
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. |
AW: select mit ' läuft nicht
Zitat:
|
AW: select mit ' läuft nicht
mein Vorschlag
Delphi-Quellcode:
nicht 1 doppeltes Hochkomma " sondern 2 einzelne '
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)'); |
AW: select mit ' läuft nicht
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:
Vielen lieben Dank für eure Hilfe! // 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) ); |
AW: select mit ' läuft nicht
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:
Delphi-Quellcode:
Aber nochmal ... QuoteStr ist falsch.
main.qryproducts.SQL.Add('WHERE verfall <= ''' + jahr_begin + '''');
main.qryproducts.SQL.Add(' AND p_datum <= ''' + jahr_end + ''''); 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. |
AW: select mit ' läuft nicht
Zitat:
Delphi-Quellcode:
Die doppelten Hochkommas (") sind natürlich oben nur um den String abzugrenzen...
S := 'That''s it' (wird als "That's it" im String gespeichert)
S := QuotedStr(S) ist dann "'That''s it'" im String) 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 |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz