Formulario de login con user y pass

[gasuton]

Buenas tardes a todos, espero me puedan ayudar.

Les comento mi dilema. Tengo un proyecto con una db de access al que le hice un form de login. En la base de datos tengo mi tabla de usuarios con las columnas Id, username y pass. La idea es que al acceder al sistema le ingrese el user y el pass, el sistema los valide y si son correctos te pase al form principal.

Despues de buscar un rato en internet econtre un post de este foro del 2004

[URL]http://www.forosdelweb.com/f69/crear-login-pasword-visual-basic-6-0-a-181855/[/URL]

Intente con los ejemplos que ahi aparecen, obvio reemplazando la info por la de mi form y mi Adodc, que se llama users. Pero siempre obtengo un error 91

Les dejo el codigo original de mi form antyes de hacer las pruebas:

Código:

Private Sub cmdOK_Click()
Dim mensaje As String

txtUser.SetFocus
If (txtUser.Text = "admin" And txtPass.Text = "agepos10") Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "AGEPOS Configurador")
    
Unload Me
Configurador.Show

Else
    mensaje = MsgBox("¡Acceso denegado, verifique la información!", vbExclamation, "Atencion")
End If

End Sub

La idea del codigo este que puse es para que mas alla de los usuarios que existan en el sistema, en el codigo suente yo siempre tenga una forma de entrar al sistema.

[gasuton]

Vamos muchachos no sean asi, necesito ayuda con esto, ya que si bien estoy siendo autodidacta, todabia me cuesta mucho

[Kruzado]

es mas util que pegues el codigo que te muestra el error, por ahi podriamos ayudarte mas, pero a ver si te sirve, a mi el error 91 me lo da cuando no he declarado el recordset, entonces revisa que el nombre que estas utilizando para revisar tu recordset, es el mismo que declaraste cuando lo abriste, puede que el nobre sea el mismo, pero que lo hayas abierto en otra rutina, entonces al entrar en tu procedimiento, al no estar declarado en este procedimiento, tambien se caiga, pero lo mas sano te insisto es que pegues el codigo con el que tienes problemas para poder revisarlo,
saludos!

[kip13]

Que tal si creas un label abajo de los text q diga SOY ADMINISTRADOR y al hacer click te mande a otro identificador en donde puedas ingresar tus datos y todo eso..!!

Pues yo lo hize asi y esta de maravilla jejeje


Saludos..!!

[gasuton]

Muchachos Ya logre integrar mi codigo con el ejemplo que tenia y que funcione que es lo mas importante, les dejo el codigo para que le puedan ver:

Código:

Private Sub cmdOK_Click()
Dim mensaje As String

txtUser.SetFocus
If (txtUser.Text = "admin" And txtPass.Text = "agepos10") Then
mensaje = MsgBox("¡Bienvenido!", vbInformation, "AGEPOS Configurador")
Unload Me
Configurador.Show

Me.users.Recordset.MoveFirst
Me.users.Recordset.Find "username = '" & txtUser.Text & "'"
ElseIf Me.users.Recordset.EOF Then
    mensaje = MsgBox("El Nombre de Usuario no es Correcto!", vbExclamation, "Atencion")
txtUser.SetFocus
SendKeys "{home}+{end}"

ElseIf users.Recordset!pass = txtPass.Text Then
    mensaje = MsgBox("¡Bienvenido!", vbInformation, "AGEPOS Configurador")
Unload Me
Configurador.Show
Else
mensaje = MsgBox("La clave no es correcta", 0 + 16, "Atencion")
txtPass.SetFocus
SendKeys "{Home}+{End}"
End If
  
End Sub

Les comento como me funciono porque si pegan el codigo asi nomas no les va a funcionar:

en el form ademas de el boton de aceptar y cancelar y los 2 textbox de user y pass (los cuales no los asocie a ningun ADO), creo un adobc que se conecte a mi base de datos a la tabla de usuarios, y lo mas importante otro textbox el cual si conecte con mi adobc a la columna de ID de usuario.

Si haces esto seguro funciona.

Saludos y ya se puede dar por cerrado el tema.

[lokoman]

Hola!
Que bueno que lo lograste resolver, aqui otra forma mas reducida:

Código vb:

'
Private Sub cmdAceptar_Click()
   Dim rstDatos as ADODB.Recorset
   Dim strSelect as string
 
   Set rstDatos = new ADODB.Recorset
   rstSelect="SELECT * FROM TABLA_USUARIOS WHERE USERNAME='" & trim(txtUsuarios.Text) & "'"
   rstDatos.Source=strSelect
   rstDatos.Open, CONEXION_BD
 
   If rstDatos.EOF = False Then
      If trim(txtPassword.text)=trim(rstDatos!PASS) then
'TODO ESTA CORRECTO!!!
         Configurador.Show         
      Else
         MsgBox "El Password está incorrecto!!", vbInformation
         txtPassword.SetFocus
      End If
   Else
      MsgBox "El usuario no existe!!", vbInformation
      txtUsuarios.SetFocus
   End If
End Sub
 

[gasuton]

Se ve muy interesante la voy a probar para ver como funciona.

Muchas Gracias ;)