RE:Problemas con Adodc
Publicado por coco (2 intervenciones) el 08/06/2005 18:31:27
hacete un dowhile que recorra toda la bd y que lo valla comparando
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!idusuario = Text1.Text Then
If Rs!contraseña = Text2.Text Then
MsgBox "Bienvenido" + " " + Rs!apellido_nombre
Exit Sub
Else
MsgBox "ACCESO DENEGADO", vbCritical, "ALERTA"
Beep
End
End If
MsgBox "Contraseña Incorrecta"
End If
Rs.MoveNext
Loop
Fijate si lo entendes
Rs.MoveFirst
Do While Not Rs.EOF
If Rs!idusuario = Text1.Text Then
If Rs!contraseña = Text2.Text Then
MsgBox "Bienvenido" + " " + Rs!apellido_nombre
Exit Sub
Else
MsgBox "ACCESO DENEGADO", vbCritical, "ALERTA"
Beep
End
End If
MsgBox "Contraseña Incorrecta"
End If
Rs.MoveNext
Loop
Fijate si lo entendes
Valora esta pregunta
0