SQL Abfrage mit Where Bedingung auf einen Zeitraum

[stonimahoni]

hi leute.

ich hab folgendes problem :

ich möchte mir datensätze aus meiner access db filtern und anzeigen lassen per sql befehl die in einem bestimmten zeitraum liegen.


anbei mein codeschnipsel :

Delphi-Quellcode:

     sqlstr := 'SELECT auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie,'
     + 'hersteller.Herstellernr, hersteller.Firma,'
     + 'Sum(auftrag.Gesamtkostrep) AS [Summe von Gesamtkostrep], auftrag.Abgeholt '
     + 'FROM wgr INNER JOIN (hersteller INNER JOIN auftrag ON hersteller.Herstellernr = auftrag.Herstellernr) '
     + 'ON wgr.Wgr = auftrag.Wgr GROUP BY auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie, '
     + 'hersteller.Herstellernr, hersteller.Firma, auftrag.Abgeholt where Annahmedatum between '+ von.text + ' and ' + bis.text ;

von und bis.text sind jeweils edit felder in denen ich das datum ( den zeitraum ) eingebe.
mein primäres problem besteht darin, dass der mir abkackt wenn ich den selectbefehl abschicke - und zwar zeit er mir an, dass am ende von meinem string noch ein gänsefüsschen sei ( " ) oder ein ( ' )
und ich weiss net wo der das herholt ?! (

und noch ne frage nebenher : muss ich die editfelder selber oder hier im code speziell was abändern damit der rafft das ich ein datum eingebe oder is das egal ? in der db ist das feld ein datumsfeld.


hoffe ihr könnt mir helfen :/

mfg

stoni

[DerAndereMicha]

Probiers mal mit QuotedStr(von.text) bzw. QuotedStr(bis.text). Weiß
zwar nicht ob Access genauso reagiert wie der SQL-Server, aber ich vermute mal ja.

[shmia]

Ein Vergleich mit Datumsfeldern ist immer etwas problematisch.
Deshalb sollte man unbedingt Parameter verwenden:

Delphi-Quellcode:

SQL.TEXT := ....'where Annahmedatum >= :Von AND Annahmedatum < :Bis';
ADOQuery1.Parameters.ParamValues['Von'] := Date-30.0;  // =Heute vor 30 Tagen
ADOQuery1.Parameters.ParamValues['Bis'] := Date;
ADOQuery1.Open;

[AlphaBug]

Hallo stonimahoni

Wenn möglich, dann würde ich für die Datumswerte Parameter benutzen,
oder es mit QuotedStr versuchen.

Desweiteren gehört imho die Where-Klausel vor das Group-By .
(Lasse mich auch gern eines besseren belehren)

[stonimahoni]

hi leute

danke erstmal für eure hilfe

@ shmia : deinen code kapier ich nicht ganz und weiss nicht den bei mir einzubauen weil bei dir sieht es nicht so aus als würdest du den inhalt der beiden editfelder abfragen und mit dem -3ß tagen - das brauch ich ja nicht und kann und mag ich auch nicht festlegen

@ deranderemicha und alphabug :
habs mit quotedstr(von.text) und quotedstr(bis.text) probiert :

so sieht mein code atm aus :

Delphi-Quellcode:

     sqlstr := 'SELECT auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie,'
     + 'hersteller.Herstellernr, hersteller.Firma,'
     + 'Sum(auftrag.Gesamtkostrep) AS [Summe von Gesamtkostrep], auftrag.Abgeholt '
     + 'FROM wgr INNER JOIN (hersteller INNER JOIN auftrag ON hersteller.Herstellernr = auftrag.Herstellernr) '
     + 'ON wgr.Wgr = auftrag.Wgr GROUP BY auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie, '
+ 'hersteller.Herstellernr, hersteller.Firma, auftrag.Abgeholt where Annahmedatum between ' + QuotedStr(von.text) + ' and ' + QuotedStr(bis.text);

folgende fehlermeldung kommt :
meldung : 'syntaxfehler ( fehlender operator ) in abfrageausdruck 'auftrag.abgeholt where
annahmedatum between 'datum das ich eingegeben habe' and 'datum das ich eingegeben habe'".
prozess wurde angehalten....

es geht wohl nur noch um das mist ( " ) am ende und ich weiss nicht woher das kommt (

[shmia]

Zitat von stonimahoni:

@ shmia : deinen code kapier ich nicht ganz und weiss nicht den bei mir einzubauen weil bei dir sieht es nicht so aus als würdest du den inhalt der beiden editfelder abfragen und mit dem -3ß tagen - das brauch ich ja nicht und kann und mag ich auch nicht festlegen

Na dann halt so:

Delphi-Quellcode:

SQL.TEXT := ....'where Annahmedatum >= :Von AND Annahmedatum < :Bis';
ADOQuery1.Parameters.ParamValues['Von'] := StrToDate(von.Text);
ADOQuery1.Parameters.ParamValues['Bis'] := StrToDate(bis.Text);
ADOQuery1.Open;

Ich würde dir empfehlen, die Edit-felder von und bis als TDateTimePicker anzulegen.
Nur so lässt sich sicherstellen, dass kein Unsinn als Datum eingegeben wird.

[Hansa]

ICh habe shmias Beispiel etwas geändert (ist aber nicht so wichtig :

Zitat von shmia:

Ein Vergleich mit Datumsfeldern ist immer etwas problematisch.
Deshalb sollte man unbedingt Parameter verwenden:

Delphi-Quellcode:

SQL.TEXT := ....'where Annahmedatum >= :Von AND Annahmedatum < :Bis';
ADOQuery1.Parameters.ParamByName('VON).AsDateTime := Datum1;
ADOQuery1.Parameters.ParamByName('Bis').AsDateTime := Datum2;
ADOQuery1.Open;

Was du jetzt nicht verstehst ist wohl, wo Datum1 und Datum2 herkommen ? Z.B. aus einem Edit :

Datum1 := StrToDate (Edit1.Text);

[stonimahoni]

@ shmia : so hat er nur mit dem von und dem bis nix anfangen können

@ hansa : amt hab ich nur da problem das er folgendes hinschreibt : undefinierter bezeichner : 'asdatetime'

was nun ?

btw : ich hasse es so planlos zu sein

[mikhal]

Verwende statt "AsDateTime" "Value", dann sollte es funktionieren.

Grüße
Mikhal

[s14]

Hallo, schon mal so probiert?

Delphi-Quellcode:

sqlstr := 'SELECT auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie,' 
     + 'hersteller.Herstellernr, hersteller.Firma,' 
     + 'Sum(auftrag.Gesamtkostrep) AS [Summe von Gesamtkostrep], auftrag.Abgeholt ' 
     + 'FROM wgr INNER JOIN (hersteller INNER JOIN auftrag ON hersteller.Herstellernr = auftrag.Herstellernr) ' 
     + 'ON wgr.Wgr = auftrag.Wgr GROUP BY auftrag.Wgr, wgr.Wgr_Bezeichnung, auftrag.TatGarantie, ' 
+ 'hersteller.Herstellernr, hersteller.Firma, auftrag.Abgeholt where Annahmedatum between ' + QuotedStr(von.text) + ' and ' + QuotedStr(bis.text) + '''';