Nuevos Usuarios en Firebird

[GustavoCruz]

Hola amigos del foro, actualmente estoy desarrollando una aplicación y me gustaría saber cómo puedo crear un usuario por código desde delphi y asignarle un rol, de ante mano muchas gracias por todos sus aportes.

Saludos.

[Nasca]

Crear el usuario lo hago conectándome a la base de datos security.fdb y usando una sentencia como esta:

Código SQL [-]
insert into users (user_name, first_name, middle_name, last_name, passwd) values(:user_name, :first_name, :middle_name, :last_name, assword)

Hay que encriptar la password usando UnixCrypt:

Código Delphi [-]
function CreateFirebirdPassword(const password: String): String;
begin
    Result := Copy(UnixCrypt(password, '9z'),3,99);
    Result := Copy(UnixCrypt(Result, '9z'),3,99);
end;

Espero que te sirva.

[GustavoCruz]

Hola Nasca, gracias por tu aporte, me funcionó perfectamente, ahora me gustarìa saber còmo le asigno un rol a usuario y de paso còmo hago la consulta que me muestre los roles que tiene una base de datos...


Gracias nuevamente por tu aporte Nasca.

[Nasca]

Empezado por GustavoCruz

Hola Nasca, gracias por tu aporte, me funcionó perfectamente, ahora me gustarìa saber còmo le asigno un rol a usuario y de paso còmo hago la consulta que me muestre los roles que tiene una base de datos...

Para asignar el rol investiga la sentencia GRANT, pero así por encima algo como esto:

sqldPermisos.CommandText := 'GRANT '+rol+' TO '+usuario;

Como ves también lo hago mediante ExecSQL()

Con respecto a la consulta:

Código SQL [-]
select (UP.RDB$USER) as USER_NAME,  (UP.RDB$RELATION_NAME) as ROL, rd.ROLE_DESCRIPCION 
from RDB$USER_PRIVILEGES UP left outer join RDB$RD rd on(UP.RDB$RELATION_NAME = rd.RDB$ROLE_NAME) 
where UP.RDB$PRIVILEGE = 'M' and UP.RDB$OBJECT_TYPE = 13 
order by UP.RDB$RELATION_NAME'

Espero que te sirva, yo tengo conectado el dataset de los roles al de los usuarios como un maestro-detalle y así puedo ir viendo los roles de cada usuario.

[[rretamar]]

Muy buen aporte. Muy útil.

Saludos y gracias !!!!

[GustavoCruz]

Hola nuevamente, aunque dije que me había funcionado, lo hice en una base de datos firebird 1.5, pero no me he podido conectar a security2.fdb en firebird 2.1, si aquí se hace de otro modo... te gradecería muchísimo que me no indicaras.

De ante mano muchas gracias...