Visual Basic - Ayuda con login

Life is soft - evento anual de software empresarial
   
Vista:
Imágen de perfil de jos

Ayuda con login

Publicado por jos (10 intervenciones) el 01/07/2015 19:04:49
Hola, gracias por leer primero que nada, nesecito ayuda con un codigo, es de un login que estoy haciendo el vb 6.0, el error que me da no es un error en si, es que no hace lo que se supone que haga, se supone que debe ingresar un nombre de usuario, y luego con la contraseña correspondiente entrar, pero si ingreso con un nombre de usuario, me deja entrar con las contraseñas de los otros usuarios, y abre el usuario correspondiente a la contraseña no a nombre de usuario.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
Adodc1.Recordset.Requery
    Adodc1.Recordset.Find "cedest='" & txtia.Text & "'"
    If Adodc1.Recordset.EOF = False Then
        txtca.Enabled = True
        vae = 1
        If (cone = 0) Then
           txtca.SetFocus
        End If
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
        Timer5.Enabled = False
        Timer6.Enabled = False
        Timer7.Enabled = False
        Timer8.Enabled = False
        Timer9.Enabled = False
        Timer10.Enabled = False
        Timer11.Enabled = False
        Timer12.Enabled = False
        Timer13.Enabled = False
        imgcheck.Picture = LoadPicture("C:\Projecto Projecto\confirmacionn.jpg")
        Adodc1.Recordset.Requery
        Adodc1.Recordset.Find "cedest='" & txtia.Text & "'"
        Adodc1.Recordset.Find "contraseña='" & txtca.Text & "'"
        If Adodc1.Recordset.EOF = False Then
            Timer14.Enabled = True
            Load frmmenua
            vtua1 = 1
            vtua2 = 1
            imgcheck2.Picture = LoadPicture("C:\Projecto Projecto\confirmacionn.jpg")
            imgcheck.Picture = LoadPicture("C:\Projecto Projecto\confirmacionn.jpg")
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = False
            Timer4.Enabled = False
            Timer5.Enabled = False
            Timer6.Enabled = False
            Timer7.Enabled = False
            Timer8.Enabled = False
            Timer9.Enabled = False
            Timer10.Enabled = False
            Timer11.Enabled = False
            Timer12.Enabled = False
            Timer13.Enabled = False
            frmlogin.Enabled = False
        Else
            If (vae = 1) Then
            cone = cone + 1
            End If
            If (cone = 4) Then
                verr = 4
                frmmaxl.Show
            End If
            If (cone = 7) Then
                verr = 5
                frmmaxl.Show
            End If
            Timer1.Enabled = False
            Timer2.Enabled = False
            Timer3.Enabled = False
            Timer4.Enabled = False
            Timer5.Enabled = False
            Timer6.Enabled = False
            Timer7.Enabled = False
            Timer8.Enabled = False
            Timer9.Enabled = False
            Timer10.Enabled = False
            Timer11.Enabled = False
            Timer12.Enabled = False
            Timer13.Enabled = False
            imgcheck2.Picture = LoadPicture("C:\Projecto Projecto\negacionn.jpg")
            vtua2 = 0
        End If
    Else
        txtia.SetFocus
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
        Timer5.Enabled = False
        Timer6.Enabled = False
        Timer7.Enabled = False
        Timer8.Enabled = False
        Timer9.Enabled = False
        Timer10.Enabled = False
        Timer11.Enabled = False
        Timer12.Enabled = False
        Timer13.Enabled = False
        imgcheck.Picture = LoadPicture("C:\Projecto Projecto\negacionn.jpg")
        vtua1 = 0
    End If
    If (txtca.Text = "") Then
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
        Timer5.Enabled = False
        Timer6.Enabled = False
        Timer7.Enabled = False
        Timer8.Enabled = False
        Timer9.Enabled = False
        Timer10.Enabled = False
        Timer11.Enabled = False
        Timer12.Enabled = False
        Timer13.Enabled = False
        imgcheck2.Picture = LoadPicture("")
    End If
    If (txtia.Text = "") Then
        txtca.Enabled = False
        txtia.SetFocus
        Timer1.Enabled = False
        Timer2.Enabled = False
        Timer3.Enabled = False
        Timer4.Enabled = False
        Timer5.Enabled = False
        Timer6.Enabled = False
        Timer7.Enabled = False
        Timer8.Enabled = False
        Timer9.Enabled = False
        Timer10.Enabled = False
        Timer11.Enabled = False
        Timer12.Enabled = False
        Timer13.Enabled = False
        imgcheck.Picture = LoadPicture("")
    End If
lo explico, la primera condicion se supone que busca la coincidencia entre lo ingresado en el textbox con un campo en especifico en una base de datos en access, y la segunda condicion vuelve a buscar la conincidencia del nombre de usuario con lo que se encuentre en un campo en especifico de la base de datos y hace lo mismo con la contraseña, si los encuentra pues hace todo lo siguiente, si no pues hace otra cosa, que seria el deshabilitar el monton de timer y cambiar una imagen.
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

Ayuda con login

Publicado por Rafael (65 intervenciones) el 02/07/2015 11:09:07
Hola:

Tu problema esta en la segunda parte buscas un usuario lo encuentra ...
Pero luego buscas una contraseña que puede pertenecer a cualquier usuario por lo cual tambien la encuentra...

Lo que tienes que hacer es buscar al usuario y la contraseña en el mismo paso...

Algo similar a esto
1
Adodc1.Recordset.Find "cedest='" & txtia.Text & "' AND contraseña='" & txtca.Text & "'"

Pruebas y nos cuentas???
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
1
Comentar
Imágen de perfil de jos

Ayuda con login

Publicado por jos (10 intervenciones) el 06/07/2015 19:50:31
grax, no habia respondido por que ya habia encontrado la respuesta, grax por responder de todos modos.
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