Passing data between .aspx and .vb files

[vengala s reddy]

i have login.aspx, login.vb, i have my stored procedures in login.vb

in login.aspx
<%@ Page Language="vb" src="/MyTime/com/login.vb"
Inherits="Enter .MyTime"%>

in login.vb
Public Sub EnterMyTime(ByV al ID As String, ByVal PWD As String)as
dataset

Now i am trying to read the output variables data from login.aspx.
i could not do it. Is there any easy way to use sqlDataReader insted
of Returning a DataSet.

THX.

[Stanley]

Subs do not return anything so your syntax is incorrect. Show more of your
code so we can show you what to change.

-Stanley

"vengala s reddy" <re******@yahoo .com> wrote in message
news:b9******** *************** ***@posting.goo gle.com...

i have login.aspx, login.vb, i have my stored procedures in login.vb

in login.aspx
<%@ Page Language="vb" src="/MyTime/com/login.vb"
Inherits="Enter .MyTime"%>

in login.vb
Public Sub EnterMyTime(ByV al ID As String, ByVal PWD As String)as
dataset

Now i am trying to read the output variables data from login.aspx.
i could not do it. Is there any easy way to use sqlDataReader insted
of Returning a DataSet.

THX.

[VSKR]

Public Function EnterMyTime(ByV al ID As String, ByVal PWD As String) As
SqlDataReader
Dim msg
Dim MyConn As New SqlConnection(" Password=;Persi st Security
Info=True;User ID=;Initial Catalog=;Data Source=;")
Dim cmd As SqlCommand = New SqlCommand("Che ckLogin", MyConn)
cmd.CommandType = CommandType.Sto redProcedure

Dim userID As SqlParameter = cmd.Parameters. Add("@uid",
SqlDbType.VarCh ar, 50)
userID.Value = ID
userID.Directio n = ParameterDirect ion.Input

Dim password As SqlParameter = cmd.Parameters. Add("@pwd",
SqlDbType.VarCh ar, 50)
password.Value = PWD
password.Direct ion = ParameterDirect ion.Input

Dim status As SqlParameter = cmd.Parameters. Add("@status",
SqlDbType.VarCh ar, 2)
status.Directio n = ParameterDirect ion.Output

Dim paySchedule As SqlParameter =
cmd.Parameters. Add("@paysch", SqlDbType.VarCh ar, 2)
paySchedule.Dir ection = ParameterDirect ion.Output

Dim empID As SqlParameter = cmd.Parameters. Add("@id",
SqlDbType.VarCh ar, 2)
empID.Direction = ParameterDirect ion.Output

MyConn.Open()
Dim result As SqlDataReader =
cmd.ExecuteRead er(CommandBehav ior.CloseConnec tion)
'MyConn.Close()
Return result

*** Sent via Developersdex http://www.developersdex.com ***
Don't just participate in USENET...get rewarded for it!