使用dbms_sql.parse解析APEX_ITEM.TEXT_FROM_LOV

Question

我得到一个

ORA-00923：在预期位置未找到 FROM 关键字

我认为它来自于尝试解析

APEX_ITEM.TEXT_FROM_LOV

。

它们是使用

APEX_ITEM.TEXT_FROM_LOV

解析

dbms_sql.parse

的方法吗？以下是生成可供解析的 SQL 查询的部分代码：

DECLARE
    report_columns VARCHAR2(32767);
    column_formating VARCHAR(225) := CHR(10)||CHR(9); --next line and tab
BEGIN
    SELECT LISTAGG(column_alias || column_formating, ', ') 
            WITHIN GROUP(ORDER BY display_sequence)
      INTO report_columns
      FROM (SELECT CASE
                     WHEN REGEXP_COUNT(column_alias, CHR(32), 1, 'c') > 0 AND
                          column_alias NOT LIKE '%APEX_ITEM.TEXT_FROM_LOV%' THEN
                      '"' || column_alias || '"'
                     ELSE
                      column_alias
                   END column_alias,
                   display_sequence
              FROM (SELECT CASE
                             WHEN named_list_of_values IS NOT NULL THEN
                              'APEX_ITEM.TEXT_FROM_LOV( p_value => ' ||
                              column_alias || ', p_lov => ''' ||
                              named_list_of_values || ''') ' || column_alias
                             ELSE
                              column_alias
                           END column_alias,
                           display_sequence
                      FROM apex_application_page_rpt_cols
                     WHERE application_id = p_applicaion_no
                       AND page_id = p_page_no
                       AND region_id = p_region_id
                       AND include_in_export = 'Yes'
                     ORDER BY display_sequence));    


END;

或者从

APEX_APPLICATION_LOVS

获取值列表以便解码

APEX_APPLICATION_PAGE_RPT_COLS

中的列的另一种方法？在解析报告的 sql 后，我是否必须解码列？

因此生成的 sql 看起来像这样存储为 clob：

'SELECT 
APEX_ITEM.TEXT_FROM_LOV(EMP_NO,'''EMP_NO_ENAME_LOV''') EMP_NO 
FROM EMP'

然后将其传递给 dbms_sql.parse，因此您将得到如下结果：

EMP_NO
------
James
Jane
John
Sam

而不是

EMP_NO
------
1
2
3
4

但是我想我只能在解析sql之后才能解码值？

因此，首先从 APEX_APPLICATION_PAGE_RPT_COLS 获取region_name，然后使用 APEX_APPLICATION_LOVS，如下所示：

DECLARE
TYPE lov_array IS TABLE OF VARCHAR2(255);
l_lov lov_array := lov_array();
      
      cursor c_region_lov is
        select
        named_list_of_values
        from apex_application_page_rpt_cols
        where named_list_of_values is not null
        and include_in_export = 'Yes'
        and region_name = p_region;

  BEGIN
  
        for lov_name in c_region_lov loop
            l_lov.extend;
            l_lov(l_lov.count) := lov_name.named_list_of_values;            
        end loop;
        
        l_cursor_id := dbms_sql.open_cursor;
        dbms_sql.parse(l_cursor_id, p_query, dbms_sql.native);
        
        l_execute := DBMS_SQL.EXECUTE(l_cursor_id);
        
        loop 
            if dbms_sql.fetch_rows(l_cursor_id) = 0 then exit; 
            end if;  

            for i in 1..l_col_cnt loop
                l_column_values.extend;
                dbms_sql.column_value(l_cursor_id, i, l_values);
                    if l_lov.count != 0 then
                        for r_lov in (select list_of_values_name from APEX_APPLICATION_LOVS where application_id = p_id and list_of_values_name member of l_lov) loop
                            l_column_values(l_column_values.count) :=  APEX_ITEM.TEXT_FROM_LOV (l_values, r_lov.list_of_values_name, l_values);
                        end loop;
                    else
                        l_column_values(l_column_values.count) :=  l_values;
                    end if;
            end loop;
                        
        end loop;
        
        dbms_sql.close_cursor(l_cursor_id);
    END;

Answer 1

所以，我的假设是正确的，我只能在解析 SQL 后才能真正使用 APEX_ITEM.TEXT_FROM_LOV：

DECLARE
TYPE lov_array IS TABLE OF VARCHAR2(255);
l_lov lov_array := lov_array();
      
      cursor c_region_lov is
        select
        named_list_of_values
        from apex_application_page_rpt_cols
        where named_list_of_values is not null
        and include_in_export = 'Yes'
        and region_name = p_region;

  BEGIN
  
        for lov_name in c_region_lov loop
            l_lov.extend;
            l_lov(l_lov.count) := lov_name.named_list_of_values;            
        end loop;
        
        l_cursor_id := dbms_sql.open_cursor;
        dbms_sql.parse(l_cursor_id, p_query, dbms_sql.native);
        
        l_execute := DBMS_SQL.EXECUTE(l_cursor_id);
        
        loop 
            if dbms_sql.fetch_rows(l_cursor_id) = 0 then exit; 
            end if;  

            for i in 1..l_col_cnt loop
                l_column_values.extend;
                dbms_sql.column_value(l_cursor_id, i, l_values);
                    if l_lov.count != 0 then
                        for r_lov in (select list_of_values_name from APEX_APPLICATION_LOVS where application_id = p_id and list_of_values_name member of l_lov) loop
                            l_column_values(l_column_values.count) :=  APEX_ITEM.TEXT_FROM_LOV (l_values, r_lov.list_of_values_name, l_values);
                        end loop;
                    else
                        l_column_values(l_column_values.count) :=  l_values;
                    end if;
            end loop;
                        
        end loop;
        
        dbms_sql.close_cursor(l_cursor_id);
    END;