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:
Ver originalPublic 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:
Ver originalPrivate 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!

.