请帮我看看:一个关于存储过程返回参数的问题(老生常谈)
蓝诺 2003-10-15 10:11:35 代码如下:
<Script Language="VB" Runat="Server">
LoginUser=Trim(Request.Form("userid"))
LoginPass=Trim(Request.Form("passwd"))
If Instr(LoginUser,"'") then
MessageBox("对不起,内务没有此用户名!")
End if
If Instr(LoginPass,"'") Then
MessageBox("对不起,内务没有此用户名!")
End if
'连接我的sql数据库
Dim nwindConn As SqlConnection = New SqlConnection("SQLOLEDB.1;Password=13873108205;Persist Security Info=True;User ID=sa;Initial Catalog=systemMDB;Data Source=SPYING")
'调用我的存储过程SP_PROC_GET_USERINFO("第一个参数","第二个参数")
Dim salesCMD As SqlCommand = New SqlCommand("SP_PROC_GET_USERINFO", nwindConn)
salesCMD.CommandType = CommandType.StoredProcedure
'第一个参数(用户名)
Dim myParm1 As SqlParameter = salesCMD.Parameters.Add("@LoginUser", SqlDbType.NVarChar, 20)
myParm1.Value = LoginUser
'第二个参数(密码)
Dim myParm2 As SqlParameter = salesCMD.Parameters.Add("@LoginPass", SqlDbType.NVarChar, 10)
myParm2.Value = LoginPass
nwindConn.Open()
Dim myReader As SqlDataReader = salesCMD.ExecuteReader()
'-----------注意问题所在-------------------
'我怎么得到存储过程返回的值呢!有N个值呢!
'-----------注意问题所在-------------------
myReader.Close()
nwindConn.Close()
Protected Sub MessageBox(ByVal message As String)
' 显示弹出框
RegisterJavaScript(, "window.alert('" & message.Replace(vbCrLf, "") & "');")
End Sub
</Script>