Fórum Problemas com permissões de acesso #50457

SQLConsulta.Active   := False;
    SQLConsulta.SQL.Clear;
    SQLConsulta.SQL.Append(´INSERT INTO RDB$USER_PRIVILEGES(RDB$USER, RDB$GRANTOR, RDB$PRIVILEGE, RDB$GRANT_OPTION, RDB$RELATION_NAME, RDB$FIELD_NAME, RDB$USER_TYPE, RDB$OBJECT_TYPE)´);
    SQLConsulta.SQL.Append(´SELECT ´´TRANSF´´, RDB$GRANTOR, RDB$PRIVILEGE, RDB$GRANT_OPTION, RDB$RELATION_NAME, RDB$FIELD_NAME, RDB$USER_TYPE, RDB$OBJECT_TYPE´);
    SQLConsulta.SQL.Append(´ FROM RDB$USER_PRIVILEGES A WHERE A.RDB$USER = ´´SYSDBA´´ AND´);
    SQLConsulta.SQL.Append(´ NOT EXISTS(SELECT B.RDB$USER FROM RDB$USER_PRIVILEGES B WHERE´);
    SQLConsulta.SQL.Append(´ B.RDB$USER = ´´TRANSF´´ AND A.RDB$PRIVILEGE = B.RDB$PRIVILEGE AND´);
    SQLConsulta.SQL.Append(´ (A.RDB$GRANT_OPTION = B.RDB$GRANT_OPTION OR B.RDB$GRANT_OPTION IS NULL) AND´);
    SQLConsulta.SQL.Append(´ A.RDB$RELATION_NAME = B.RDB$RELATION_NAME)´);
    SQLConsulta.ExecSQL(True);