PL/SQL

最新推荐文章于 2024-08-12 10:43:45 发布

anggentuan0803

最新推荐文章于 2024-08-12 10:43:45 发布

阅读量114

点赞数

原文链接：http://www.cnblogs.com/yijieyufu/p/11360667.html

版权

接ACID转账事务的代码
 
  CREATE PROCEDURE sp_transfer_money3  
 
   @out_cardno char(20),  
 
   @in_cardno char(20),  
 
   @money numeric(18,2)  
 
  as  
 
  BEGIN  
 
   DECLARE @remain numeric(18,2)  
 
   select @remain=money from account where cardno=@out_cardno  
 
   if @remain>@money  
 
   BEGIN  
 
   BEGIN TRANSACTION T1  
 
   update account set money = money-@money where cardno=@out_cardno  
 
   update account set money = money+@money where cardno=@in_cardno PRINT '转账成功.'  
 
   if @remain>@money  
 
   begin  
 
   rollback transaction  
 
   end  
 
   COMMIT TRANSACTION T1  
 
   END  
 
   ELSE  
 
   BEGIN  
 
   PRINT '余额不足.'  
 
   END  
 
  END  
 
  EXEC sp_transfer_money3 '01','02',100.0