![]() |
Datenbank: sqlite • Version: 3 • Zugriff über: firedac
select mit ' läuft nicht
Hallo zusammen,
mein Problem ist, dass ich mit einen Select direkt in der DB auch ein richtiges Ergebnis bekomme. select * from fam_check where DATE(verfall, + '1 year') <= CURRENT_DATE AND (DATE(p_datum, + '5 years') <= CURRENT_DATE) übertrage ich den Select in Delphi bekomme ich kein Ergebnis
Delphi-Quellcode:
die Ausgabe im Logfile kann ich 1:1 in die DB kopieren und es geht. Woran ligt es? Hoffe ihr könnt mir helfen thx.main.qryproducts.FetchOptions.AutoClose := False; main.qryproducts.SQL.Clear; // erster Versuch so: main.qryproducts.SQL.Add('SELECT * '); main.qryproducts.SQL.Add('FROM fam_check '); main.qryproducts.SQL.Add('WHERE DATE(verfall, + '+ quotedstr('1 year')+ ' ) <= CURRENT_DATE' ); main.qryproducts.SQL.Add('AND (DATE(p_datum, + ' + quotedstr('5 years') +') <= CURRENT_DATE) ' ); // zweite Versuch mit Parametern main.qryproducts.SQL.Add('SELECT * '); main.qryproducts.SQL.Add('FROM fam_check ') ; main.qryproducts.SQL.Add('WHERE DATE(verfall, + :jahr_begin ) <= CURRENT_DATE' ); main.qryproducts.SQL.Add('AND (DATE(p_datum, + :jahr_end ) <= CURRENT_DATE) ' ); main.qryproducts.ParamByName('jahr_begin').AsString := '1 year'; main.qryproducts.ParamByName('jahr_end').AsString := '5 years'; main.qryproducts.SQL.SaveToFile('S:\log.txt'); main.qryproducts.Open; while not main.qryproducts.Eof do begin loeschfristen_apbetro_fam_insert_lv(main.qryproducts.FieldByName('ID').AsString, main.qryproducts.FieldByName('name').AsString,main.qryproducts.FieldByName('dafo_kurz').AsString); main.qryproducts.Next; end; |
AW: select mit ' läuft nicht
Was ist am zweiten Versuch verkehrt,
bzw. warum verwendest du das nicht? Stimmt die Syntax so überhaupt? Ich bin mir fast sicher, dass das + in den String gehört, und nicht davor.
SQL-Code:
DATE(verfall, '+1 year')
QuotedStr ist ausschließlich für die Pascal-Syntax, also aus ' wird ''. Du brauchst aber eine Quote/Escape-Funktion für die SQL-Syntax, welche also aus ' ein \' machen, sowie aus \ ein \\ usw. Hier wird es damit zufällig "funktionieren", so lange keine ' oder \ im String vorkommen. Fazit: Such in deiner DB-Komponente, bzw. in deren Units nach einer passenden Funktion. Und ja, daß in vielen Beispielen, Tutorials usw. QuoteStr genommen wird, ist grauenhaft und es war schon immer falsch, aber immer wieder wird dieser Mist kopiert. |
AW: select mit ' läuft nicht
Wie genau lautet denn die Fehlermeldung? Es fehlt ein kleines bisschen Exceptionhandling an der Stelle, die vielleicht Wunder wirken könnte. Oder zumindest Licht ins Dunkel bringen kann ;-)
Sherlock |
AW: select mit ' läuft nicht
Zitat:
|
AW: select mit ' läuft nicht
Liste der Anhänge anzeigen (Anzahl: 2)
Zitat:
Habe mal Bilder angehängt. 01 liefert kein Ergebnis mit der vollen Query. 02 ist auf select * from fam_check reduziert |
AW: select mit ' läuft nicht
Siehe mein "Edit" da oben ... das bezüglich dem "+" :angle:
|
AW: select mit ' läuft nicht
Zitat:
Zitat:
|
AW: select mit ' läuft nicht
Korrekte Syntax siehe:
![]() |
AW: select mit ' läuft nicht
Zitat:
|
AW: select mit ' läuft nicht
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 |
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 |
AW: select mit ' läuft nicht
Es ist genau andersrum.
Pascal hat mit Escapezeichen nix am Hut, aber SQL schon. (so wie praktisch jede andere C-artige Syntax) OK, ein Doppelquote ala '' wird im SQL zwar oft auch als ' interpretiert, aber eigentlich quotet man dort mit \. Und nun noch viel Spaß mit
Delphi-Quellcode:
.
QuoteStr('das ist ein Test mit \')
Bei
Delphi-Quellcode:
knallt es zwar nicht, aber das N wird womöglich nicht mehr das sein, was es war,
QuoteStr('ein \n ist nett')
und bei
Delphi-Quellcode:
verschwindet einfach so das erste \.
QuoteStr('... \\ ...')
Echt mal, was ist daran so schwer, die "richtige" Escape-Funktion zu verwenden, welche es irgendwo in deiner DB-Komponente geben sollte anstatt irgendwelchem Schrott, der herfür nicht gedacht ist und auch niemals dafür gedacht war, weil er für was Anderes vorgesehen ist? irgendwas wie EscapeLiteral (mit ' für Strings) und EscapeName (mit " für Bezeichner) oder irgendwie so Klar, man kann auch mit dem Trabbi Ford Tourer-Nachbau von Sudhakar Yadav auf den Nürburgring .. es funktioniert, aber man nimmt etwas, was eher dafür gedacht ist. |
AW: select mit ' läuft nicht
Nochmal: MS SQL kann von Haus aus mit Escape-Zeichen nichts anfangen. Zeichen wie \n oder \\ werden als genau diese ausgegeben. Ein String wie 'That\'s it' geht in MS SQL nicht.
Es gibt zwar eine Funktion zur Interpretation solcher Ausdrücke ( ![]() z.B. SELECT 'Das ist ein Test\' ergibt Das ist ein Test\ als Resultat. Entweder sprechen wir von verschiedenen Dingen oder bei manchen Datenbanken ist das halt problematisch. Bei Oracle ist es genau so. Kann man z.B. ![]() |
AW: select mit ' läuft nicht
MS SQL kann damit problemlos umgehen. Das trifft aber nicht auf alle Datenbanksysteme zu.
Wenn man mit Delphi Datenbankprogramme schreibt, ohne sich auf die dahinterliegende Datenbank festzulegen, sollte man halt immer im Auge behalten, dass QuotedStr funktionieren kann, aber nicht muss. Zitat:
Zitat:
Zitat:
Zitat:
Zitat:
Zitat:
Das Schöne an Parametern ist, dass man sich im Delphi-Quelltext nicht um diese Feinheiten kümmern muss. Da nimmt einem das die Datenbankschnittstelle ab. |
AW: select mit ' läuft nicht
Ohhhh, OK, war davon ausgegangen Microsoft macht es da grundelegend so ähnlich wie auch fast alle Anderen, :oops:
wenn selbst so abgespecktes Zeugs ala SQLite es auch so macht. Hab selbst bisher nur mit MySQL, Postgres, SQLite und irgendwas, wo ich mich nicht mehr dran erinnern kann (Access?) gearbeitet. Aber mein Vorredner hat es ja schon nochmals gesagt. Parameter sind eine feine Sache. Und wenn man die Quote/Escape-Funktion der DB-Komponente nimmt, dann ist es auch egal, mit welchem DBMS man verbunden ist, weil sich dann der Richtige um das richtige Format kümmert. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 00:17 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