delphi - 「bof または eof のいずれかが true であるか、現在のレコードが削除されています..」削除操作を含む applyupdates のエラー

Question

ClientDatset から TAdoDataset (アクセス テーブルにバインドされている) への削除操作を解決しているときに、このエラーが発生します。Delphi 2010 を使用しています。

TClientDataset と TAdoDataset の間の私の DatasetProvider :

object dspTarifeler: TDataSetProvider
  DataSet = DM.qryTarifeler    
  ResolveToDataSet = True
  Options = [poPropogateChanges, poUseQuoteChar]
end

TDataSetResolver.EndUpdate() によって呼び出されるこの関数でエラーが発生します。

procedure TCustomADODataSet.InternalGotoBookmark(Bookmark: Pointer);
begin
  Recordset.Bookmark := POleVariant(Bookmark)^;
end;

Answer 1

推測できない原因については、削除後、InternalGotoBookmarkのブックマークパラメータが削除されたレコードの位置に移動すると思います...

したがって、Linasソリューションは物事を機能させるでしょう...

しかし、私は他の人に同意します、例外を飲み込むことは悪いです....

Answer 2

プロバイダーをバイパスして、削除操作を手動で適用する必要がありました。デバッグモードでエラーが発生しますが、それで問題ありません。

procedure Tfrm.dspTarifelerBeforeUpdateRecord(Sender: TObject;
  SourceDS: TDataSet; DeltaDS: TCustomClientDataSet; UpdateKind: TUpdateKind;
  var Applied: Boolean);
begin
  if updatekind = ukDelete then
  begin
   if dm.qryTarifeler.Locate('Prefix',DeltaDs['Prefix'],[]) then
      dm.qryTarifeler.Delete;
   applied := true;
  end;
end;

Answer 3

TAdoDataset でも同じ問題が発生しました。何が問題なのかわからないので、メソッドを try except ブロックでオーバーライドしました。

これを試して：

TADODataset = class(ADODB.TADODataSet)
  public
    procedure InternalGotoBookmark(Bookmark: Pointer); override;
  end;

{ TADODataset }

procedure TADODataset.InternalGotoBookmark(Bookmark: Pointer);
begin
  try
    inherited InternalGotoBookmark(Bookmark);
  except

  end;
end;

Answer 4

設定してみる

ResolveToDataSet = False