FireDAC Merkwürdigkeiten

[haentschman]

Hallöle...

Wieder was zum Schmunzeln...oder auch nicht.

Wie geht das?

Zitat:

compiled with : Delphi 10.1 Berlin
madExcept version : 5.1.0
callstack crc : $172ecbca, $cf2706b0, $b3928f31
exception number : 1
exception class : EDatabaseError
exception message : FDQery: Datenmenge weder im Editier- noch im Einfügemodus.

thread $47e8:
00789565 +0c9 SEAM.exe Data.DB 3268 +7 DatabaseError
007a05e5 +035 SEAM.exe Data.DB 13661 +1 TDataSet.UpdateRecord
007a163a +006 SEAM.exe Data.DB 14364 +1 TDataSet.Post
0082826d +029 SEAM.exe FireDAC.Comp.DataSet 5006 +6 TFDDataSet.Post
036895f0 +0cc SEAM.exe DMEdit 4034 +7 TDM.FillLastEmployee
036a46d9 +0c1 SEAM.exe DMEdit 7242 +6 TDM.FDQTerminAfterPost
007a273d +015 SEAM.exe Data.DB 15019 +1 TDataSet.DoAfterPost
007a16a9 +075 SEAM.exe Data.DB 14374 +11 TDataSet.Post
0082826d +029 SEAM.exe FireDAC.Comp.DataSet 5006 +6 TFDDataSet.Post
007a247d +041 SEAM.exe Data.DB 14901 +7 TDataSet.CheckBrowseMode

Delphi-Quellcode:

procedure TDM.FillLastEmployee(ID: Integer; Employee, TerminDate: string);
begin
  FDQuery.Locate('idBelKopf', ID, []);
  if FDQuery.State = dsBrowse then
  begin
    FDQuery.Edit;
    FDQuery.FieldByName('Monteur').AsString := Employee;
    FDQuery.FieldByName('MonPlan').AsString := TerminDate;
    FDQuery.Post; // <- Zeile 4034
  end;
end;