SQL server 存儲過程的建立和調用

--1.1準備測試需要的資料庫:test,數據表:物料表,採購表
if not exists (select * from master.dbo.sysdatabases where name='test')
create database test
go
use test
go

if object_id('test..物料表') is null
begin
create table 物料表(編號 varchar(6),名稱  varchar(40),類別  varchar(20))

insert into 物料表
select 'A00001','46寸電視機','電視機' union all
select 'A00002','52寸電視機','電視機' union all
select 'A00003','60寸電視機','電視機' union all
select 'A00004','39寸電視機','電視機' union all
select 'A00005','16升洗衣機','洗衣機' union all
select 'A00007','美的1匹空調','空調' union all
select 'A00008','格力1匹空調','空調'

select * from 物料表
end

if object_id('test..採購表') is null
begin
create table 採購表(編號 varchar(6),名稱  varchar(40),單價 numeric(10,2),數量 int,小計 numeric(10,2),日期 datetime)

insert into 採購表
select 'A00001','46寸電視機',5000.00,10,5000*10,'2016-10-01' union all
select 'A00002','52寸電視機',5500.00,20,5500*20,'2016-10-02' union all
select 'A00003','60寸電視機',6500.00,10,6500*10,'2016-10-03' union all
select 'A00004','39寸電視機',3000.00,10,3000*10,'2016-10-04' union all
select 'A00005','16升洗衣機',1500.00,10,1500*10,'2016-10-04' union all
select 'A00007','美的1匹空調',2500.00,20,2500*20,'2016-10-05' union all
select 'A00008','格力1匹空調',2800.00,10,2800*10,'2016-10-05'

select * from 採購表
end

--1.2 建立1個修改物料表名稱的存儲過程，同時更新採購表名稱（註意：建立存儲過程的語句，要單獨分開執行，即不能和上面建立測試環境的語句在一起）
create proc dbo.update_wl(@bh varchar(6),@mc varchar(40),@ut int output)
as
begin
declare @rs int
set @ut=1
  begin transaction
    update 物料表 set 名稱=@mc where 編號=@bh
    set @ut=@@rowcount
    if @ut> 0 --@@rowcount為系統變數，影響行數，大於0表示更新成功，同步採購表
    begin
      if exists(select 編號 from 採購表 where 編號=@bh) --如果採購表存在改編號記錄，同步
      begin   
        update 採購表 set 名稱=@mc where 編號=@bh
        set @ut=@@rowcount  --如果同步成功，必定返回大於0值
      end
    end
  
    if @ut > 0 
     commit
    else
     rollback transaction
end

--1.3 在SQL2000 中的調用方法
declare @bh varchar(6),@mc varchar(40),@ut int
set @bh='a00002'
set @mc='49寸電視機'

exec update_wl @bh,@mc,@ut output
select @ut
select * from 物料表
select * from 採購表

--只增加1個物料，採購沒數據
--insert into 物料表
--select 'A00009','美的2匹空調','空調'

set @bh='a00009'
set @mc='美的2匹空調'

exec update_wl @bh,@mc,@ut output
select @ut
select * from 物料表
select * from 採購表

dbo.update_wl(@bh varchar(6),@mc varchar(40),@ut int output)
這個存儲過程，是帶參數返回值的，如果返回值大於0，表示更新成功。
相當執行了2條命令
update 物料表 set 名稱=@mc where 編號=@bh
update 採購表 set 名稱=@mc where 編號=@bh
但用存儲過程，使用了事務，當2條語句都成功執行時，才都執行，要是第2條，沒成功執行時，會回滾

**在VFP中調用
local bh,mc,ut
bh='A00002'
mc='49寸電視機'
ut=0
sqlexec(句柄,'exec update_wl ?bh,?mc,?@ut')
?ut &&查看返回值，0為沒更新，大於0為更新

-- SQL2000中調用，'B00002'是物料表中沒有的，此時，返回值 0
declare @bh varchar(6),@mc varchar(40),@ut int
set @bh='B00002'
set @mc='49寸電視機'

exec update_wl @bh,@mc,@ut output
select @ut
select * from 物料表
select * from 採購表

-- 1.4 存在過程的修改，在SQL2000中進行，把 create 改為 alter 就可以。
alter proc dbo.update_wl(@bh varchar(6),@mc varchar(40),@ut int output)
 as
 begin
 declare @rs int  --此行多餘
 set @ut=1
   begin transaction
     update 物料表 set 名稱=@mc where 編號=@bh
     set @ut=@@rowcount
     if @ut> 0 --@@rowcount為系統變數，影響行數，大於0表示更新成功，同步採購表
    begin
       if exists(select 編號 from 採購表 where 編號=@bh) --如果採購表存在改編號記錄，同步
      begin   
         update 採購表 set 名稱=@mc where 編號=@bh
         set @ut=@@rowcount  --如果同步成功，必定返回大於0值
      end
     end
   
     if @ut > 0 
      commit
     else
      rollback transaction
 end

** 1.5 在VFP中，創建SQL2000的存儲過程
TEXT TO lcSqlStr TEXTMERGE  NOSHOW PRETEXT 4
create proc dbo.update_wl(@bh varchar(6),@mc varchar(40),@ut int output)
  as
  begin
  declare @rs int  --此行多餘
 set @ut=1
    begin transaction
      update 物料表 set 名稱=@mc where 編號=@bh
      set @ut=@@rowcount
      if @ut> 0 --@@rowcount為系統變數，影響行數，大於0表示更新成功，同步採購表
    begin
        if exists(select 編號 from 採購表 where 編號=@bh) --如果採購表存在改編號記錄，同步
      begin   
          update 採購表 set 名稱=@mc where 編號=@bh
          set @ut=@@rowcount  --如果同步成功，必定返回大於0值
      end
      end
    
      if @ut > 0 
       commit
      else
       rollback transaction
  end
ENDTEXT
?SQLEXEC(句柄,lcSqlStr)
**就這麼簡單

LOCAL lcSql,lcServer,lcUid,lcPwd,lcPwd,lnHandle

lcServer = "atm8505"
lcUid = "sa"
lcPwd = "123456"
lcDbs = "test"
**把上面的參數，改為你自己的

lcSql=[driver=sql server;server=] + lcServer + [;uid=] + lcUid + [;pwd=] + lcPwd + [;database=] + lcDbs
lnHandle=sqlstringconnect(lcSql)

LOCAL bh,mc,ut
bh='A00002'
mc='49寸電視機'
ut=0

IF lnHandle > 0
?ut && 輸出 0
   SQLEXEC(lnHandle,'exec update_wl ?bh,?mc,?@ut')
?ut && 更新成功，輸出大於1 
ENDIF

*還有1種調用，用 call

IF lnHandle > 0
?ut && 輸出 0
   SQLEXEC(lnHandle,"{call update_wl(?bh,?mc,?@ut)}")
?ut && 更新成功，輸出大於1 
ENDIF