Ver Mensaje Individual
  #3 (permalink)  
Antiguo 08/02/2005, 07:12
rfgb1976
 
Fecha de Ingreso: enero-2005
Mensajes: 103
Antigüedad: 20 años, 1 mes
Puntos: 0
Problema Paso de Parametros

Gracias xknown.. mira aqui te va el codigo que ocupo para la autentificacion, los datos los extraigo de una base de datos, donde se encuentran los usuarios y sus respectivas password.

Sub LoginBtn_Click(Sender As Object, E As EventArgs)
If Page.IsValid Then
Dim userDS As New System.Data.DataSet
userDS = Autentificacion(UserName.Text, UserPass.Text)
If userDS.Tables(0).Rows.Count = 1 Then
FormsAuthentication.RedirectFromLoginPage(UserName .Text, false)
Else
Msg.Text = "Autentificacion Incorrecta, Intente de Nuevo"
End If
End If
End Sub

Function Autentificacion (ByVal usuario As String, ByVal usuarioPwd As String) As System.Data.DataSet
Dim connectionString As String = "server='(local)'; trusted_connection=true; database='Memo'"
Dim dbConnection As System.Data.IDbConnection = New System.Data.SqlClient.SqlConnection(connectionStri ng)

Dim queryString As String = "SELECT [Usuarios].* FROM [Usuarios] WHERE (([Usuarios].[Usuario] = @Usuario) AND "& _
"([Usuarios].[UsuarioPwd] = @UsuarioPwd))"
Dim dbCommand As System.Data.IDbCommand = New System.Data.SqlClient.SqlCommand
dbCommand.CommandText = queryString
dbCommand.Connection = dbConnection

Dim dbParam_usuario As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_usuario.ParameterName = "@Usuario"
dbParam_usuario.Value = usuario
dbParam_usuario.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_usuario)
Dim dbParam_usuarioPwd As System.Data.IDataParameter = New System.Data.SqlClient.SqlParameter
dbParam_usuarioPwd.ParameterName = "@UsuarioPwd"
dbParam_usuarioPwd.Value = usuarioPwd
dbParam_usuarioPwd.DbType = System.Data.DbType.String
dbCommand.Parameters.Add(dbParam_usuarioPwd)

Dim dataAdapter As System.Data.IDbDataAdapter = New System.Data.SqlClient.SqlDataAdapter
dataAdapter.SelectCommand = dbCommand
Dim dataSet As System.Data.DataSet = New System.Data.DataSet
dataAdapter.Fill(dataSet)

Return dataSet
End Function

De aqui necesito rescartar el valor del usuario en una varaiable para poder usarlo en la pagina siguiente.....saludos y muchas gracias por la ayuda

Roberto