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