Question

我必须创建包含三个过程的包，这些过程会将另一个函数的结果写入文件。函数get_cursor（...）return sys_refcursor如下所示：

function get_cursor(
    tabname in varchar2,
    cols    in array_t,
    vals    in array_t,
    rels    in array_t )
  return sys_refcursor
is
  cur sys_refcursor;
  where_statement varchar2(1000);
  tmp             varchar2(1000);
begin
  if cols.last                     != 0 then
    where_statement                := 'WHERE ' || cols(1) || ' ' || rels(1) || ' ';
    if (rels(1)                     = 'in' or rels(1) = 'not in') then
      where_statement              := where_statement || trim(both '''' from vals(1));
    elsif (utils.is_number(vals(1)) = 'N' and substr( vals(1), 1, 8 ) != 'TO_DATE(') then
      where_statement              := where_statement || '''' || vals(1) || '''';
    else
      where_statement := where_statement || vals(1);
    end if;
    for i in 2..cols.last
    loop
      where_statement                 := where_statement || ' AND ' || cols(i) || ' ' || rels(i) || ' ';
      if (rels(i)                      = 'in' or rels(i) = 'not in') then
        where_statement               := where_statement || trim(both '''' from vals(i));
      elsif ( utils.is_number(vals(i)) = 'N' and substr( vals(i), 1, 8 ) != 'TO_DATE(') then
        where_statement               := where_statement || '''' || vals(i) || '''';
      else
        where_statement := where_statement || vals(i);
      end if;
    end loop;
  end if;
  open cur for 'SELECT * FROM ' || tabname || ' ' || where_statement;
  return cur;
end get_cursor;

如果它正常工作并不重要，它返回一些东西，我必须将它写入过程中的文件，这将采用get_cursor需要的相同参数+路径和文件名：

procedure txt_export(
    tabname   in varchar2,
    cols      in array_t,
    vals      in array_t,
    rels      in array_t,
    path      in varchar2,
    file_name in varchar2)
is
  l_file utl_file.file_type;
  tmp_file_name varchar2(4000) := file_name;
begin
  if (tmp_file_name like '%.txt') then
    l_file := utl_file.fopen(path, tmp_file_name, 'w');
  elsif (tmp_file_name not like '%.txt') then
    tmp_file_name := tmp_file_name || '.txt';
    l_file        := utl_file.fopen(path, tmp_file_name, 'w');
  end if;

  /*
  run function get_cursor(tabname, cols, vals, rels) and write result to the file .txt
  */

  utl_file.fclose(l_file);
end;

请帮我解决这个问题。抱歉我的英语：）

问候！

Answer 1

棘手的是该函数返回一个弱引用游标;你不能使用强引用游标，因为该函数动态地组装查询的投影。因此调用程序无法知道结果集的结构。这个meacns你将需要使用动态SQL来查询结果集并找出元数据。

幸运的是，您使用的是Oracle 11g，因为Oracle引入了对方法4动态SQL的支持，它允许我们将Ref Cursors转换为DBMS_SQL游标。 Find out more。

鉴于您已经知道如何使用UTL_FILE打开和关闭文件，我假设您知道如何使用UTL_FILE.PUT（）和UTL_FILE.NEW_LINE（）来写出列。

ORACLE：写入返回sys_refcursor的函数的文件结果

1 个答案: