Guardar...

[Cheatmaster]

Buenas, miren como se aria, para que una persona entra sus datos ejemplo : nano, password : nano,
y ahora lo que escriva en un textbox se guarde, y cada vez q inicie en ese usuario este eso, ( tambien la opcion de crear otro usuario )

[crypto136]

pues para hacer lo que tu dices debes crear una base de datos con access y conectarla a tu programa


Para ver este enlace Registrate o Inicia Sesion

Biblioteca de Codigo

o prueba con esto:

Agrega 3 command button, 2 Labels, y 2 textbox

Código:

Private Sub Form_Load()
Command1.Caption = "Nuevo"
Command2.Caption = "Abrir"
Command3.Caption = "Guardar"
End Sub

Private Sub Command1_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command2_Click()
Dim var As String
If Not Text1.Text = "" Then
On Error GoTo er
    Open (Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & _
          Text1.Text & ".log") For Input As #1
          Line Input #1, var
    Close
        Text2.Text = var
End If
Exit Sub
er:
    MsgBox "No se encuentra el user, verifica la escritura.", vbCritical, "Error"
    Text1.SetFocus
End Sub

Private Sub Command3_Click()
If Not Text1.Text = "" Then
    Open (Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & _
          Text1.Text & ".log") For Output As #1
          Print #1, Text2.Text
    Close
    MsgBox "User agregado", vbInformation, ""
End If
End Sub

[-SharK_90-]

Fuera del tema: Me gustaria si alguien podria explicarme, este código...por favor..!!

Private Sub Command2_Click()
Dim var As String
If Not Text1.Text = "" Then
On Error GoTo er
    Open (Environ("HOMEDRIVE") & Environ("HOMEPATH") & "\Escritorio\" & _
          Text1.Text & ".log") For Input As #1
          Line Input #1, var
    Close
        Text2.Text = var
End If

Gracias -

[crypto136]

bien pues, con el command2 al darle click abro el archivo que se ha guardado en el escritorio,el archivo lleva el nombre del user que se guardò y contiene la contraseña que se ingreso, ajora desglosare el codigo que abre el archivo:

Open, sirve para abrir un archivo
sintaxis : Open [Ruta del archivo] for Input as #1
(el #1, es como una variable la verdad pueden usar cualquier variable)

bien, tambien puedes exportar archivos de esta manera:

Open [Ruta del archivo] for Output as #1

no especifico mas formas de usar el open, porque ya no me acuerdo bien las sintaxis.

Sigo,

Environ("HOMEDRIVE"), sirve para obtener la ruta del disco duro donde esta alojado el S.O.

Environ("HOMEPATH"), sirve para sacar la ruta del usuario, a esto le he agregado [&"\Escritorio"] , lo que obviamente significa que el archivo a leer o a guardar, estara en el escritorio desde donde se este ejecutando el programa.

Line Input #1,var = significa que todo lo que se encuentre en el archivo abierto como #1, sera guardado en la variable "var"

close= cierra el archivo abierto.
y luego pues muestro "var" en el text1

[Sh4k3]

Que raro men, a mi no me sirve, cuando clickeo el cmd para nuevo me da un error que dice: Path not found
Seguro estoy haciendo algo mal

[crypto136]

el cmd nuevo, no hace nada mas que limpiar los text, revisa bien acabo de probar el code y si trabaja, alguien mas que le haya dado problemas??

pd: deben percatarse que en el escritorio se cree el log con el nombre del user, y la contraseña dentro del archivo!!

[-SharK_90-]

ha.. gracias por tomarte la molestia de explicarme, el Code.!!
Ahora si entendi mejor...

SALU2 - Gracias

[Sh4k3]

Ya funcionó men.... Muchas Gracias!