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:
Clase Controladora (no tiene nada):
Clase Usuarios:
Clase PUsuarios (tampoco tiene nada):
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.
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 = valueEnd Set
End Property
Property NombreUsuario As String
Get
Return mNombreUsuario
End Get
Set(value As String)
mNombreUsuario = valueEnd Set
End Property
Property Contrasenia As String
Get
Return mContrasenia
End Get
Set(value As String)
mContrasenia = valueEnd Set
End Property
Property TipoUsuario As String
Get
Return mTipoUsuario
End Get
Set(value As String)
mTipoUsuario = valueEnd 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
0
