SQL server 系统储存过程在VB中的应用

王朝mssql·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

以锁定应用程序资源(sp_getapplock / sp_releaseapplock)为例:

sp_getapplock没有返回参数(output类型的),只是在SP中用return来返回值

加锁:

Dim cmd As ADODB.Command

Set cmd = New ADODB.Command

cmd.ActiveConnection = cnn

cnn.BeginTrans

cnn.Execute "use master"

cmd.CommandType = adCmdStoredProc

cmd.CommandText = "sp_getapplock"

系统识别格式为:'"{ ? = call sp_getapplock(?,?,?,?) }"

cmd.Prepared = True

cmd.Parameters(1) = "lock name" '资源锁的名称

cmd.Parameters(2) = "Exclusive"

cmd.Parameters(3) = "Transaction"

cmd.Parameters(4) = 0 '用于接收SP 中return关键字返回的值

cmd.Execute

MsgBox cmd.Parameters(0) 'display return value

解锁:

Dim cmd As ADODB.Command

Set cmd = New ADODB.Command

cmd.ActiveConnection = cnn

cmd.CommandType = adCmdStoredProc

cmd.CommandText = "sp_releaseapplock"

cmd.Parameters(1) = "lock name" '被锁资源名称

cmd.Parameters(2) = "Transaction"

cmd.Execute

MsgBox cmd.Parameters(0)

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航