Liebe Programmierer,
In folgenden Programmiercode habe ich die Variable Heute (tdatetime) diese wird mit dem Wert NOW deklariert und soll in der Datenbank gespeichert werden.
Der Updatebefehl ist jedoch fehlerhaft.
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
Heute: tdatetime;
begin
if cb_dublikat.Checked = true then
begin
showmessage('Dublikat wird gedruckt');
end else begin
Heute:= now();
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.Add('select * from Lieferscheine where Lieferschein ="'+makierterLieferschein+'"');
adoquery1.open;
if adoquery1.FieldValues['RDatum'] > 1 then begin
adoquery1.close;
adoquery1.sql.clear;
adoquery1.sql.Add('update from Lieferscheine set RDatum = '+datetostr(Heute)+' where Lieferschein ="'+makierterLieferschein+'"');
adoquery1.execsql;
adoquery1.close;
end else begin
If Messagedlg('Diese Rechnung wurde bereits ausgegeben. Möchten Sie ein Dublikat ausstellen?', mtConfirmation, [mbYes,mbNo],0) = mrYes then
begin
showmessage('Dublikat wird gedruckt');
end;
end;
end;
end;