Datum wird falsch in der Tabelle gespeichert

[Captnemo]

Hi,

Ich habe folgende Szenario:

MSSQL 2005 Express Edition, XE2 und Datenzugriff über dbGo-ADOConnection.

Eine Tabelle namens "Rechnung" und darin mehrere Fehlder, unter anderem das Feld "Rechnungsdatum" vom Typ datetime.

Ich speichere die Daten über ein ADOQuery.

Delphi-Quellcode:

ADOQuery.SQL.Text='Update Rechnung SET rechnungsdatum=:datum where Rechnungsnummer=:renr';
ADOQuery.Parameter.ParseSQL(ADOQuery.SQL.Text, True);
ADOQuery.Parameter.ParamValue['datum']:=now;
ADOQuery.Parameter.ParamValue['renr']:='RE12345678';
ADOQuery.ExecSQL;

Funktioniert soweit, bis auf das Datum.
Wenn ich jetzt das ganze ausführe, also mit dem Datum 24.10.2012, dann steht hinterher in der DB 26.10.2012. Die Uhrzeit stimmt erstaunlicherweise.
Woran könnte das liegen?

[Gollum]

Hallo,

warum nimmst Du zum Speichern/Updaten der Daten kein ADOCommand. Dieses ist eigentlich dafür gedacht.

Ich mache es eigentlich immer so und hatte bis dato keine Probleme.

Delphi-Quellcode:

  ADOCommand.CommandText:='Update Rechnung SET rechnungsdatum=:datum where Rechnungsnummer=:renr';
  ADOCommand.Parameters.ParamByName('datum').Value:=Date();
  ADOCommand.Parameters.ParamByName('renr').Value:='RE12345678';
  ADOCommand.Execute();

[mkinzler]

Stimmt das Datum am Server?

[Popov]

@Captnemo

Das mit Datum und Now ist so eine Sache. Man weiß nie ob der Server mit den Datumsformat des Clients etwas anfangen kann. Erfahrungsgemäß funktioniert es sogar sehr oft, aber eher nur zufällig.

[Bummi]

Das Datum in basiert auf 0=30.12.1899, beim SQLServer 0=1900-01-01 00:00:00.000
Caption := DateTimeToStr(0);
Select Cast(0 as dateTime)

Scheinbar wird Dein Parametertyp interpretiert als

ADOQuery1.Parameters.ParamByName('datum').DataType := ftFloat;

versuch mal was passiert wenn Du ihn setzt:

ADOQuery1.Parameters.ParamByName('datum').DataType := ftDateTime;

Delphi-Quellcode:

ADOQuery1.SQL.Text:='Update Adressen SET geboren=:datum where ID=:ID';
ADOQuery1.Parameters.ParseSQL(ADOQuery1.SQL.Text, True);
ADOQuery1.Parameters.ParamByName('datum').DataType := ftFloat;  // 2 Tage Fehler
ADOQuery1.Parameters.ParamByName('datum').DataType := ftdateTime;  // kein Fehler
ADOQuery1.Parameters.ParamByName('datum').Value:=now;
ADOQuery1.Parameters.ParamByName('ID').Value:=2876;
ADOQuery1.ExecSQL;

[Captnemo]

Bummi hat's gelöst ;-)

Zumindest hat mein erster Test erfolgreich funktioniert.

Danke an alle.