在ADO 中我們可以用 Try adoDataSet.UpdateBatch(); except adoDataSet.CancelBatch; end; 來做Batch Update 但是如我我有三個ADODataSet 要一起更新, 如果任意一個ADODataSet 更新失敗, 則三個更新都要回復 請問要如何做到呢?

我都是用ADOConnection的Begin Tran做的， 不知是否可滿足你的需求，程式碼如下： procedure TForm1.Bt_UpdateClick(Sender: TObject); Var MyConnect:TADOConnection; MyADOCmd:TADOCommand; bCmdSucess:Boolean; begin MyConnect:=TADOConnection.Create(Self); MyADOCmd:=TADOCommand.Create(Self); MyConnect.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;' 'Password="";Data Source=C:\Documents and Settings\sam\My Documents\db1.mdb;' 'Persist Security Info=True'; try MyConnect.Open; except Showmessage('Connect Error!'); end; MyADOCmd.Connection:=MyConnect; bCmdSucess:=True; MyConnect.BeginTrans; try MyADOCmd.CommandText:='';//第一段 MyADOCmd.Execute; MyADOCmd.CommandText:='';//第二段 MyADOCmd.Execute; //......... except bCmdSucess:=False; end; If bCmdSucess Then MyConnect.CommitTrans Else MyConnect.RollbackTrans; MyADOCmd.Free; MyConnect.Free; end;