primera vez que escribo. (Debo trabajar con vb.net y mysql) Tengo que hacer un proyecto y necesito que cuando el usuario se loguea, mantenga los datos en el siguiente form. Ejemplo, me logueo con un usuario desde el form login, los datos son correctos y me deja entrar a otro form que sería el principal. El problema que tengo es que, al loguearse me muestra los datos que traigo desde la bd en un msg box pero luego en el siguiente form no los mantiene. Había hecho un modulo y estaba todo en publico, lo cual me funcionaba.
Module ModuloUsuarios
Public documento As Integer
Public idusuario As Integer
Public nombre As String
Public apellido As String
Public nivelusuario As String
End Module
Pero me dijeron que debía hacerlo por clase. Lo que tengo hasta ahora es esto:
Public Class sesionUsuario
'Documento del usuario
Private Documento_Usuario As Integer
Public Property obtenerDocumento() As Integer
Get
Return Documento_Usuario
End Get
Set(ByVal value As Integer)
Documento_Usuario = value
End Set
End Property
'Tipo de usuario (Nivel identificador)
Private id_Usuario As Integer
Public Property obtenerIdUsuario() As Integer
Get
Return id_Usuario
End Get
Set(ByVal value As Integer)
id_Usuario = value
End Set
End Property
'Nombre de Usuario
Private Nombre_Usuario As String
Public Property obtenerNombre() As String
Get
Return Nombre_Usuario
End Get
Set(ByVal value As String)
Nombre_Usuario = value
End Set
End Property
'Apellido de Usuario
Private Apellido_Usuario As String
Public Property obtenerApellido() As String
Get
Return Apellido_Usuario
End Get
Set(ByVal value As String)
Apellido_Usuario = value
End Set
End Property
'Estado del usuario (Si se encuentra activo o Inactivo)
Private Estado_Usuario As String
Public Property obtenerEstado() As String
Get
Return Estado_Usuario
End Get
Set(ByVal value As String)
Estado_Usuario = value
End Set
End Property
'Email de Usuario
Private Email_Usuario As String
Public Property obtenerEmail() As String
Get
Return Email_Usuario
End Get
Set(ByVal value As String)
Email_Usuario = value
End Set
End Property
End Class
Imports MySql.Data.MySqlClient
Public Class frmLogin
Private DatosUsuario As New sesionUsuario
Private Sub btnIngresar_Click(sender As Object, e As EventArgs) Handles btnIngresar.Click
ConexionSql.Open()
Dim consultaUsuario As String = "select * from usuarios where documento='" & txtDocumento.Text & "' and contrasena ='" & txtContrasena.Text & "';"
Dim existeUsuario As New MySqlCommand(consultaUsuario, ConexionSql)
Dim adapter = New MySqlDataAdapter(existeUsuario)
Dim dt = New DataTable
Dim leer As MySqlDataReader
leer = existeUsuario.ExecuteReader
If leer.HasRows Then
While leer.Read()
DatosUsuario.obtenerDocumento = leer.GetInt32(0)
DatosUsuario.obtenerIdUsuario = leer.GetInt32(2)
DatosUsuario.obtenerNombre = leer.GetString(3)
DatosUsuario.obtenerApellido = leer.GetString(4)
DatosUsuario.obtenerEmail = leer.GetString(9)
DatosUsuario.obtenerEstado = leer.GetString(11)
End While
leer.Dispose()
If DatosUsuario.obtenerIdUsuario < 5 Then
txtDocumento.Text = ""
txtContrasena.Text = ""
MsgBox("Bienvenido/a " + DatosUsuario.obtenerNombre + " " + DatosUsuario.obtenerApellido)
frmPrincipal.Show()
Me.Hide()
Else
DatosUsuario.obtenerIdUsuario = 5
txtDocumento.Text = ""
txtContrasena.Text = ""
MsgBox("Bienvenido/a " + DatosUsuario.obtenerNombre + " " + DatosUsuario.obtenerApellido)
frmClientes.Show()
Me.Hide()
End If
Else
MsgBox("Documento y/o Contraseña Incorrectos")
txtDocumento.Text = ""
txtContrasena.Text = ""
txtDocumento.Focus()
End If
ConexionSql.Close()
End Sub
End Class
Este es el formulario Principal (es una prueba que estoy haciendo a ver si funciona, si no me tendré que quedar con la antigua versión del proyecto u.u )
Public Class frmPrincipal
Private sesionUsuario As New sesionUsuario
Public DatosUsuario As New sesionUsuario
Private Sub frmPrincipal_Load(sender As Object, e As EventArgs) Handles MyBase.Load
lblnombre.Text = "hola" + sesionUsuario.obtenerNombre + " " + sesionUsuario.obtenerApellido
End Sub
End Class
Necesito ayuda. La verdad es que no se si lo estoy haciendo bien o no. Ya me queda poco tiempo y bueh, entra la desesperación :V
Desde ya muchas gracias.