Control de Usuario 3 capas!!!!

[Aquaventus]

Buen día junior1920,

Perfecto, ahora solamente tienes que jalar el resultado de ese SP y compararlo .

En tu clase CLASE USUARIOAD le dices que la función Acceso_Usuario es String :

Código vb:

Public Function Acceso_Usuario(ByVal ObjUsuarioEN As UsuarioEN) As String
        Try
            comando.Parameters.Clear()
            comando.CommandType = CommandType.StoredProcedure
            comando.CommandText = "acceso_user"
 
            Dim _usuario As New SqlParameter("@nusuario", SqlDbType.VarChar, 35)
            _usuario.Value = ObjUsuarioEN.usuario
            _usuario.Direction = ParameterDirection.Input
            comando.Parameters.Add(_usuario)
 
            Dim _clave As New SqlParameter("@nclave", SqlDbType.VarChar, 32)
            _clave.Value = ObjUsuarioEN.clave
            _clave.Direction = ParameterDirection.Input
            comando.Parameters.Add(_clave)
 
            Dim _idtipou As New SqlParameter("@nidtipou", SqlDbType.Int)
            _idtipou.Value = ObjUsuarioEN.idtipou
            _idtipou.Direction = ParameterDirection.Input
            comando.Parameters.Add(_idtipou)
 
            Dim _nmsg As New SqlParameter("@nmsg", SqlDbType.VarChar, 400)
            _nmsg.Direction = ParameterDirection.Output
            comando.Parameters.Add(_nmsg)
            Dim nmensaje As String
 
            Dim resultado As String
            resultado = comando.ExecuteScalar().ToString()
            nmensaje = Convert.ToString(_nmsg.Value)
            'MsgBox(nmensaje)
            conn.ClearAllPools()
            return resultado
        Catch ex As Exception
            'MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
            return String.Empty()
        Finally
            comando.Parameters.Clear()
            conn.Close()
            conn.ClearAllPools()
            conn = Nothing
        End Try
    End Function
 

Luego en tu FORMULARIO LOGIN, en base al resultado que te traiga la funcion anterior validarlo :

Código vb:

Private Sub BtnIngresar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnIngresar.Click
        Try
            Dim valor As String = CStr(cboxTipoUser.SelectedValue)
            If (txtlogin.Text = "") Then
                MsgBox("Ingrese el nombre de Usuario", MsgBoxStyle.Information, "Mensaje")
                txtlogin.Focus()
                Exit Sub
            End If
            If (txtclave.Text = "") Then
                MsgBox("Ingrese la clave para el Usuario", MsgBoxStyle.Information, "Mensaje")
                txtclave.Focus()
                Exit Sub
            End If
            If (cboxTipoUser.SelectedIndex.Equals(-1)) Then
                MsgBox("Por Seleccione el tipo de Usuario", MsgBoxStyle.Information, "Mensaje")
                cboxTipoUser.Focus()
                Exit Sub
            End If
 
            ObjUsuarioEN = New UsuarioEN
            ObjUsuarioLN = New UsuarioLN
            ObjUsuarioEN.usuario = LTrim(RTrim(txtlogin.Text))
            ObjUsuarioEN.clave = LTrim(RTrim(txtclave.Text))
            ObjUsuarioEN.idtipou = LTrim(RTrim(valor))
            'ObjUsuarioLN.Acceso_Usuario(ObjUsuarioEN)
            ''PUSE ESTO PARA VER SI FUNCA PERO NO LO HACE
            'UserLogin = Convert.ToString(ObjUsuarioEN.usuario)
            '
            Dim resultado_final As String
            resultado_final = ObjUsuarioLN.Acceso_Usuario(ObjUsuarioEN)
            ''AQUI EL PROBLEMA NO SE COMO VALIDAR
            If Not (String.IsEmpty(resultado_final)) Then 
                If (Convert.ToInt32(resultado_final) = 1) Then               
                    MenuPrincipal.Show()
                    Me.Hide()
                End If
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical, ex.Source)
        End Try
    End Sub
 

Sorry si sale algún error pero no estoy desde una pc que VS, espero que logres comprender lo que hize. Saludos!.