Visual Basic - Se requiere un objeto VB6

Life is soft - evento anual de software empresarial
 
Vista:

Se requiere un objeto VB6

Publicado por Ricardo (1 intervención) el 13/06/2019 09:32:43
Hola, tengo este codigo para validar un login en visual basic 6.0 pero me marca error en el requery y en el find, dice que se requiere un objeto ayuda, aqui está el codigo

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
Private Sub Command1_Click()
'validar los campos usuario y contraseña
If Text1.Text = "" Then MsgBox "No has ingresado el usuario.", vbInformation: Text1.SetFocus: Exit Sub
If Text2.Text = "" Then MsgBox "No has ingresado la contraseña.", vbInformation: Text2.SetFocus: Exit Sub
 
'Validar Usuario
With RsUsuarios
   .Requery 'actualizar
   .find "nombre '" & Trim(Text1.Text) & "'"
 
If .EOF Then 'Si llega al final
    MsgBox "Usuario incorrecto", vbInformation
    Text1.Text = "" 'Limpia la caja
    Text1.SetFocus 'Ubica la escritura en el usuario
    Exit Sub
Else 'Entonces no llegó al final y si encontro el usuario
    'validar contraseña
    If contraseña = Trim(Text2.Text) Then
        Unload Me 'cierra el formulario
        Form2.Show
    Else
        MsgBox "Usuario incorrecto", vbInformation
        Text2.Text = "" 'Limpia la caja
        Text2.SetFocus 'Ubica la escritura en lz contraseña
        Exit Sub
    End If
End If
End With
End Sub
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
Imágen de perfil de Andres Leonardo
Val: 3.775
Oro
Ha mantenido su posición en Visual Basic (en relación al último mes)
Gráfica de Visual Basic

Se requiere un objeto VB6

Publicado por Andres Leonardo (1473 intervenciones) el 13/06/2019 15:18:35
La instrucciones dicen...

1
2
3
4
5
6
7
8
'Validar Usuario
With RsUsuarios
.Requery 'actualizar
.find "nombre '" & Trim(Text1.Text) & "'"
 
'Si el mensaje dice Obbjetos... entonces cuales son los objetos
'La pregunta es ... existe el Recordset llamado RsUsuarios?
'el txt tambien es un objeto pero si te da en las dos .. quiere decir que es el recordset el que falta... verifica si esta definido y si esta publico 
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