Hi,

ich habe folgendes Problem:

wie kann ich mit Sql ein Datum vergleichen

markieren

Delphi-Quellcode:

   such_datum := "13.04.2004";
   dm_auftrag.q_selbstbucher.SQL.Text :=
        'select lanme, lname2, lpz, lort, versand_id, versand_datum from bestellung where ' +
        ' SUBSTRING( versand_datum from 1 for 10 ) = ' + #34 + such_datum + #34 +
        ' group by versand_id' ;

Danke für die Unterstützung

Gruß

Reinhard

Welchen Typ hat das "versand_datum" in der DB ? Und was ist das :

versand_datum from 1 for 10 Noch nie gesehen. 8)

Moin Reinhard

Liegt Versand_Datum als Datum in der DB vor, dann kann es, wenn die Regionaleinstellungen des DB Servers von denen des Clients abweichen, ganz schnell nach hinten losgehen.
Denn bei der implizierten Umwandlung Date->String / String->Date entscheiden nunmal die Regionaleinstellungen.
Wenn du das Ganze in der Art wie im Code-Schnipsel machst, dann wird exakt ein Datum mit einem Datum verglichen.
Weder der Client noch die DB haben dann noch eine Möglichkeit irgendwelchen Mist zu bauen. (Oft gesehen: Tag & Monat vertauscht)

zusammenfalten · markieren

Delphi-Quellcode:

Var
  such_Datum :TDate;
  //...
Begin
  //...
  Such_Datum := EncodeDate(2004, 04, 13);
  With DM_Auftrag.Q_Selbstbucher Do
  Begin
    SQL.Text :=
      'SELECT lName' + #10 +
      ' ,lName2' + #10 +
      ' ,lPz' + #10 +
      ' ,lOrt' + #10 +
      ' ,Versand_ID' + #10 +
      ' ,Versand_Datum' + #10 +
      'FROM Bestellung' + #10 +
      'WHERE Versand_Datum = :i_Such_Datum' + #10 +
      'GROUP BY Versand_ID';
    // Parsen des Statements um Query Parameter zu finden...
    Prepared := True;
    // Werte an Query Parameter übergeben...
    With Parameters.ParamByName('i_Such_Datum') Do
    Begin
      DataType := ftDate;
      Value := Such_Datum;
    End;
    Open;
    //...
  End;

Also das versand_datum ist eine DateTime (13.04.2004 18:43:12) Datenfeld

Gruß
Reinhard

Habe die lösung selber gefunden !

Das Edit1.text ist das gesuchte Datum (13.04.2004).

zusammenfalten · markieren

Delphi-Quellcode:

    stag := copy(edit1.Text,0,2);
    smonat := copy(edit1.Text,4,2);
    sjahr := copy(edit1.Text,7,4);

    dm_auftrag.q_selbstbucher.Close;

    dm_auftrag.q_selbstbucher.SQL.Text :=
       ' select (lname + " " + lname2) as name, lplz, lort, versand_id from bestellung ' +
       ' where extract(Day from versand_datum) =' + stag +
       ' and extract(month from versand_datum) =' + smonat +
       ' and extract(year from versand_datum) =' + sjahr +
       ' group by versand_id order by versand_id ';

    dm_auftrag.q_selbstbucher.Open;

Gruß

Reinhard

Wenn du jetzt noch einen TDateTimePicker nimmst, dann klapt das:

zusammenfalten · markieren

SQL-Code:

  With DM_Auftrag.Q_Selbstbucher Do
  Begin
    SQL.Text :=
      'SELECT lName' + #10 +
      ' ,lName2' + #10 +
      ' ,lPz' + #10 +
      ' ,lOrt' + #10 +
      ' ,Versand_ID' + #10 +
      ' ,Versand_Datum' + #10 +
      'FROM Bestellung' + #10 +
      'WHERE Versand_Datum = :i_Such_Datum' + #10 +
      'GROUP BY Versand_ID' + #10 +
      'ORDER BY Versand_ID';
    // Parsen des Statements um Query Parameter zu finden...
    Prepared := True;
    // Werte an Query Parameter übergeben...
    With Parameters.ParamByName('i_Such_Datum') Do
    Begin
      DataType := ftDate;
      Value := DateTimePicker1.Date;
    End;
    Open;
    //...
  End;

Auf die Art muss das Statement durch solche in den String konkatinierte Werte entstellt werden. Außerdem kann der User nur noch gültige Datumswerte angeben.