Eu gosto de gerar os scripts de grant
na mão, pois geralmente executamos uma vez, através de uma query
:
SELECT 'GRANT select,update,delete,insert ON ' || x.table_name || ' TO STACKOVERFLOW;'
FROM all_tables x
WHERE x.owner = USER;
Então o resultado eu copio e executo.
Ou o mesmo caso usando
BULK COLLECT, quando temos um grande volume de tabelas:
DECLARE
TYPE t_cursor IS REF CURSOR;
TYPE t_string_array IS TABLE OF VARCHAR2(1000) INDEX BY BINARY_INTEGER;
vcursor t_cursor;
varraystring t_string_array;
i BINARY_INTEGER;
BEGIN
OPEN vcursor FOR
SELECT 'GRANT select,update,delete,insert ' || x.table_name || ' TO STACKOVERFLOW'
FROM all_tables x
WHERE x.owner = USER;
LOOP
FETCH vcursor BULK COLLECT
INTO varraystring;
EXIT WHEN varraystring.count = 0;
FOR i IN varraystring.first .. varraystring.last LOOP
EXECUTE IMMEDIATE varraystring(i);
END LOOP;
EXIT WHEN vcursor%NOTFOUND;
END LOOP;
CLOSE vcursor;
END;
Existem outras formas mais complexas de fazer, mas acredito que essa resolva seu caso.