Validacion de Usuarios

[Dosjota]

Hola Gente, como va todo?
Bueno, al asunto.

esty creando un programa en visual basic y necesito validar a usuarios
con su Rut y Clave, ademas, cada usuario tiene un cargo. al validarlo y entrar al formulario principal este tenga ciertos privilegios

mi duda es como hago que al ingresar el rut y la clave
automaticamente pregunte si es administrador o un usuario con privilegios restringidos

se agradese

El Riper

[tkows]

No se muy bien a que te refieres... ¿Quieres que compruebe si el usuario es administrador o tiene una cuenta restringida o que automáticamente identifique al usuario y a partir de ahí haga el login?

Explícate y veré si puedo ayudarte.

Salu2.

[Dosjota]

claro, quiero que al ingresar un rut y una clave, este valla a SQL Server
y vea que privilegios tiene, y si este tiene privilegios de administrador se habiliten todos los menus y si tiene privilegios de usuario restringido, se desabiliten algunos nenus, cono crear cuentas y otros.

esto tiene que ser valido solamente para los usuarios registrados en el sistema
y para los que no esten simplemente salga un mensaje que no esta registrado.

para registrarlos en el menu del programa en si, ay un menu crear cuenta y ay los registra algun usuario con privilegio "administrador"

¿me entiendes?

esto lo estoy haciendo en visual basic 6.0 y SQL 2000

gracias, se agradece...

[ranslsad]

Veamos quieres crear un programa cliente-servidor en el cual al entrar el servidor envie al cliente la informacion de cuenta e informar si es usuario, admin y eso?
:S
Explica mejor que tas haciendo porque sino..

Salu2

Ranslsad

[Lambda]

Yo estoy haciendo un programa parecido, se conecta a un servidor y hace login etc..

Te aconsejo que crees un servidor, y el cliente envie packets tipo

LOGIN@USUARIO@CONTRASEÑA

En el servidor haces un split y usas el Variable(0) para identificar si el usuario esta haciendo login ya que Variable(0) = LOGIN

Entonces luego haces un rs.Open "SELECT * FROM Usuarios WHERE UserID = '" & Variable(1) & "' AND Password = '" & Variable(2) & "'"

Con eso haces una query el la db y mira si el usuario existe, desde ahi pues verificas q los datos son correctos con rs.EOF y envias al cliente x ejemplo

RESPUESTALOGIN@VALIDO@ADMINISTRADOR o RESPUESTALOGIN@VALIDO@USUARIO

Espero q te sirva de ayuda 

[Dosjota]

me comentaron que realizara un rs.fields

la sentencia en la que tengo que aplicarlo es en esta.
AbrirCuenta 'la variable para abrir la Base de Datos
rs.MoveLast
Set rs = cnn.Execute("select * From usuarios where Rut='" & Text1 & "' and clave='" & Text2 & "'")

y me comentaron que en la tabla creara una columna con los cargos y que hiciera la consulta, si el rut y clave eran correctos con el rs.Fields preguntara a que cargo correspondia, por ejemplo, El Cargo Administrador es igual a 2.

creara una consulta en la cual el rs.fields preguntara si esos dato (el rut y clave) correspondian a esa columna con cargo 2.

¿me entenden?

lo que ando buscando es solamenta para que cada vez que me conecte con tal rut y clave correspondiente,  este revise el cargo y vea si es administrador o un usuario restringido, y claro si es administrador, este pueda realizar todo tipo de actividades y si fuese usuario limitado, este tenga siertas restricciones, como un menu desabilitado, algo asi...

Gracias, espero poder encontrar una solucion, o que ustedes me ayuden...
       

[Dosjota]

bueno, al final era esto lo que andaba buscando...
al parecer creo que me exprese mal... pero bueno al fin y al cabo lo pude realizar...
De todas formas gracias por la ayuda...
y ay esta el extracto, por si a alguien le interesa y le sirve..


AbrirCuenta
rs.MoveLast
Dim pri As String
Set rs = cnn.Execute("select * From usuario where Rut='" & Text1 & "' and clave='" & Text2 & "'")
        If Not rs.EOF Then ' mientras exista un registro
           
            pri = rs.Fields("tipo") ' variable para el privilegio
           
            If (pri) = "A" Then ' administrador
                MsgBox "Autentificacion Aceptada!!!", vbExclamation, "Autentificacion"
                Form1.Visible = True
                Form2.Visible = False
                rs.Close ' cerrar o liberar el cursor de esa sección
                'limpiar
            Else
            If (pri) = "B" Then 'usuario registrado
                MsgBox "Autentificacion Aceptada!!!", vbExclamation, "Autentificacion"
                Form1.Visible = True
                Form2.Visible = False
                Form1.mnu_cuentas.Visible = False
                rs.Close ' cerrar o liberar el cursor de esa sección
                'limpiar
            Else
            If (pri) = "C" Then ' invitado
                MsgBox "Autentificacion Aceptada!!!", vbExclamation, "Autentificacion"
                Form1.Visible = True
                Form2.Visible = False
                rs.Close ' cerrar o liberar el cursor de esa sección
               ' limpiar
            End If
            End If
            End If
        Else
            MsgBox "Autentificacion Erronea, verifique los datos", vbCritical, "Autentificacion"
            rs.Close
            'limpiar
        End If