Imports MySql.Data.MySqlClient
Module Module3
    Public Srv As String = "localhost" 'IP servidor
    Public SrvPort As String = "3306" 'Puerto Utilizado
    Public cnString As String = "server=127.0.0.1; user id=root; password=agustina; database=papeleria_peque; port=3306" ' Cadena de conexión

    Structure UserStruct
        Public IdUsuario As Integer
        Public Nombre As String
        Public Contrasena As String
        Public Nivel As Integer
    End Structure
    Function ChequeoUsuario(ByRef a As UserStruct) As Integer
        'Declaracion de variables para la conexión, dataadapter, dataset
        Dim SqlConsulta As String
        Dim cn As New MySqlConnection
        Dim da As New MySqlDataAdapter
        Dim ds As New DataSet
        Dim resultado As Integer = 0
        Dim activo As Integer
        cn.ConnectionString = cnString
        'Try es para capturar los errores que puedan producirse en la ejecución del proceso
        Try
            'Crea la cadena se la consulta, el adaptador de datos y recuperando los datos de la tabla
            SqlConsulta = "SELECT * FROM USUARIOS WHERE nameuser='" & a.Nombre & _
            "' and clave='" & a.Contrasena & "'"
            'Abrir la conección
            cn.Open()
            'ejecuto la consulta con el data adapter y lo guardo en la variable da
            da = New MySqlDataAdapter(SqlConsulta, cn)
            'Limpia el dataset
            ds.Clear()
            'Llena el Dataset con el data adapter
            da.Fill(ds, "usuarios")
            'Cuenta los registros del datatable, si es igual a 0,
            'es que no encontró ningun usuario con ese nombre o contraseña
            If ds.Tables("usuarios").Rows.Count() = 0 Then
                resultado = -1 ' la funcion devuelve -1
            Else
                'ver si el usuario esta activo, busca datos en el datatable
                activo = ds.Tables("usuarios").Rows(0)(3)
                a.IdUsuario = ds.Tables("usuarios").Rows(0)(0)
                If activo <> 1 Then
                    resultado = -2 ' si el usuario está inactivo, devuelve -2
                Else
                    'pasa los valores del datatable, el usuario y nivel de usuario
                    a.Nivel = ds.Tables("usuarios").Rows(0)(4)
                    a.Nombre = ds.Tables("usuarios").Rows(0)(1)
                    a.Contrasena = ds.Tables("usuarios").Rows(0)(2)
                End If
            End If
            cn.Close()
        Catch ex As Exception
            'captura si ocurre una error en la operación
            MsgBox(ex.ToString)
            cn.Close()
        End Try
        Return resultado
    End Function
End Module