TUpdateSQL可否一次更新二個Table

資料庫為Oracle 10G
Queryq.Sql 內容如下
Select MOICAS.CRSMS.RM01,MOICAS.CRSMS.RM02,MOICAS.CRSMS.RM03 ,RM07_1,RM07_2 ,RM13,RM16 ,RM20 ,RM21 ,RM22
,RM30,RM55,RM57,SCORE
From MOICAS.CRSMS INNER JOIN MOICAS.CRSMS_A
ON (MOICAS.CRSMS.RM03 = MOICAS.CRSMS_A.RM03)
AND (MOICAS.CRSMS.RM02 = MOICAS.CRSMS_A.RM02)
AND (MOICAS.CRSMS.RM01 = MOICAS.CRSMS_A.RM01)
Where (RM30='R' OR RM30='C' ) And RM55 is not null

TUpdateSQL.ModifySQL 如要一次更新二個Table,
如下語法會發生錯誤,

請問該如何一次更新二個Table,或是否可以全部自己寫程式來更新,
那應該寫在那?
謝謝各位前輩!!

Update MOICAS.CRSMS

Set RM55 = :RM55 ,RM57 = :RM57

Where RM01= :RM01
And RM02= :RM02
And RM03= :RM03;

Update MOICAS.CRSMS

Set RM55 = :RM55 ,RM57 = :RM57

Where RM01= :RM01
And RM02= :RM02
And RM03= :RM03;

TUpdateSQL 不符您需求, 一句 SQL 不能同時 Update 多檔. 須以 UpdateSQL Update 一個無用處的檔, 再另用 StoredProc 做真正的 Update 與 Transection 控制.

你可以用多個 TUpdateSQL 處理，Query1  的 UpdateObject 不要設定
然後在 Query1.OnUpdateRecord 自己做處理
procedure TForm1.Query1UpdateRecord(DataSet: TDataSet; UpdateKind: TUpdateKind; var UpdateAction: TUpdateAction);
begin
UpdateSQL1.DataSet := Query1;
UpdateSQL1.SetParams(UpdateKind);
UpdateSQL1.ExecSQL(UpdateKind);

UpdateSQL2.DataSet := Query1;
UpdateSQL2.SetParams(UpdateKind);
UpdateSQL2.ExecSQL(UpdateKind);

UpdateAction := uaApplied;
end;

大致上是這樣，自己試試看

------
http://blog.bestlong.idv.tw/
http://www.bestlong.idv.tw/
http://delphi-ktop.bestlong.idv.tw/