Visual Basic - Contraseñas en Base de Datos

Life is soft - evento anual de software empresarial
 
Vista:

Contraseñas en Base de Datos

Publicado por Andres (2 intervenciones) el 15/11/2009 09:24:43
Hola soy un programador principiante de Visual Basic y he hecho un sistema de usuario y contraseña. Ahora he añadido un Botón llamado Registrar y he hecho un formulario nuevo con dos campos de texto y un boton registrar.

Necesito un código que me guarde los usuarios y contraseñas registrados en un archivo (word o notepad o lo que sea).
Luego necesito un codigo que solo deje entrar en el formulario de Log In a los usuarios registrados.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil
Val: 119
Ha disminuido 1 puesto en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

RE:Contraseñas en Base de Datos

Publicado por Christian (713 intervenciones) el 17/11/2009 04:55:36
mmm creo que la mejor opcion seria una base de datos, para manipular a los usuarios que se registran, osea dar de alta, dar de baja o modificar sus datos.

Ahora bien respondiendo a lo que pedis podria ser algo asi:

Guardar Usuario

Open "c:\pruebausuarios.txt" For Append As #1

Print #1, Text1.Text & "|" & Text2.Text

Close #1

Buscar Usuario

Dim usuario As String
Dim clave As String
Dim linea As String

Open "c:\pruebausuarios.txt" For Input As #1

DoEvents
Do While Not EOF(1)
If EOF(1) Then Exit Do
Line Input #1, linea

usuario = Mid(linea, 1, InStr(1, linea, "|") - 1)
clave = Mid(linea, InStr(1, linea, "|") + 1)

If usuario = Text1.Text And clave = Text2.Text Then
MsgBox "Usuario Encontrado"
Exit Do
End If
Loop
Close #1

saludos.-
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Contraseñas en Base de Datos

Publicado por Andres (2 intervenciones) el 17/11/2009 15:19:46
Mil gracias era justo lo que buscaba
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar