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
以上为存储过程,实现日期判断功能
原文地址:https://www.jb51.cc/vb/261083.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。