locked
Login se me cae cuando digito números con letras mezclados en el txtLogin RRS feed

  • Question

  • Hola, necesito ayuda urgente por favor.

    Cuando Inicio la Depuración en vs 2010, y digito los datos correctos de Login y Clave que tengo almacenados en el Sql

    todo me funciona bién, pero cuando por ejemplo intento poner datos en erróneos en el Login de Números mezclados con letras

    me saca de la depuración y me tira al código indicandome esto:


    no se controló argumentoutofrangeexception     

       apuntando  el error  en el then

    osea aqui

    If txtClave.Text = lista.Item(0).Clave Then

    Ya le he hecho varias cosas pero nada me funciona, ayuda x favor.

    Éste es el código del form login



    Imports Capa_Entidad
    Imports Capa_Negocio
    Imports System
    Imports System.Data

    Public Class Login
        Dim i As Integer
        Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            i = 0
        End Sub

        Private Sub btnAceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAceptar.Click
            If txtLogin.Text = "" Or txtClave.Text = "" Then
                MsgBox("Debe de rellenar ambos campos.", MsgBoxStyle.Information, "Advertencia")
                Limpiar()
                txtLogin.Focus()
            Else
                Dim lista As New List(Of UsuariosEntidad)
                Dim objUsuarios As New UsuariosNegocio
                lista = objUsuarios.mostarUsuariosPorLogin(txtLogin.Text)

                If txtClave.Text = lista.Item(0).Clave Then

                    FrmMenu.Show()
                    Me.Hide()

                Else
                    MsgBox("Clave no corresponde para el usuario.", MsgBoxStyle.Critical, "Sistema Automatizado de Facturacion")
                    txtClave.Text = ""
                    i = i + 1
                    txtClave.Focus()
                End If

            End If


            If i = 3 Then
                MsgBox("Ha excedido el maximo de intentos, consulte con el Administrador.", MsgBoxStyle.Information, "Sistema Automatizado de Prestamos")
                Me.Close()
                End
            End If


        End Sub
        Sub Limpiar()
            txtClave.Text = ""
            txtLogin.Text = ""
        End Sub

        Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
            Me.Close()
            End
        End Sub
    End Class

    • Moved by Mike Feng Tuesday, April 9, 2013 3:06 AM
    Wednesday, April 3, 2013 8:01 AM

Answers

All replies