AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren

select mit ' läuft nicht

Ein Thema von Dr. Jack · begonnen am 8. Okt 2021 · letzter Beitrag vom 10. Okt 2021
Antwort Antwort
Seite 2 von 3     12 3   
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
8.815 Beiträge
 
Delphi 10.4 Sydney
 
#11

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 16:59
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:
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
77 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#12

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 17:02
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).
  Mit Zitat antworten Zitat
Delphi.Narium

Registriert seit: 27. Nov 2017
1.917 Beiträge
 
Delphi 7 Professional
 
#13

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 17:10
Und wie sieht jetzt konkret Dein Quelltext aus?
  Mit Zitat antworten Zitat
Benutzerbild von blawen
blawen

Registriert seit: 1. Dez 2003
Ort: Luterbach (CH)
515 Beiträge
 
Delphi 10.4 Sydney
 
#14

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 17:11
Delphi: SELECT DATE('2018-11-01', + '1 year');
Müsstest Du nicht die " Hochkommata verwenden?
  'SELECT DATE("2018-11-01", "+ 1 year");
Roland
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
77 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#15

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 17:33
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.

Geändert von Dr. Jack ( 8. Okt 2021 um 17:44 Uhr)
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
77 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#16

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 17:47
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.
  Mit Zitat antworten Zitat
ol1uw

Registriert seit: 24. Jul 2004
Ort: Olbernhau
59 Beiträge
 
Delphi XE Professional
 
#17

AW: select mit ' läuft nicht

  Alt 8. Okt 2021, 21:22
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 '
Uwe
  Mit Zitat antworten Zitat
Dr. Jack

Registriert seit: 17. Mär 2010
77 Beiträge
 
Delphi 10.2 Tokyo Architect
 
#18

AW: select mit ' läuft nicht

  Alt 9. Okt 2021, 17:08
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!
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.726 Beiträge
 
Delphi 10.4 Sydney
 
#19

AW: select mit ' läuft nicht

  Alt 9. Okt 2021, 19:29
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.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu ( 9. Okt 2021 um 19:35 Uhr)
  Mit Zitat antworten Zitat
BigAl

Registriert seit: 6. Sep 2008
Ort: Kehl
263 Beiträge
 
Delphi 11 Alexandria
 
#20

AW: select mit ' läuft nicht

  Alt 9. Okt 2021, 22:40
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
Old but good: It's not a bug - it's a feature....
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 03:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf