Crear Login En Visual Basic

Solo s eme ocurre que hagas que cada vez que un usuario se de de alta, guarde su pass y user en un fichero de texto, asi no hace falta crear lo que dices.

Saludos

P.D: Puedes hacerlo también con una BBDD

daniel_5 escribió:Solo s eme ocurre que hagas que cada vez que un usuario se de de alta, guarde su pass y user en un fichero de texto, asi no hace falta crear lo que dices.

Saludos

P.D: Puedes hacerlo también con una BBDD

Yo tambien haria eso.

Finalmente use una base de datos para almacenar los posibles usuarios.
Va comprobando dentro de la tabla los nombres y contraseñas uno por uno correctamente. Si lo encuentra muestra el siguiente formulario.
El problema que tengo es q si escribo el usuario o la contraseña incorrectamente da error.
La idea es que diese 3 oportunidades, sino sale del programa(close).
Este es el código(secreto1 y 2 es dnd se van comprobando los campos de la base de datos con los text donde el usuario introduce clave y nombre):


Private Sub boton1_Click()
posibilidades = 3
For fallos = 0 To posibilidades
final = 50
For busca = 1 To final
If login1.Text = secreto1.Text Then
If login2.Text = secreto2 Then PRINCIPAL.Show
LOGIN.Hide
Else: tabla_login.Recordset.MoveNext
End If
Next busca
tabla_login.Refresh
MsgBox "Contraseña Incorrecta"
Next fallos
Close
End Sub

de visual basic ni papa, pero yo eso lo solventaría creandome un metodo o función como se llamen en VB qeu tenga un contador, si el contador es menor o igual a 3 pues que de otra oportunidad para meter contrseña, si es mayor, pues que no de la opcion de meter contraseña, parece facil no?

Saludos

P.D: Ahi en ese codigo, siempre que te salga lod e contraseña incorrecta sale del programa, haz que verifique los fallos tambien.

La aplicación casi terminada y seguimos con lo mismo.....
Echad un vistazo please:

Private Sub boton1_Click()

For errores = 0 To 2

While TABLA.EOF = False
If TABLA.Fields(0) = login1.Text And TABLA.Fields(1) = login2.Text Then
PRINCIPAL.Show
LOGIN.Hide
Else
TABLA.MoveNext
End If
Wend
If TABLA.EOF = True Then
MsgBox ("Clave Incorrecta")
TABLA.MoveFirst
End If

Next errores

If errores = 2 Then
MsgBox ("No tiene autorización")
End
End If

End Sub

'Si no es final de fichero comprueba q los dos campos coincidan.
'Si no lo hacen mueve a la siguiente fila y compara hasta q llegue
'al final de fichero.
'Si es el final muestra "Clave Incorrecta" y mueve al principio.
'Realiza la operación 3 veces máximo, sino cierra la aplicación.

Jalan escribió:While TABLA.EOF = False
If TABLA.Fields(0) = login1.Text And TABLA.Fields(1) = login2.Text Then
PRINCIPAL.Show
LOGIN.Hide
Else
TABLA.MoveNext
End If
Wend
If TABLA.EOF = True Then
MsgBox ("Clave Incorrecta")
TABLA.MoveFirst
End If

No se si podrá ser por esto, prueba a poner en el WHILE 'NOT TABLA.EOF (en vez de = FALSE)

Y en el IF quita el =true

Ya me diras si te ha funcionado.

Un saludo