Fazer base de teste

[vieriParticipante]

Opa !!

Mais um complemente ai na etapa de geração de usuário.

---

GERA IMPORT USR

set serveroutput on
begin
for cUsuario in (select distinct u.name,
u.password,
d.default_tablespace
from user$ u, dba_users d
where u.type# = 1
and u.name = d.username) loop
dbms_output.put_line(”);
dbms_output.put_line(‘create user ‘ || cUsuario.name);
dbms_output.put_line(‘identified by values ”’ || cUsuario.password
|| ””);
dbms_output.put_line(‘default tablespace ‘ ||
cUsuario.default_tablespace);
dbms_output.put_line(‘temporary tablespace temp’);
dbms_output.put_line(‘quota unlimited on ‘ ||
cUsuario.default_tablespace);
dbms_output.put_line(‘quota unlimited on ‘ ||
replace(cUsuario.default_tablespace, ‘DADO’, ‘INDICE’));
dbms_output.put_line(‘profile default account unlock;’);
dbms_output.put_line(”);
dbms_output.put_line(‘grant connect, resource to ‘ || cUsuario.name
|| ‘;’);
dbms_output.put_line(”);
for cRoles in (select distinct p.grantee,
decode(u.password, ”, ‘ not identified;’, ‘ identified by values
”’ || u.password || ”’;’) password
from dba_tab_privs p, user$ u
where p.grantor = cUsuario.name
and u.name = p.grantee) loop
dbms_output.put_line(‘create role ‘ || cRoles.grantee ||
cRoles.password);
end loop;
dbms_output.put_line(”);
dbms_output.put_line(‘–
———————————————————- –‘);
end loop;
end;
/

Ishi como sempre com excelente didática!!

[]s..