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

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 

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