Login y password (imagen) en Visual 6.0 con Access

[kip13]

Hola.... disculpen ayudenme

Necesito crear un login con USUARIO y CONTRASEÑA, es para un proyecto del cole una base de datos que contiene los datos de los profesores y quisiera crear un login para ellos. Y cree un campo con nombre del profesor y uno con clave de profesor.
Qusiera que el prof de identifique, con su clave y su nombre. Una vez iniciado quisiera que se abra un form q diga "BIENEVENIDO 'NOMBRE DEL PROF Q INICIO' " y una imagen alado que sea la foto de el prof q se identifico.

Tambn como agregar una imagen a la base pues se podra registrar un nuevo prof

Saludos y grcias..!!

[lokoman]

Hola!!
Aqui tienes la base para que continues:

http://myfreefilehosting.com/f/ae891a8938_0.04MB

El codigo del form login:

Código vb:

Private Sub cmdAceptar_Click()
    If Trim(txtUsuario.Text) = "PROFE" Then
        If Trim(txtPassword.Text) = "1234" Then
            Nombre_Profe = "LOKOMAN"
            
            frmPrograma.Show
            Unload Me
        Else
            MsgBox "PASSWORD INVALIDO!!", vbInformation
            txtPassword.SetFocus
        End If
    Else
        MsgBox "USUARIO INVALIDO!!", vbInformation
        txtUsuario.SetFocus
    End If
End Sub
 

El codigo del form principal:

Código vb:

Sub Carga_Foto()
    If Len(Dir(App.Path & "\Foto_Profe1.jpg")) > 0 Then
        img.Picture = LoadPicture(App.Path & "\Foto_Profe1.jpg")
    Else
        img.Picture = Nothing
        lblErrorFoto.Caption = "No se encontró la foto del profe!!"
    End If
End Sub
 
Private Sub Form_Load()
    lblInformacion.Caption = "Bienvenido profe " & UCase(Mid(Nombre_Profe, 1, 1)) & LCase(Mid(Nombre_Profe, 2)) & " !!"
    
    Carga_Foto
End Sub
 

El codigo del modulo:

Código vb:

Public Nombre_Profe As String
 

Te dejo para que investigar:
• La conexión a la base de datos
• Hacer consultas a la base de datos con Recordsets

Simplemente debes ajustar a tus necesidades la base que te dejo, nos cuentas tus avances!!!

[kip13]

Oka bro investigare eso...

Y la foto tu la almacenaste en la base cierto..??

Saludos...

[kip13]

Bro lo hize lo enlaze a la base lo hize como un boton buscar que si encuentra esos datos me muestra el form jejeje

Data1.Recordset.FindFirst ("Nombre = '" & txtSearchNom & "'") es un ejmplo de el codigo q utilize

ahora lo que me falta es la foto...

Como guardo una foto en la base y la cargo a un imagebox o un picture box ayudame....!!

Saludos

[lokoman]

Chequea el enlace:

http://www.forosdelweb.com/f69/leer-...9/#post2502644

[kip13]

Gracias bro me sirvio de muchooo...!!

[lokoman]

[kip13]

Apenas lo termine y si tengo duda la publico x aki OKA jejeje

GRACIAS..!!

[LindaMarG]

Hola!
Llevo horas buscando algo como esto!
Yo tengo una red en ning y me gustaria crear un formulario de acceso rapido para que salga en una caja de texto html. Cuando la persona entre a la pagina:
Login:
e-mail
clave
enviar
y una vez a dentro en ese recuadro salga la foto que la persona usa en su perfil, tal cual como lo explicas.
Ahora mi pregunta es donde debo pegar estos codigos, teniendo en cuenta q mi red es de ning?
y si hay que modificarle algo al codigo y que es?
Gracias