sql >> Base de Datos >  >> RDS >> Oracle

Oracle:inserte datos de tipo de fila en otra tabla

Para insertar una fila-

DECLARE
   v_record event%rowtype;
BEGIN 
   SELECT * INTO v_record from event where rownum=1; --or whatever where clause
   Insert into tmp_event values v_record;
END;

O una versión más elaborada para insertar todas las filas desde event -

DECLARE
  TYPE t_bulk_collect_test_tab IS TABLE OF event%ROWTYPE;

  l_tab t_bulk_collect_test_tab;

  CURSOR c_data IS
    SELECT *
    FROM event;
BEGIN
  OPEN c_data;
  LOOP
    FETCH c_data
    BULK COLLECT INTO l_tab LIMIT 10000;
    EXIT WHEN l_tab.count = 0;

    -- Process contents of collection here.
    Insert into tmp_event values v_record;
  END LOOP;
  CLOSE c_data;
END;
/

En un disparador, sí es posible, pero es como el huevo o la gallina. Tienes que inicializar cada campo del rowtype con el :new valores de columna como-

v_record.col1 := :new.col1;
v_record.col2 := :new.col2;
v_record.col3 := :new.col3;
....

Aparentemente, los ejemplos de PLSQL anteriores no se pueden usar en un activador, ya que generaría un error de activación mutante. Y no hay otra forma de obtener la fila completa en el activador que no sea acceder a cada columna por separado como explico anteriormente, así que si hace todo esto, ¿por qué no usar directamente :new.col? en INSERT into temp_event en sí mismo, le ahorrará mucho trabajo.

Además, dado que dice que es mucho trabajo mencionar todas las columnas (en Oracle 11gR2 ) aquí hay una forma rápida de hacerlo generando el INSERT instrucción y ejecutarla dinámicamente (aunque no se ha probado su rendimiento).

CREATE OR REPLACE TRIGGER event_air --air stands for "after insert of row"
AFTER INSERT ON EVENT
FOR EACH ROW
   L_query varchar2(2000);   --size it appropriately
BEGIN

   SELECT 'INSERT INTO tmp_event VALUES ('|| listagg (':new.'||column_name, ',') 
                                           WITHIN GROUP (ORDER BY column_name) ||')' 
     INTO l_query
     FROM all_tab_columns
    WHERE table_name='EVENT';

   EXECUTE IMMEDIATE l_query;

EXCEPTION
    WHEN OTHERS THEN
        --Meaningful exception handling here
END;