Copiar metadatos sobre un enlace de base de datos en Oracle 10g
Pregunta
Gracias de antemano por sus expertos de ayuda.
Quiero poder copiar sobre objetos de la base de datos de la base de datos A en la base de datos B con un procedimiento creado en la base de datos B.
Creé un enlace de base de datos entre los dos y modifiqué la función get_ddl de dbms_metadata para que se vea así:
create or replace function GetDDL
(
p_name in MetaDataPkg.t_string
p_type in MetaDataPkg.t_string
)
return MetaDataPkg.t_longstring
is
-- clob
v_clob clob;
-- array of long strings
c_SYSPrefix constant char(4) := 'SYS_';
c_doublequote constant char(1) := '"';
v_longstrings metadatapkg.t_arraylongstring;
v_schema metadatapkg.t_string;
v_fullength pls_integer := 0;
v_offset pls_integer := 0;
v_length pls_integer := 0;
begin
SELECT DISTINCT OWNER
INTO v_schema
FROM all_objects@ENTORA
where object_name = upper(p_name);
-- get DDL
v_clob := dbms_metadata.get_ddl(p_type, upper(p_name), upper(v_schema));
-- get CLOB length
v_fullength := dbms_lob.GetLength(v_clob);
for nIndex in 1..ceil(v_fullength / 32767)
loop
v_offset := v_length + 1;
v_length := least(v_fullength - (nIndex - 1) * 32767, 32767);
dbms_lob.read(v_clob, v_length, v_offset, v_longstrings(nIndex));
-- Remove table’s owner from DDL string:
v_longstrings(nIndex) := replace(
v_longstrings(nIndex),
c_doublequote || user || c_doublequote || '.',
''
);
-- Remove the following from DDL string:
-- 1) "new line" characters (chr(10))
-- 2) leading and trailing spaces
v_longstrings(nIndex) :=
ltrim(rtrim(replace(v_longstrings(nIndex), chr(10), '')));
end loop;
-- close CLOB
if (dbms_lob.isOpen(v_clob) > 0)
then
dbms_lob.close(v_clob);
end if;
return v_longstrings(1);
end GetDDL;
para eliminar el prefijo de esquema que generalmente viene con los metadatos. Obtengo un valor nulo cada vez que ejecuto esta función sobre el enlace de la base de datos con las siguientes consultas.
seleccione getddl ('TABLE', 'TABLE1') de user_tables @ ENTORA donde table_name = 'TABLE1';
seleccione getddl ('TABLE', 'TABLE1') de dual @ ENTORA;
t_string es varchar2 (30) t_longstring es varchar2 (32767) y escriba t_ArrayLongString es la tabla de t_longstring
Realmente agradecería si alguien pudiera ayudar. Muchas gracias.
Solución
CREATE OR REPLACE function DEMO_FN
(object_type varchar2, table_name varchar2) return varchar2
is
v_longstrings varchar2(32223);
c_doublequote constant char(1) := '"';
begin
v_longstrings := dbms_metadata.get_ddl(object_type,table_name);
-- Remove double quotes from DDL string:
v_longstrings := replace(v_longstrings, c_doublequote || user || c_doublequote || '.','');
-- Remove the following from DDL string:
-- 1) "new line" characters (chr(10))
-- 2) leading and trailing spaces
v_longstrings := ltrim(rtrim(replace(v_longstrings, chr(10), '')));
return v_longstrings;
end;
/
Tenga en cuenta que el esquema de inicio de sesión debe tener SELECT_CATALOG_ROLE para ejecutar esta función.
Un ejemplo es
seleccione demo_fn @ db_link ('TABLE', 'TABLE_NAME') DESDE DUAL;
Otros consejos
esto funciona bien
declare
v_ddl clob;
V_DDL_PART varchar2(4000);
begin
for I in 0 .. 50 loop
select DBMS_LOB.SUBSTR@db_link(DBMS_METADATA.GET_DDL@db_link('TABLE','MYTABLE'),(4000 * I + 1)) into V_DDL_PART from dual@db_link;
V_DDL := V_DDL || V_DDL_PART;
end loop;
end;
Esto funciona bien, pequeño error corregido:
declare
v_ddl clob;
V_DDL_PART varchar2(4000);
begin
for I in 0 .. 10 loop
select DBMS_LOB.SUBSTR@LINK(
DBMS_METADATA.GET_DDL@LINK('TABLE','NAME','SCHEMA'),
4000,(4000 * I + 1)) into V_DDL_PART from dual@LINK;
V_DDL := V_DDL || V_DDL_PART;
end loop;
dbms_output.put_line(v_ddl);
end;
Espero tener la sintaxis correcta, pero creo que debería ser v_clob: = dbms_metadata@ENTORA.get_ddl (...)
en lugar de v_clob: = dbms_metadata.get_ddl (. ..)