Problema con contraseña de un formulario logg

Hola como le va antes que nada le agradezco por su disponibilidad, tengo un problema de acceso a un formulario a través de una contraseña.
Consiste en que solamente accedo al formulario del sistema si coloco la misma contraseña para todos los usuarios.
Aquí coloco mi código para que tenga la referencia:
General
Dim record As New Recordset
Dim connection As New ADODB.connection
// conecto a la base y cargo usuarios al combo
Private Sub Iniciar_Conexion()
connection.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Trabajo Final Programación 4\Biblioteca.mdb;Persist Security Info=False")
Dim sql As String
sql = "Select * from usuarios"
record.Open sql, connection
    While Not record.EOF
    Combo1.AddItem record!Nombre
    record.MoveNext
    Wend
    record.Close
    Set record = Nothing
End Sub
// conecto al cargar el formulario
Private Sub Form_Load()
Iniciar_Conexion
End Sub
Hasta acá todo fenómeno, me carga los usuarios en combo y me conecta pero cuando coloco la contraseña y presiono clic en el comando me deja entrar con la primer contraseña para todos los usuarios:
Private Sub Command1_Click()
Static contador As Integer
record.Open "Select * from usuarios ", connection
If record.Fields(2) = Text1.Text Then
MsgBox "Bienvenido al sistema", vbInformation, "Acceso permitido"
Unload Me
Form2.Show
Else
MsgBox "Clave invalida 1", vbCritical, "Acceso denegado"
contador = contador + 1
record.Close
If contador >= 3 Then
MsgBox "Ha pasado el limite de intentos, el sistema se cerrara", vbCritical, "Acceso denegado"
Unload Me
End If
End If
End Sub
Ese es el problema que tengo ya que lo demás me ha funcionado, agradezco su disponibildad!

1 Respuesta

Respuesta
1
Debes colocar en la sentencia selecte un where para poder buscar el usuario y la clave,
record.Open "Select * from usuarios where usuario = '"  & txtusuario.text & "' AND Clave = '" & txtclave.text & "' ", connection
Fíjate que los valores van entre comillas sencillas ' antes de las comillas dobles para encerrá los valores entre estas comillas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas