siguiendo con lo anterior... mi bd tiene los siguientes campos:
usuario, clave y nivel (nivel de acceso)... con el codigo de abajo puedo determinar si el usuario existe o no, ok, "el problema", ademas debo obtener el valor del campo nivel segun los datos proporcionados para poder otorgar los niveles de acceso, este es el codigo:
rst.Open "SELECT * FROM usuarios", oconn, adOpenDynamic, adLockOptimistic
Set consultas = oconn.Execute("SELECT * FROM usuarios WHERE usuario='" & usuariotxt & "' AND clave='" & clavetxt & "'")
If consultas.EOF And consultas.BOF Then
MsgBox "Nombre de Usuario o Contraseña No Permitidos", vbCritical + vbOKOnly, "Error de Identificacion"
Else
principalfrm.Show
Unload Me
End If
que debo agregar o como lo harian uds para obtener el valor de ese campo con los datos ya obtenidos???
