DBGridで複数テーブルの場合に更新するには？ (ID：40615)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

HOtaさん、返信ありがとうございます。

＞ただ、このテーブルの作り方は、もっと考えたほうがいいのではと思います。
＞キーとデーターは分けたほうがあとあと使いやすくなります。

テーブルを作る際に、キーとデータは分けたほうがいいんですね・・。
ありがとうございます。

＞また、BDEは開発が停止していますの

そうなんですね。。
学校での宿題で複数テーブルで操作できるような課題を課されました。。

早速回答してもらった通り試したところ、一度目はうまくUpdateすることができたのですが、２度目以降うまく「アップデート失敗」というエラーがでて、Updateすることができません・・・。

また、色々と試したところ、名前が置いてあるテーブルはUpdateできますが、Classが置いてあるテーブルではUpdateできませんでした。

下記に関係ありそうなソースを書いてておきます。。

◯データモジュールのQueryのソース

procedure TDataModule1.Query2UpdateRecord(DataSet: TDataSet;
  UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
  DataModule1.UpdateSQL2.Apply(UpdateKind);
  DataModule1.UpdateSQL3.Apply(UpdateKind);
  UpdateAction := uaApplied ;
end;

procedure TDataModule1.Query2UpdateError(DataSet: TDataSet;
  E: EDatabaseError; UpdateKind: TUpdateKind;
  var UpdateAction: TUpdateAction);
begin
  Query2.CancelUpdates ;
end;

◯Unitでのソース

procedure TForm3.FormCreate(Sender: TObject);
begin
  DataModule1.UpdateSQL2.DataSet := DataModule1.Query2 ;
  DataModule1.UpdateSQL3.DataSet := DataModule1.Query2 ;
end;

procedure TForm3.Button2Click(Sender: TObject);
begin
   with DataModule1.Query2 do begin
    ApplyUpdates ;
    CommitUpdates ;
    Close ;
    Active := True ;
   end;
end;

お手数ですが、よろしくお願いします。

←解決時は質問者本人がここをチェックしてください。

戻る