QUOTE:
SQL SERVER 联机丛书中的定义: 存储过程是保存起来的可以接受和返回用户提供的参数的 Transact-SQL 语句的集合。 可以创建一个过程供永久使用,或在一个会话中临时使用(局部临时过程),或在所有会话中临时使用(全局临时过程)。 也可以创建在 Microsoft SQL Server 启动时自动运行的存储过程。
QUOTE:
CREATE PROC 存储过程名称 [参数列表(多个以“,”分隔)] AS SQL 语句
QUOTE:
CREATE PROC upGetUserName @intUserId INT, @ostrUserName NVARCHAR(20) OUTPUT -- 要输出的参数 AS BEGIN -- 将uName的值赋给 @ostrUserName 变量,即要输出的参数 SELECT @ostrUserName=uName FROM uUser WHERE uId=@intUserId END
QUOTE:
Dim adoComm '// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") With adoComm '// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn '// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 '// 存储过程名称 .CommandText = "upGetUserName" '// 设置用户编号 .Parameters.Item("@intUserId").Value = 1 '// 执行存储过程 .Execute '// 取得从存储过程返回的用户名称 Response.Write "用户名:" & .Parameters.Item("@ostrUserName").Value End With '// 释放对象 Set adoComm = Nothing
QUOTE:
CREATE PROC upUserLogin @strLoginName NVARCHAR(20), @strLoginPwd NVARCHAR(20), @blnReturn BIT OUTPUT AS -- 定义一个临时用来保存密码的变量 DECLARE @strPwd NVARCHAR(20) BEGIN -- 从表中查询当前用户的密码,赋值给 @strPwd 变量,下面要对他进行比较 SELECT @strPwd=uLoginPwd FROM uUser WHERE uLoginName=@strLoginName IF @strLoginPwd = @strPwd BEGIN SET @blnReturn = 1 -- 更新用户最后登录时间 UPDATE uUser SET uLastLogin=GETDATE() WHERE uLoginName=@strLoginName END ELSE SET @blnReturn = 0 END
QUOTE:
Dim adoComm '// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") With adoComm '// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn '// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 '// 存储过程名称 .CommandText = "upUserLogin" '// 设置登录名称 .Parameters.Item("@strLoginName").Value = "admin" '// 设置登录密码 .Parameters.Item("@strLoginPwd").Value = "123456" '// 执行存储过程 .Execute '// 判断是否登录成功 If .Parameters.Item("@blnReturn").Value = 1 Then Response.Write "恭喜你,登录成功!" Else Response.Write "不是吧,好像错了哦。。。" End If End With '// 释放对象 Set adoComm = Nothing
QUOTE:
CREATE PROC upGetUserInfos @intUserGroup INT AS BEGIN -- 从数据库中抽取符合条件的数据 SELECT uName,uGroup,uLastLogin FROM uUser WHERE uGroup=@intUserGroup -- 插入一列合计 UNION SELECT '合计人数:',COUNT(uGroup),NULL FROM uUser WHERE uGroup=@intUserGroup END
QUOTE:
Dim adoComm Dim adoRt '// 创建一个对象,我们用来调用存储过程 Set adoComm = CreateObject("ADODB.Command") Set adoRs = CreateObject("ADODB.Recordset") With adoComm '// 设置连接,设 adoConn 为已经连接的 ADODB.Connection 对象 .ActiveConnection = adoConn '// 类型为存储过程,adCmdStoredProc = 4 .CommandType = 4 '// 存储过程名称 .CommandText = "upGetUserInfos" '// 设置用户组 .Parameters.Item("@intUserGroup").Value = 1 '// 执行存储过程,和以上几个例子不同,这里使用RecordSet的Open方法 adoRs. Open adoComm '// 显示第一个值 Response.write adoRs.Fields(0).Value End With '// 释放对象 Set adoRs = Nothing Set adoComm = Nothing