Ver Mensaje Individual
  #1 (permalink)  
Antiguo 08/09/2011, 11:22
Avatar de gasuton
gasuton
 
Fecha de Ingreso: octubre-2010
Ubicación: Abandonware
Mensajes: 132
Antigüedad: 13 años, 6 meses
Puntos: 2
Formulario de login con user y pass

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.