Outils personnels

Supprimer tous les objets d'un utilisateur : Différence entre versions

De wikiGite

Ligne 19 : Ligne 19 :
 
     execute immediate 'drop sequence '||u||'.'||x.sequence_name;
 
     execute immediate 'drop sequence '||u||'.'||x.sequence_name;
 
   end loop;
 
   end loop;
   for x in (select procedure_name,procedure_type from dba_procedures where owner=u)
+
   for x in (select procedure_name,object_type from dba_procedures where owner=u)
 
   loop
 
   loop
     execute immediate 'drop '||procedure_type||' '||u||'.'||x.table_name;
+
     execute immediate 'drop '||object_type||' '||u||'.'||x.procedure_name;
 
   end loop;
 
   end loop;
 
  end;
 
  end;

Version du 9 décembre 2010 à 14:41

On peut forcer l'exécution de DDL (exemple : ajout de droits, suppression de tables, etc..) multiple par ce genre de code :

begin
  for x in (select table_name from dba_tables where owner='ADM')
  loop
     execute immediate 'drop table ADM.'||x.table_name||' cascade constraints';
  end loop;
end;

Note : pour vider complètement le schéma d'un utilisateur (avant réimport par exemple) il convient de vérifier quels types d'objets lui appartiennent (des séquences, des fonctions, entre autres). On peut alors construire quelque chose comme ça :

declare
  u VARCHAR(5) := 'ADM';
begin
  for x in (select table_name from dba_tables where owner=u)
  loop
    execute immediate 'drop table '||u||'.'||x.table_name||' cascade constraints';
  end loop;
  for x in (select sequence_name from dba_sequences where sequence_owner=u)
  loop
    execute immediate 'drop sequence '||u||'.'||x.sequence_name;
  end loop;
  for x in (select procedure_name,object_type from dba_procedures where owner=u)
  loop
    execute immediate 'drop '||object_type||' '||u||'.'||x.procedure_name;
  end loop;
end;