用VB执行带输入输出的存储过程

最新推荐文章于 2016-12-08 09:17:00 发布

原创最新推荐文章于 2016-12-08 09:17:00 发布 · 1.6k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#vb #存储 #insert #table #integer #output

access 专栏收录该内容

14 篇文章

订阅专栏

本文提供了一段使用VB执行SQL存储过程的示例代码，并演示了如何设置输入参数和获取输出参数。代码中实现了日期判断功能，通过调用存储过程并在过程中插入数据，最终返回判断结果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Dim backvalue As Integer                                '返回值
Dim adocmd As New ADODB.Command
adocmd.ActiveConnection = CurrentProject.Connection
adocmd.CommandType = adCmdStoredProc
adocmd.CommandText = "test01"                           'test01 为存储过程名 
adocmd.Parameters.Item("@parameter1").Value = str1      ' 赋值输入参数
adocmd.Parameters.Item("@par2").Value = 0                        
adocmd.Execute

adocmd.Parameters.Item("@par2").Value   '获得输出的参数

以上VB执行代码

ALTER PROCEDURE test01
(@parameter1 varchar(10), @par2 int output) AS

declare @nowtime as varchar(10)

set @nowtime = CONVERT(varchar(100), GETDATE(), 23)

insert  into table1 (bh, zhi)  values(1,@parameter1)
insert  into table1 (bh, zhi)  values(2,@nowtime)
insert  into table1 (bh, zhi)  values(3,@par2)

if (@nowtime  = @parameter1  )
set @par2 = 1
else
set @par2 = 2
return

以上为存储过程，实现日期判断功能