----先写sql存储过程的文本 Create Procedure CountStoreJye ( @stor_id char(4), @qty int outupt ) as select @qty=select sum(jye) from where stor_id=@stor_id go 'vb程序 private sub callsp() dim cmd as new adodb.command dim parm0 as new ad0db.parameter dim parm1 as new adodb.parameter dim sSQL as string on error goto ErrorHandler screen.mousePointer=vbhourglasscmd.activeconnection=cn '设置命令的活动连接 cmd.commandtype=adcmdstoreproc '设置cmd的文本为存储过程的名称 cmd.commandtext="CountStoreJye" prom0.direction=adparamInput prom0.type=adchar prom0.size=4 cmd.parameters.append parm0 prom1.direction=adparamOutput '为输出型参数 prom1.type=adInteger prom1.size=4 cmd.parameters.append parm1 parm0.value="7676" cmd.execute '以上的设置也可以在这里直接给出 lblMid.Caption="总交易额为:" txtMid=parm1.value screen.mousePointer=vbdefault exit sub ErrorHandler: '........ end sub
Create Procedure CountStoreJye
(
@stor_id char(4),
@qty int outupt
)
as
select @qty=select sum(jye) from where stor_id=@stor_id
go
'vb程序
private sub callsp()
dim cmd as new adodb.command
dim parm0 as new ad0db.parameter
dim parm1 as new adodb.parameter
dim sSQL as string on error goto ErrorHandler
screen.mousePointer=vbhourglasscmd.activeconnection=cn '设置命令的活动连接
cmd.commandtype=adcmdstoreproc '设置cmd的文本为存储过程的名称
cmd.commandtext="CountStoreJye"
prom0.direction=adparamInput
prom0.type=adchar
prom0.size=4
cmd.parameters.append parm0
prom1.direction=adparamOutput '为输出型参数
prom1.type=adInteger
prom1.size=4
cmd.parameters.append parm1
parm0.value="7676"
cmd.execute '以上的设置也可以在这里直接给出
lblMid.Caption="总交易额为:"
txtMid=parm1.value
screen.mousePointer=vbdefault
exit sub
ErrorHandler:
'........
end sub