如何从 PL/SQL 过程动态创建具有动态数据类型的表

Question

CREATE OR REPLACE PROCEDURE p_create_dynamic_table IS 
  v_qry_str VARCHAR2 (100);
  v_data_type VARCHAR2 (30); 
BEGIN 
  SELECT data_type || '(' || data_length || ')' 
    INTO v_data_type 
    FROM all_tab_columns  
   WHERE table_name = 'TEST1' AND column_name = 'ZIP'; 

  FOR sql_stmt IN (SELECT * FROM test1 WHERE zip IS NOT NULL)
  LOOP
    IF v_qry_str IS NOT NULL THEN     
      v_qry_str := v_qry_str || ',' || 'zip_' || sql_stmt.zip || ' ' ||v_data_type;     
    ELSE     
      v_qry_str := 'zip_' || sql_stmt.zip || ' ' || v_data_type;  
    END IF;
  END LOOP; 

  IF v_qry_str IS NOT NULL THEN 
    v_qry_str := 'create table test2 ( ' || v_qry_str || ' )';
  END IF;

  EXECUTE IMMEDIATE v_qry_str;
  COMMIT;
END p_create_dynamic_table; 

有更好的方法吗？

Answer 1

如果我没看错的话，您似乎想创建一个新表，其中每个邮政编码包含一列。

我认为您提出的答案是实现您既定目标的最佳方法。我想补充一点，您可能想要对用于循环的游标进行排序，这将确保列始终处于相同的顺序。

然而，你的目标非常可疑。最好退一步考虑创建此表是否真的是解决问题的正确方法。这似乎是一次大规模的非规范化，维护起来将是一场噩梦。在不知道为什么要采用这种方法的情况下，我无法提供更好的解决方案，但是，尽管如此，我认为可能有一个。

Answer 2

为什么不在表上创建一个视图，该视图仅包含带有 zip 的列？

create or replace view Zip_View as
select * from test1
where test1.zip is not null;

这样您就不需要复制数据。或者说你的具体要求是什么？