Контакты Поиск
27.07.2022 17:28
OlegON
 
Иногда юзеры создают линки, а из под SYS это напрямую не удалить, чтобы не искать каждый раз скрипт для удаления линков в другой схеме, сохраню его здесь
SQL код:
set serveroutput on
DECLARE
  
l_sql CLOB :=
   
'CREATE PROCEDURE <OWNER>.drop_db_links_prc
    IS
    BEGIN
      FOR i IN (SELECT * FROM user_db_links)
      LOOP
        dbms_output.put_line(''to drop ''||i.db_link);
        EXECUTE IMMEDIATE ''DROP DATABASE LINK ''||i.db_link;
      END LOOP;
    END;'
;
  
l_sql1 clob;  
BEGIN
  
FOR i in (SELECT DISTINCT owner 
              FROM dba_objects
             WHERE owner IN 
('<OWNER>')
               AND 
object_type='DATABASE LINK')
  
LOOP
    l_sql1 
:= REPLACE(l_sql'<OWNER>'i.owner);
    
dbms_output.put_line(l_sql1);
    
EXECUTE IMMEDIATE l_sql1;
    
    
l_sql1 := 'BEGIN '||i.owner||'.drop_db_links_prc; END;';
    
    
EXECUTE IMMEDIATE l_sql1;
    
    
l_sql1 := 'DROP PROCEDURE '||i.owner||'.drop_db_links_prc';

    
EXECUTE IMMEDIATE l_sql1;
  
END loop;
END;

<OWNER> по тексту надо поменять, сооответственно.

Форум на базе vBulletin®
Copyright © Jelsoft Enterprises Ltd.
В случае заимствования информации гипертекстовая индексируемая ссылка на Форум обязательна.