TClientDatasetデータベーステーブルの制約のためにApplyUpdatesエラーが発生しました

Question

データベーステーブルからデータを読み込んで多数の演算と計算を行い、最後にレコードをデスティネーションテーブルに書き込む古いDelphi 7アプリケーションがあります。

この古いアプリケーションでは、パフォーマンスの理由から、の500レコードごとにApplyUpdatesが呼び出されます。

問題は、時には、データベースの制約を引き起こすレコードの束があることです。 Delphiは例外をApplyUpdatesで発生させます。

私の問題は私には分かりませんこのレコードの責任はです。候補者は500人です！

問題のレコードであるTClientDatasetに問い合わせることはできますか？

私はスピードの問題のために追加されたレコードをforeupに更新したくありません。

Answer 1

データセットに適用できなかったレコードごとに1回呼び出されるOnReconcileErrorイベントを実装しようとすると思います。だから私は、次のコードをしようと、raSkipは、現在のレコードをスキップするには、ここを意味します

procedure TForm1.ClientDataSet1ReconcileError(DataSet: TCustomClientDataSet; 
    E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction); 
begin 
    Action := raSkip; 
    ShowMessage('The record with ID = ' + DataSet.FieldByName('ID').AsString + 
    ' couldn''t be updated!' + sLineBreak + E.Context); 
end; 

しかし、注意してくださいし、私は前にこれを試したことがないと私はそれがエラーを無視するには遅すぎないかどうかわからないんだけどApplyUpdates関数によって呼び出されます。言及を忘れて、渡されたパラメータDataSetを使用して、更新できなかったレコードを含めるようにしてください。どのレコードが問題を引き起こしたのかを判断する方法かもしれません。

hereには、ワークフローを適用している更新が記載されています。

Answer 2

OnReconcileErrorを実装すると、例外の原因となるレコードとデータにアクセスできます。これを簡単に行うには、「エラー・ダイアログの調整」を追加します。これは、[ファイル|新規アイテム]ダイアログに表示される[新規アイテム]ダイアログにあります。新しい|その他。プロジェクトに追加したら、clientdatasetを使用してフォームに使用します。次のコードは、その呼び出し方法を示しています。

procedure TForm1.ClientDataSetReconcileError(DataSet: TCustomClientDataSet; 
    E: EReconcileError; UpdateKind: TUpdateKind; 
    var Action: TReconcileAction); 
begin 
    Action := HandleReconcileError(DataSet, UpdateKind, E); 
end; 

例外ダイアログの代わりに表示されます。問題のあるデータを表示し、進捗状況を選択することができます。私が最後に使ってから5年以上経ちましたが、私は細部を忘れていないことを願っています。