[请求]关于事务 急!

shidongliang

对表中的数据放到界面更改后再保存到数据库中.
现在又一个问题是:
假如我更改了第一条数据,并且保存后要求同时更新与本条记录相关联的记录,现在的做法是先保存,再在SAVEACTION事件中调用存储过程来更改.假如保存成功,在调用存储过程的时候不成功,是不是会造成数据库数据不正确呢!

急!!

lixy

会有这个风险。

shidongliang

我现在想把保存代码和存储过程放到一个事务里面处理.不知这样写对不对!
procedure TACT_CST.Button1Click(Sender: TObject);
var
   lHandle: TTransactionHandle;
begin
   lHandle := DataSetBrokerBF_ACT_CST.Connection.Transaction.Start(True);
   try
      DataSetBrokerBF_ACT_CST.DataSet.First;
      while not DataSetBrokerBF_ACT_CST.DataSet.Eof do
      begin
         DataSetBrokerBF_ACT_CST.DataSet.Edit;
         DataSetBrokerBF_ACT_CST.DataSet.FieldByName('A_STD_RM_CST').AsString:=sA_STD_RM_CST;

         Query.Close;
         Query.CommandText:='update BF_ACT_CST A set  ';
         Query.Execute;

         DataSetBrokerBF_ACT_CST.DataSet.Post;
         DataSetBrokerBF_ACT_CST.DataSet.Next;
      end;

      StoredProc.Params.ParamByName('s_PROD').AsString :=DataSetBrokerBF_ACT_CST.DataSet.FieldByName('PROD').AsString;
      StoredProc.Params.ParamByName('n_BONUS_IN').AsString :=DataSetBrokerBF_ACT_CST.DataSet.FieldByName('BONUS_IN').AsString;
      StoredProc.Params.ParamByName('s_LOT').AsString :=DataSetBrokerBF_ACT_CST.DataSet.FieldByName('LOT').AsString;
      StoredProc.Params.ParamByName('mark1').AsInteger :=mark1;
      StoredProc.Params.ParamByName('mark2').AsInteger :=mark2;
      StoredProc.Params.ParamByName('mark3').AsInteger :=mark3;
      StoredProc.Params.ParamByName('mark4').AsInteger :=mark4;
      StoredProc.Params.ParamByName('mark5').AsInteger :=mark5;
      StoredProc.Execute;

      DataSetBrokerBF_ACT_CST.Connection.Transaction.Commit(lHandle);
   except
      DataSetBrokerBF_ACT_CST.Connection.Transaction.RollBack(lHandle);
   end;

end;

lixy

这样也不行。存储过程是独立出来的。
http://topic.csdn.net/t/20020723/18/896448.html

shidongliang

你帮我贴一下,我这里上不了CSDN.谢谢!

lixy

把你增加数据的部分也写到存储过程中。 存储过程的事物和程序的事物是独立的，不关联的。