使用自定义类型在内存阵列中创建-PLS-00306错误的参数数

时间:2019-04-11 02:22:35

标签: oracle plsql oracle12c

我正在尝试为所有具有空间元数据和空间索引的表创建一个内存阵列。

*我遇到了错误

  

PLS-00306错误的参数数

,在下面的代码行中:**

v_idx_info_arr(v_array_counter) := 
                 idx_info_arr('THE_TABLE','THE_OWNER','THE_INDEX_NAME');

当类型为“ index_info”的3个字段的类型为varchar2(100)时,为什么参数数量错误?

我确实打算将代码从该^更改为idx_info_arr(rec.index_name, rec.table_owner, rec.table_name);,但是为了进行测试,我只保留了硬编码的字符串。

我也不知道自定义类型和数组在PL / SQL中如何工作,因为我一直在将它们与文档和堆栈溢出问题联系在一起。欢迎对这些声明和用法进行任何更正。

DECLARE
    TYPE index_info IS RECORD(
        table_name varchar2(100),
        table_owner varchar2(100),
        index_name varchar2(100)
    );

    CURSOR all_geom_tables IS
    SELECT gt.owner, gt.table_name, gt.column_name, gt.srid
        FROM all_sdo_geom_metadata gt
        WHERE SRID = 8311            
        ORDER BY TABLE_NAME;

    type idx_info_arr is table of index_info;
    array v_idx_info_arr := idx_info_arr();
    v_array_counter integer := 0;

    v_table_geom sdo_geometry;
    v_spt_index varchar2(100);
    v_view_count integer;
    v_index_count integer;
BEGIN 
-- Start Loop Through all tables in database
    FOR db_table IN all_geom_tables LOOP  
        -- Loop through all tables which have a spatial index
        FOR rec IN (select table_name, table_owner, index_name 
   from ALL_SDO_INDEX_INFO WHERE 
 TABLE_OWNER = db_table.owner
    AND TABLE_NAME = db_table.table_name) LOOP                    
            DBMS_OUTPUT.PUT_LINE('Index name is: ' || rec.index_name);                    
            -- record the index here
      v_idx_info_arr(v_array_counter) := idx_info_arr('THE_TABLE','THE_OWNER','THE_INDEX_NAME');            
            v_idx_info_arr.extend();
            v_array_counter := v_array_counter + 1;
        END LOOP;
    END LOOP;
END;

1 个答案:

答案 0 :(得分:1)

对于低于Oracle 18c的版本,不能一次分配所有记录元素。它们必须单独分配。另外,在循环之前还需要v_idx_info_arr.extend,即使在未指定元素的情况下进行初始化之后,集合的大小仍为零。

Oracle 12.2之前版本的代码

DECLARE
     TYPE index_info IS RECORD ( table_name        VARCHAR2(100),
     table_owner       VARCHAR2(100),
     index_name        VARCHAR2(100) );
     TYPE idx_info_arr IS
          TABLE OF index_info;
     v_idx_info_arr    idx_info_arr := idx_info_arr ();
     v_array_counter   INTEGER := 1;

BEGIN
     v_idx_info_arr.extend;
     FOR i IN 1..10 LOOP
          v_idx_info_arr(v_array_counter).table_name := 'THE_TABLE';
          v_idx_info_arr(v_array_counter).table_owner := 'THE_OWNER';
          v_idx_info_arr(v_array_counter).index_name := 'THE_INDEX_NAME';
          v_idx_info_arr.extend ();
          v_array_counter := v_array_counter + 1;
     END LOOP;
END;
/

Oracle 18c引入了Qualified expressions,您可以这样做。

v_idx_info_arr(v_array_counter)  := 
                  index_info('THE_TABLE','THE_OWNER','THE_INDEX_NAME');

DEMO for 18c