Cómo prevenir un inicio de sesión de usuario a la base de datos de MS Access 2007 después de tres intentos

Una de las características de gran alcance detrás de Microsoft Access 2007 es que se puede hacer una base de datos propia aplicación independiente . Esto es muy útil cuando la distribución de la base de datos para múltiples usuarios en un servidor. Hacer otras medidas de seguridad , tales como formularios de inicio de sesión , para garantizar la protección de los datos frente a usuarios no autorizados. Para promover el poder de la seguridad , se puede restringir el acceso si hay tres o más intentos de inicio de sesión fallidos . De esta manera , los usuarios no autorizados no pueden utilizar programas de software de recuperación de contraseñas para introducirse en la base de datos . Instrucciones
1

Abra su base de datos en Access 2007 y añadir una nueva tabla llamada " tblFailedAttempts . " En esta tabla se llevará a cabo el número de intentos de inicio de sesión que alguien tiene en el actual período de sesiones . Haga clic en la pestaña " Crear" y luego en " Tabla ". Crear la tabla en la vista Diseño . Dale la mesa tres campos: " AttemptID " como un tipo de datos " Autonumérico " , "login ", con un tipo de datos "Texto" y " attempt_time " como un tipo de datos " Fecha /Hora" . Guarde y cierre la tabla .
2

ir al formulario de inicio de sesión que está utilizando y ver el código del formulario . Haga clic en la pestaña "Herramientas de base de datos " y luego haga clic en " Visual Basic ". Haga doble clic en el nombre de la forma en la lista de objetos en la parte izquierda del editor de Visual Basic .
3

Añadir este código en el código de Visual Basic ya presente en el formulario. El código se abrirá la mesa " tblFailedAttempts " y ver la cantidad de intentos que la persona ya ha hecho . También aumentará el número de intentos fallidos cada vez que la persona trata de entrar. Por último , el código se bloquea a la persona y cerrar la base de datos después de su tercer intento fallido.

"Establecer RST1 = db.OpenRecordset ( " tblFailedAttempts " , dbOpenDynaset )

RST1

. AddNew

[ computer_login ] = Me.txtUser_hidden

. Actualizar

extremo con

MsgBox " Has introducido mal el nombre de usuario o Password. "& Chr ( 13 ) & _

" por favor introduce el correcto nombre de usuario y su contraseña o "& Chr ( 13 ) & _

" en contacto con el Database Administrator para asistencia. " vbOKOnly + vbCritical , "Inicio de sesión denegado"

' Esta cuenta el número de veces que un usuario ha escrito en el ID de usuario /contraseña incorrecta combo. Después de tres intentos el usuario es

' suspendido de la base de datos , y no puede tener acceso a su cuenta hasta que se restablece la administración

cnt = cnt + 1 ' contador de incremento si la contraseña equivocada entró

Si cnt = 3 Entonces' Establecer el número de intentos
Box