Visual Basic.NET - Error: "La referencia a un miembro no compartido requiere una referencia de objeto"

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 14 puestos en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error: "La referencia a un miembro no compartido requiere una referencia de objeto"

Publicado por Fernando (1 intervención) el 11/10/2019 21:07:13
Estoy trabajando en 3 capas a pulmón (otra historia), pero el problema que tengo es el mensaje de error (título de la pregunta) pese a que hago como dice el ejemplo del profesor y ese funciona, pero el mio no.

Del Formulario ingreso los datos de login del usuario y los doy a la función de lógica que se comunica con la capa de datos.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Public Class frmLogin
    Private Sub btnAceptar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click
 
        Dim loggeo = Usuario.Ingreso(txtUsuario.Text, txtPassword.Text)
 
        If loggeo Then
            MsgBox("Bienvenido.")
            frmMenuAdmin.Show()
            Me.Hide()
        Else
            MsgBox("Usuario o contraseña incorrectos.")
        End If
 
    End Sub
End Class

Siendo los txtUsuario y txtPassword textbox del formulario de la capa visual.

En la Capa Lógica, le doy a la capa de datos el usuario y contraseña que pasó el formulario:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Class Usuario
 
    Public Function Ingreso(ByVal usuario As String, ByVal password As String)
        Try
            Dim l As New CapaDeDatos.Usuarios
            l.user = usuario
            l.pass = password
            l.Login()
            Return True
 
        Catch ex As Exception
            Return False
        End Try
    End Function
 
End Class
Pero pasa que me da el error de referencia en el formulario en la línea de: Dim loggeo = Usuario.Ingreso(txtUsuario.Text, txtPassword.Text) en referencia a Function Usuario.Ingreso(usuario As String, password As String) As Object.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Phil Rob
Val: 1.764
Oro
Ha mantenido su posición en Visual Basic.NET (en relación al último mes)
Gráfica de Visual Basic.NET

Error: "La referencia a un miembro no compartido requiere una referencia de objeto"

Publicado por Phil Rob (434 intervenciones) el 11/10/2019 22:59:20
Hola,

No soy en tu curso, pero escribo la linea de otra manera :

1
2
3
4
5
6
7
8
     ' !!! Dim loggeo = Usuario.Ingreso(txtUsuario.Text, txtPassword.Text)
 
 Dim loggeo As New Usuario
 
If loggeo.Ingreso(txtUsuario.Text, txtPassword.Text) Then
      MsgBox("Bienvenido.")
 
' ... ... ...
Espero darte una buena idea ...
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar