vb 获取动态sql 的返回值。

存储过程是采用动态的sql语句。
SQL code:

...
EXECUTE sp_executesql @StrSql,N'@UserID uniqueidentifier OUTPUT,@SysTime VARCHAR(20) OUTPUT,@EmpCode VARCHAR(5) , @PassWord VARCHAR(8)',@UserID OUTPUT ,@SysTime OUTPUT,@EmpCode,@PassWord
IF ....
BEGIN
RETURN 0
END
...



VB code:

With cmd
Set .ActiveConnection = g_Conn

.CommandType = adCmdStoredProc '设置Command类型为“存储过程”
.CommandText = "P_Attend" '存储过程的名称
'返回型参数
.Parameters.Append .CreateParameter("@RetVal", adInteger, adParamReturnValue)

'传入参数
.Parameters.Append .CreateParameter("@EmpCode", adChar, adParamInput, 5, strEmpCode)
.Parameters.Append .CreateParameter("@PassWord", adChar, adParamInput, 5, strPassWord)

'传入输出型的参数
.Parameters.Append .CreateParameter("@UserID", adGUID, adParamOutput)
.Parameters.Append .CreateParameter("@SysTime", adGUID, adParamOutput)

.Execute
'得到操作结果，登陆成功返回用户ID
Attend= .Parameters("@RetVal").Value
If Attend= 0 Then
UserID = .Parameters("@U