hola me pueden decir en este codigo donde iria el contador que no me permita repetir mas de 3 veces la contraseña . muchas gracias
Imports MySql.Data.MySqlClient
Public Class administrador
Private Sub txtadministrador_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtadministrador.KeyPress
If (e.KeyChar = Convert.ToChar(Keys.Return)) Or (e.KeyChar = Convert.ToChar(Keys.Enter)) Then
End If
' Button1_Click(Nothing, Nothing)
' End If
'End Sub
'aqui se validan los text
Select Case e.KeyChar
Case Is = Chr(13)
If txtadministrador.Text.Length = 0 Then
MessageBox.Show("codigo de usuario no valida, Repita", "ERROR")
Exit Sub
End If
txtcontraseña.Focus()
Case "a" To "z", "A" To "Z", "0" To "9", "", Chr(8)
txtadministrador.ForeColor = Color.Blue
Case Else
txtadministrador.ForeColor = Color.Red
e.Handled = True
End Select
End Sub
Private Sub txtcontraseña_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtcontraseña.KeyPress
If (e.KeyChar = Convert.ToChar(Keys.Return)) Or (e.KeyChar = Convert.ToChar(Keys.Enter)) Then
End If
' Button1_Click(Nothing, Nothing)
' End If
'End Sub
'aqui se validan los text
Select Case e.KeyChar
Case Is = Chr(13)
If txtcontraseña.Text.Length = 0 Then
MessageBox.Show("contraseña no valida, Repita", "ERROR")
Exit Sub
End If
txtadministrador.Focus()
Case "a" To "z", "A" To "Z", "0" To "9", "", Chr(8)
txtcontraseña.ForeColor = Color.Blue
Case Else
txtcontraseña.ForeColor = Color.Red
e.Handled = True
End Select
End Sub
Private Sub cmdaceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaceptar.Click
Dim xCantidad As Long = -1
If txtadministrador.Text.Length = 0 Then
MessageBox.Show(" codigo No valido", "ERROR")
txtadministrador.Focus()
Exit Sub
End If
If txtcontraseña.Text.Length = 0 Then
MessageBox.Show("password No valido", "ERROR")
txtcontraseña.Focus()
Exit Sub
End If
miconexion = New MySqlConnection("server=localhost;user=root; password=111;database=colegio")
miconexion.Open()
micomando = New MySqlCommand("select count(*) from administrador where administrador = '" & txtadministrador.Text & "';", miconexion)
xCantidad = micomando.ExecuteScalar
miconexion.Close()
If xCantidad = 0 Then
MessageBox.Show("codigo NO EXISTE, REPITA", "ERROR")
txtadministrador.Clear()
txtadministrador.Focus()
Exit Sub
End If
miconexion = New MySqlConnection("server=localhost;user=root; password=111;database=colegio")
miconexion.Open()
micomando = New MySqlCommand("select count(*) from administrador where contrasena = '" & txtcontraseña.Text & "';", miconexion)
xCantidad = micomando.ExecuteScalar
miconexion.Close()
If xCantidad = 0 Then
MessageBox.Show("contraseña no existente, REPITA", "ERROR")
txtcontraseña.Clear()
txtcontraseña.Focus()
Exit Sub
End If
Try
miconexion.Open()
MessageBox.Show(" acceso aceptado")
miconexion.Close()
Catch mierror As MySqlException
MessageBox.Show("Error de Conexión a la Base de Datos: " & mierror.Message)
Finally
miconexion.Dispose()
End Try
Dim fAcceso As New menu
If fAcceso.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
fAcceso.Close()
Application.Run(New Form1)
End If
End Sub
Private Sub cmdcancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdcancelar.Click
Application.Exit()
End Sub
End Class
