用VB执行带输入输出的存储过程
发布时间:2020-12-16 22:52:09 所属栏目:大数据 来源:网络整理
导读:Dim backvalue As Integer '返回值Dim adocmd As New ADODB.Commandadocmd.ActiveConnection = CurrentProject.Connectionadocmd.CommandType = adCmdStoredProcadocmd.CommandText = "test01" 'test01 为存储过程名 adocmd.Parameters.Item("@parameter1").
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 '获得输出的参数
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 以上为存储过程,实现日期判断功能 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |