在 PL/SQL 中使用查询作为参数的过程

debugcn 发表于 Dev

汤姆

我目前正在使用此代码从 Oracle PL/SQL 中的查询生成 XLS 文件，并使用此代码保存带有 HTML 标记的文件。

CREATE OR REPLACE PROCEDURE GENERATE_XLS(querie VARCHAR2) IS
v_file               VARCHAR2 (20)            := 'TEST-EXCEL.xls';
v_directory            VARCHAR2 (60)            := 'C:\';
p_write                LIB_FILES.file_type;
v_sql varchar2(32767) := 'SELECT LASTNAME, NAME, ID
                                FROM DUAL';
header VARCHAR(1000) := '<html> <head><center><B><U> TEST XLS  </U></B></center>
    <table></tr><tr><th>LASTNAME</th><th>NAME</th><th>ID</th></tr>';
BEGIN    
    p_write := LIB_FILES.fopen (v_directory, v_file, 'W');
    LIB_FILES.put_line (p_write, header);
    FOR REGISTRY IN querie LOOP
        LIB_FILES.put_line (p_write,'<tr><td>'||REGISTRY.LASTNAME||'</td><td>'||REGISTRY.NAME||'</td><td>'||REGISTRY.ID||'</td></tr>');
    END LOOP;
    LIB_FILES.put_line (p_write,'</table>');
    LIB_FILES.fflush (p_write);
    LIB_FILES.fclose (p_write);        
END;

这现在正在工作，但我需要向此过程添加一个参数，即 SQL 查询，然后根据查询生成文件

我目前正在使用此代码来获取列名称

CREATE OR REPLACE PROCEDURE GET_COLUMNS IS        
    v_cursor_id integer;    
    v_col_cnt integer;
    v_columns dbms_sql.desc_tab;    
    v_sql varchar2(3000) :='SELECT LASTNAME, NAME, ID FROM DUAL';
    header VARCHAR(1000):='<html> <head><center><B><U> TEST XLS  </U></B></center>
    <table></tr><tr>';
begin    
    v_cursor_id := dbms_sql.open_cursor;
    dbms_sql.parse(v_cursor_id, v_sql, dbms_sql.native);
    dbms_sql.describe_columns(v_cursor_id, v_col_cnt, v_columns);
    for i in 1 .. v_columns.count loop
        header := header || '<th>'|| v_columns(i).col_name ||'</th>';        
    end loop;
    header := header || '</tr>';

    dbms_sql.close_cursor(v_cursor_id);
exception when others then
    dbms_sql.close_cursor(v_cursor_id);
    raise;
end;

但在这里我面临同样的问题，我需要使这个过程与来自参数的动态查询一起工作，而不是在过程中声明查询。

我怎样才能做到这一点？

卡纳加拉吉

我没有安装 oracle ，据我所知，我提供了这些详细信息......检查并验证这一点

CREATE OR REPLACE PROCEDURE GET_COLUMNS (p_sql IN VARCHAR2 , p_header IN VARCHAR2)

IS        
    v_cursor_id integer;    
    v_col_cnt integer;
    v_columns dbms_sql.desc_tab;    
    v_sql varchar2(3000) := p_sql;
    header VARCHAR(1000):= p_header;
begin    
    v_cursor_id := dbms_sql.open_cursor;
    dbms_sql.parse(v_cursor_id, v_sql, dbms_sql.native);
    dbms_sql.describe_columns(v_cursor_id, v_col_cnt, v_columns);
    for i in 1 .. v_columns.count loop
        header := header || '<th>'|| v_columns(i).col_name ||'</th>';        
    end loop;
    header := header || '</tr>';

    dbms_sql.close_cursor(v_cursor_id);
exception when others then
    dbms_sql.close_cursor(v_cursor_id);
    raise;
end;

To execute 

Execute GET_COLUMNS ('SELECT LASTNAME, NAME, ID FROM DUAL','<html> <head><center><B><U> TEST XLS  </U></B></center>
    <table></tr><tr>');

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。