Visual Basic.NET - Consulta a la base de datos

   
Vista:
Imágen de perfil de Cristian

Consulta a la base de datos

Publicado por Cristian (1 intervención) el 11/09/2016 20:47:12
Hola buenas tardes, soy un poco novato en la programación así que puede que sea un problema tonto pero bueno les comparto primero las clases y ahora les explico:

Formulario:

1
2
3
4
5
6
7
8
9
10
Public Class frmIniciarSesion
 
    Private Sub btnEntrar_Click(sender As Object, e As EventArgs) Handles btnEntrar.Click
 
        Dim NombreUsuario = txtNombreUsuario.Text
        Dim Contrasenia = txtContrasenia.Text
 
 
    End Sub
End Class

Clase Controladora (no tiene nada):

1
2
3
Public Class clsControladora
 
End Class

Clase Usuarios:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Class clsUsuarios
 
    Private mNombreApellido As String
    Private mNombreUsuario As String
    Private mContrasenia As String
    Private mTipoUsuario As String
 
    Property NombreApellido As String
        Get
            Return mNombreApellido
        End Get
        Set(value As String)
            mNombreApellido = value
        End Set
    End Property
 
    Property NombreUsuario As String
        Get
            Return mNombreUsuario
        End Get
        Set(value As String)
            mNombreUsuario = value
        End Set
    End Property
 
    Property Contrasenia As String
        Get
            Return mContrasenia
        End Get
        Set(value As String)
            mContrasenia = value
        End Set
    End Property
 
    Property TipoUsuario As String
        Get
            Return mTipoUsuario
        End Get
        Set(value As String)
            mTipoUsuario = value
        End Set
    End Property
 
    Public Sub New()
        'Constructor vacío
    End Sub
 
    Public Sub New(ByVal nomap As String, ByVal nomus As String, ByVal contr As String, ByVal tipous As String)
        'Constructor parametrizado
        Me.NombreApellido = nomap
        Me.NombreUsuario = nomus
        Me.Contrasenia = contr
        Me.TipoUsuario = tipous
 
    End Sub
 
 
End Class

Clase PUsuarios (tampoco tiene nada):

1
2
3
4
5
6
7
8
Imports MySql.Data.MySqlClient
 
Public Class clsPUsuarios
    Inherits clsPersistencia
 
 
 
End Class

Bien, la idea es que cuando yo presione el botón Entrar, se pasen por parametros los textbox hacia la PUsuarios (pasando por la clsControladora y la clsUsuarios), para realizar la consulta: sql = "SELECT * FROM Usuarios WHERE NombreUsuario='" & NombreUsuario & "' AND Contrasenia='" & Contrasenia & "';" y que con los datos resultantes en esa misma clase se cree el objeto unUsuario y se envíe hacia el formulario, mi pregunta obviamente es como se hace eso y como quedaría el código.

Saludos y si notan algún error o tienen alguna sugerencia ademas de lo planteado se agradece.
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

Consulta a la base de datos

Publicado por Miguel (428 intervenciones) el 11/09/2016 23:41:49
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de Wilfredo Patricio Castillo

Consulta a la base de datos

Según lo que veo, lo que pretendes es hacer una aplicación con una arquitectura en capas(n-capas).

Bueno, la cosa es muy sencilla, solo asegúrate de no romper la arquitectura, para lo cual debes leer al respecto.

Para lo que necesitas debes hacer uso de funciones algo mas o menos así:

Capa de Acceso a datos (Donde harás las consultas:

Public Function GetUserByNameUserAndPassword(nameuser as string,password as string) as clsUsuarios

aquí hacer tu consulta, declaras un objeto del tipo clsUsuarios.
Dim eUser as new clsUsuarios.

Con el reader capturas los datos de tu consulta, le asignas los datos a tu objeto eUser y al final lo retornas.

Return eUser

End function

--------
En tu controladora que asumo que deben ser las reglas de negocio lo mismo.
Public function GetUserByNameAndPassword(nameuser as string,password as string) as clsUsuarios
dim ObjUsuario as new DAOUsuario '(o como se llame tu clase en la capa de acceso a datos)

return objUsuario.GeyUserByNameAndPassword(nameuser,password)

End Function

Listo, en tu capa cliente solo declaras un objeto del tipo controladora de usuarios y ya está.

Como ya te dije no rompas la arquitectura, todo orientado a objetos y control de errores en cada función, en la controladora, haces todas las validaciones y lógica que las reglas del negocio así lo requieran.

Saludos cordiales,

PD:No tengo mucho tiempo como para hacerte las clases completas, pero con eso es mas que suficiente.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar