关闭

VB调用存储过程

1000人阅读 评论(0) 收藏 举报
 Dim adocomm As New ADODB.Command
 Dim prmRetVal As ADODB.Parameter
 Dim prmId As ADODB.Parameter
 
 adocomm.ActiveConnection = conn
 adocomm.CommandType = adCmdStoredProc
 adocomm.CommandText = "sp_del_office_byID"
 
  Set prmRetVal = adocomm.CreateParameter("Param0", adInteger, adParamReturnValue, 0)
  Set prmId = adocomm.CreateParameter("@OfficeID", adInteger, adParamInput, 0)
       
  adocomm.Parameters.Append prmRetVal
  adocomm.Parameters.Append prmId
 
  adocomm.Parameters(1).Value = 0
 
  adocomm.Execute
 
  MsgBox adocomm.Parameters(0).Value
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:132954次
    • 积分:2183
    • 等级:
    • 排名:第18007名
    • 原创:81篇
    • 转载:25篇
    • 译文:0篇
    • 评论:14条
    文章分类
    最新评论