DateTime-Probleme mit UniDac

[Ykcim]

Hallo Zusammen,

ich bekomme hier gerade eine schwere Kriese! Seit dem letzten Update von meinen UniDac-Komponenten funktioniert das DateTime nicht mehr.
Ich bekomme ständig falsche Werte und Formatierung raus.

Die Krönung ist jetzt heute, dass ich einen einfachen DateTime-Wert nicht mehr speichern kann...

Ich habe es so probiert:

Delphi-Quellcode:

Query_Besucher_raus.SQL.Clear;
      Query_Besucher_raus.SQL.Add('update besucher set weggang=:weggang and pc_weggang=:pc_weggang where besucher_id=:besucher_id');

      Query_Besucher_raus.ParamByName('weggang').AsDateTime:=StrtoDateTime('23.04.2018 17:10:00');
      Query_Besucher_raus.ParamByName('pc_weggang').AsString:=ComputerName();
      Query_Besucher_raus.ParamByName('besucher_id').AsString:=Edit_Besucher_ID_raus.Text;
      Query_Besucher_raus.Execute;

Kann mir bitte jemand sagen, was ich falsch mache?
Die Fehlermeldung sagt immer: #22007Trunced incorrect DOUBLE value: '2018-04-23 17:10:00'

Vielen Dank
Patrick

[mensch72]

#22007Trunced incorrect DOUBLE value: '2018-04-23 17:10:00'
??? := StrtoDateTime('23.04.2018 17:10:00');


"Kann mir bitte jemand sagen, was ich falsch mache?"
-> du hast hier zumindest aktuell eine lokale DateTime Variable zu wenig... bei so Sachen stets NUR EINE Funktion/Anweisung pro Zeile... nur so weißt du dann, ob "StrtoDateTime" oder "Query_Besucher_raus.ParamByName('weggang').AsDate Time" diesen Fehler verursachen

[mkinzler]

Welchen Typ hat das Datenbankfeld/der Paramter? Stimmen die Datumseinstellungen des Systems?

[DeddyH]

Etwas OT: ich dachte immer, beim Update werden die zu aktualisierenden Felder mit Komma getrennt. Akzeptiert MySQL tatsächlich ein AND an der Stelle?

[hoika]

Hallo,
https://stackoverflow.com/questions/...value/19397597

also ist das AND Schuld.

Vielleicht gibt es ja das AND sogar als Binäroperation.

[Ykcim]

Das war der Fehler...
Vielen Dank!

Es passte so gut, weil ich in einem anderen Programm gerade das Problem habe, dass er bei selects das Datum komisch formatiert, was er vorher nicht gemacht hat...
Aber hier war das ausschließlich mein Fehler!

Delphi-Quellcode:

   if Length(Edit_Besucher_ID_raus.Text)=7 then begin
      Query_Besucher_raus.SQL.Clear;
      Query_Besucher_raus.SQL.Add('update besucher set weggang=:weggang, pc_weggang=:pc_weggang where besucher_id=:besucher_id');

      Query_Besucher_raus.ParamByName('weggang').AsDateTime:=now;
      Query_Besucher_raus.ParamByName('pc_weggang').AsString:=ComputerName();
      Query_Besucher_raus.ParamByName('besucher_id').AsString:=Edit_Besucher_ID_raus.Text;
      Query_Besucher_raus.Execute;
      Showmessage('Sie '+Edit_Besucher_ID_raus.Text+' wurden erfolgreich abgemeldet');
   end;

Vielen Dank für die Hilfe!!!
Patrick