使用 dbms_sql.parse 解析APEX_ITEM。TEXT_FROM_LOV

Using dbms_sql.parse to parse APEX_ITEM.TEXT_FROM_LOV

提问人:another apex user 提问时间:10/19/2023 最后编辑:another apex user 更新时间:10/20/2023 访问量:49

问:

我得到一个

ORA-00923:在预期位置找不到 FROM 关键字

我假设它来自尝试解析.APEX_ITEM.TEXT_FROM_LOV

它们是一种解析方法吗?下面是生成可供分析的 sql 查询的部分代码:APEX_ITEM.TEXT_FROM_LOVdbms_sql.parse

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;

或者另一种从中获取值列表的方法,以便从中解码列?在解析报表的 sql 后,我是否必须解码列?APEX_APPLICATION_LOVSAPEX_APPLICATION_PAGE_RPT_COLS

因此,生成的 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;
SQL 预言机 PLSQL 点甲骨文-APEX-19.2

评论

0赞 Koen Lostrie 10/19/2023
你期望从那个选择中得到什么回报?你能举一个关于emp/dept样本数据集的例子吗?
0赞 Koen Lostrie 10/20/2023
请提供更多信息。最后一个块,它有效吗?你的逻辑是正确的,第一个块永远不会起作用。当执行 sql 块时,将生成结果 - 如果该结果是另一个选择,则必须在另一个调用中执行。

答:

1赞 another apex user 10/20/2023 #1

所以,我的假设是正确的,我只能真正使用APEX_ITEM。TEXT_FROM_LOV在我解析了 SQL 之后:

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;