SQL Befehl Datum zwischen x und x funktioniert nicht richtig

[X21Carsten]

Hallo,

ich greife über Delphi mit einem ADODATASET auf eine Access Datenbank zu.

Leider funktioniert der Befehl nicht

Das Datum wird auf das in Access übliche Format angepasst:

Delphi-Quellcode:

Datum_von:='#'+datetostr(DTP_Wiedervorlagen_von.Date)+'#';
Datum_von:=stringreplace(Datum_Von,'.','/', [rfReplaceAll]);
Datum_bis:='#'+datetostr(DTP_Wiedervorlagen_bis.Date)+'#';
Datum_bis:=stringreplace(Datum_bis,'.','/', [rfReplaceAll]);

Befehl in Delphi:
DSet_Wiedervorlage.CommandText:='SELECT * FROM Wiedervorlage WHERE Datum Between '+Datum_von+' And '+Datum_bis+' and VBNummer='+inttostr(VBNummer)+' order by Datum';

Befehl zur Laufzeit:
SELECT * FROM Wiedervorlage WHERE Datum Between #03/02/2004# And #16/03/2004# and VBNummer=62826106 order by Datum
Nun zum Fehler wenn ich das Datum ändere das heist Datum z.B.: vom 20.02.2004 bis 16.03.2004
dann kommen drei Datensätze. Wenn ich aber Datum vom 03.02.2004 bis 16.03.2004 kommt kein Datensatz, obwohl eigentlich 3 stück kommen müssten.

Also nach meiner Ansicht vertauscht der Tag + Monat... Kann das an der DateTimePickler Datumskomponente liegen?

Woran kann das liegen???

[Marcel Gascoyne]

Warum so umständlich ? Wie wärs hiermit:

Delphi-Quellcode:

Datum_von := FormatDateTime('#yyyy/mm/dd#',DTP_Wiedervorlagen_von.Date);
Datum_bis := FormatDateTime('#yyyy/mm/dd#',DTP_Wiedervorlagen_bis.Date);

Gruß,
Marcel

[Robert_G]

Wie wäre es denn auf die einfache Art (und vor allem ohne implizierte Umwandlungen!)

Delphi-Quellcode:

  With ADOQuery Do
  Begin
    SQL.Text :=
      'SELECT *' + #10 +
      'FROM   Wiedervorlage' + #10 +
      'WHERE  Datum BETWEEN :i_Datum_von AND :i_Datum_bis AND' + #10 +
      '       VBNummer = :i_VBNummer' + #10 +
      'ORDER  BY Datum';
  // Parsing des Statements um Query Parameter zu finden...
    Prepared := True;
  // Werte an Query Parameter übergeben...
    Parameters.ParamByName('i_Datum_von').DataType := ftDateTime;
    Parameters.ParamByName('i_Datum_bis').DataType := ftDateTime;

    Parameters.ParamByName('i_VBNummer').Value := VBNummer;
    Parameters.ParamByName('i_Datum_von').Value := DTP_Wiedervorlagen_von.Date;
    Parameters.ParamByName('i_Datum_bis').Value := DTP_Wiedervorlagen_bis.Date;
    Open;
  End;

[X21Carsten]

danke für die tipps, ich probiere es gleich mal aus.
Ich bin nicht so der Delphi profi, lerne mir viele sachen selbst, deswegen siehts manchmal etwas umständlich aus

[Robert_G]

Du willst gar nicht wissen, wie meine ersten Anwendungen vor ca. einem Jahr aussahen.

[Union]

Hallo X21Carsten,

beim BETWEEN mit Datumswerten muss man aufpassen. Denn ein reiner Datumswert stellt immer den Tag um 0:00 dar. wenn Du DateTime Werte in der Datenbank hast, muss deshalb der Wert-Bis (nach dem AND) einen Tag grösser sein. In Deinem Beispiel müsstest Du dann abfragen bis zum 17.3.

bye