咏南中间件支持客户端控制数据库事务

咏南中间件支持客户端控制数据库事务

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

procedure TForm1.Button3Click(Sender: TObject); var   transId: string; begin   // 执行非查询SQL   transId := CreateClassID;  //事务id，必须是唯一的   ynDataSet1.BeginTrans(transId); // 开启事务     ynDataSet1.Close;   ynDataSet1.SQL.Clear;   ynDataSet1.SQL.Add('update tunit set unitname=''hh'' where unitid=:unitid');   ynDataSet1.Parameters.ParamByName('unitid').AsString := '1';   ynDataSet1.ExecSQL(transId);     ynDataSet1.Close;   ynDataSet1.SQL.Clear;   ynDataSet1.SQL.Add('update tgoods set goodsname=''hh'' where goodsid=:goodsid');   ynDataSet1.Parameters.ParamByName('goodsid').AsString := '100050';   ynDataSet1.ExecSQL(transId);     ynDataSet1.CommitTrans(transId);     //提交事务 //  ynDataSet1.RollbackTrans(transId);   //回滚事务 end;