请帮我看看：一个关于存储过程返回参数的问题（老生常谈）

[蓝诺]

代码如下：
<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>

[webdiyer]

C#:

while(myReader.Read()){
//获取选取的第一列的值，假设类型为varchar
string firstCol=myReader.GetString(0);
}

[saucer]

1. you are not adding those parameters to salesCMD's Parameters collection

>>>存储过程返回的值?? or recordset??

for 返回值, you need to add appropriate Output parameters to the salesCMD.Parameters, close the reader , then use salesCMD.Parameters["parameterName"].Value to get their values

[蓝诺]

思归：
你是说我要定义一个output的输出参数值。
myParm3 = salesCMD.Parameters.Add("@LoginName", SqlDbType.Nvarcher, 0, "LoginName")
myParm3.Direction = ParameterDirection.Output
这样我就可以带出一个返回值@LoginName吗？

[蓝诺]

<%@ Page language="VB" debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.SqlClient" %>
<script language="VB" runat="server">
Dim LoginUser as string,LoginPass as string
dim objreader as SqlDataReader
dim myCommand1 as SqlCommand
dim objparam as Sqlparameter
sub Page_Load(src as Object ,e as EventArgs)
LoginUser=Trim(Request.Form("userid"))
LoginPass=Trim(Request.Form("passwd"))
dim myConnection as new Sqlconnection("server=SPYING;database=wwwspacennet;User id=sa;Password=5518008")
myConnection.Open()

myCommand1= new SqlCommand("SP_PROC_GET_USERINFO", myConnection)

myCommand1.CommandType = CommandType.StoredProcedure

objparam=myCommand1.Parameters.Add("@LoginUser", SqlDbType.VarChar,20)
objparam.Direction=ParameterDirection.Input
objparam.Value = LoginUser

objparam=myCommand1.Parameters.Add("@LoginPass", SqlDbType.VarChar,10)
objparam.Direction=ParameterDirection.Input
objparam.Value = LoginPass

objparam=myCommand1.Parameters.Add("@LoginName", SqlDbType.VarChar,20)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

objparam=myCommand1.Parameters.Add("@LoginDepa", SqlDbType.VarChar,30)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

objparam=myCommand1.Parameters.Add("@LoginPope", SqlDbType.VarChar,200)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

objparam=myCommand1.Parameters.Add("@LoginGrad", SqlDbType.Int,4)
objparam.Direction=ParameterDirection.Output
objparam.Value = 0

objparam=myCommand1.Parameters.Add("@LoginId", SqlDbType.VarChar,4)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

objparam=myCommand1.Parameters.Add("@LoginSex", SqlDbType.VarChar,2)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

objparam=myCommand1.Parameters.Add("@LoginNum", SqlDbType.Int,4)
objparam.Direction=ParameterDirection.Output
objparam.Value = 0

objparam=myCommand1.Parameters.Add("@LoginTrue", SqlDbType.Int,4)
objparam.Direction=ParameterDirection.Output
objparam.Value = 0

objparam=myCommand1.Parameters.Add("@ErrMsg", SqlDbType.VarChar,255)
objparam.Direction=ParameterDirection.Output
objparam.Value = ""

try
objreader=myCommand1.ExecuteReader()
Do While objreader.Read()
Message.value=objreader.GetString(0)
Loop
lbl.Text=objreader("ID")
catch ex as Exception
end try
usrGrid.DataSource=objreader
usrGrid.DataBind()

end sub
</script>
<body>
<form runat="server">
<asp:Label id="lbl" runat="server" /><INPUT type="text" Id="Message" runat="server">
<asp:DataGrid id="usrGrid" runat="server" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" AutoGenerateColumns="true" AllowPaging="True" AllowCustomPaging="True" PageSize="5" PagerStyle-Mode="NumericPages" PagerStyle-HorizontalAlign="Right" />
</form>
</body>

[saucer]

of course, but in your sp, you need to do something like

@LoginName nvarchar(10) OUTPUT

[rgbcn]

帮你顶一顶

[蓝诺]

本人已解决!结贴!多谢各位!