DELPHI中用ADOStoredProc取出SQL储存过程中的变量,该如何处理
DELPHI中用ADOStoredProc取出SQL储存过程中的变量
用ADOQUERY我知道怎么搞,但用adostoredproc就不会了.先谢了.
CREATE proc vertex_sg_jcjb
@jc char(3),
@rq char(10),
AS
declare @ax int
set xact_abort on
BEGIN TRANSACTION
begin
update sg_bld set sg_bld.结存=@jc where convert(varchar(7),sg_bld.出库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@@error
update sg_lld set sg_lld.结存=@jc where convert(varchar(7),sg_lld.出库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@ax+@@error
update sg_rkd set sg_rkd.结存=@jc where convert(varchar(7),sg_rkd.入库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@ax+@@error
update sg_sld set sg_sld.结存=@jc where convert(varchar(7),sg_sld.收料日期,121)=@rq
if @@error<>0
begin
用ADOQUERY我知道怎么搞,但用adostoredproc就不会了.先谢了.
CREATE proc vertex_sg_jcjb
@jc char(3),
@rq char(10),
AS
declare @ax int
set xact_abort on
BEGIN TRANSACTION
begin
update sg_bld set sg_bld.结存=@jc where convert(varchar(7),sg_bld.出库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@@error
update sg_lld set sg_lld.结存=@jc where convert(varchar(7),sg_lld.出库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@ax+@@error
update sg_rkd set sg_rkd.结存=@jc where convert(varchar(7),sg_rkd.入库日期,121)=@rq
if @@error<>0
begin
rollback tran
return
end
set @ax=@ax+@@error
update sg_sld set sg_sld.结存=@jc where convert(varchar(7),sg_sld.收料日期,121)=@rq
if @@error<>0
begin