Sybase SQL Anywhere SQL Problem (Datum)

[Sharky]

Hai tuxracer78,

überlasse doch die Konvertierung des Datumsformates dem Treiber. Dadurch bist Du unabhängig von dem beim Anwender eingestellt Datumsformat.

Delphi-Quellcode:

procedure TForm1.Action2Execute(Sender: TObject);
var Seldate: String; Anzahl: Integer;
begin
//  Seldate := DateToStr(DateTimePicker1.Date); // Das brauchen wir nicht
  With ADOQuery1 do
    Begin
      SQL.Text:= 'SELECT KHKVKBelege.A0Empfaenger  AS Kunde, KHKVKBelege.A1Anrede, KHKVKBelege.A1Name1, KHKVKBelege.A1Name2, KHKVKBelege.A1Strasse, KHKVKBelege.A1PLZ, KHKVKBelege.A1Ort, KHKVKBelege.Belegdatum FROM KHKVKBelege WHERE KHKVKBelege.Belegdatum >= :i_Date';
      Prepared := True;
      ADOQuery1.Parameters.ParamByName('i_Date').AsDate := DateTimePicker1.Date; // Jetzt konvertiert der Treiber.
end;