plsql - 动态更改游标中的表名

Question

我在运行程序时遇到以下错误。是选择正确的.. 试图将表名作为参数传递。请帮忙。

PLS-00364：循环索引变量“CURSOR1”使用无效

  PROCEDURE generate_uniqueId(p_table_name IN VARCHAR2)  is
  --
  --
  CURSOR unique_id_cur
   IS
    SELECT /*PARALLEL(20)*/ unique_id
    FROM   p_table_name;

--
        v_file          UTL_FILE.file_type;
        V_file_name     Varchar2 (150);
    V_file_parm     Varchar2:= ora11g/test/;
    v_output    varchar2(200);


  BEGIN
         v_file_name := p_table_name || '.lst';
        v_file := UTL_FILE.fopen ('ora11g/test/', 'unique_ID_file', 'A');
        FOR cursor1 IN unique_id_cur
        LOOP
                BEGIN
                v_output := cursor1.unique_id;
                UTL_FILE.put_line (v_file, v_output);
                END;
        END LOOP;
        UTL_FILE.fflush (v_file);
        UTL_FILE.fclose (v_file);
  END generate_uniqueId ;

Answer 1

您的 PL/SQL 代码有很多语法问题。

1. 您可以在游标声明中以“from p_table_name”的形式传递表名。

CURSOR unique_id_cur
IS
SELECT /*PARALLEL(20)*/ unique_id
FROM   p_table_name;

1. 如果你使用“VARCHAR2”数据类型那么你必须提供数据长度应该包含一个变量。此外，字符串 "ora11g/test/" 应保留在单个配额中 -'- as 'ora11g/test/'

V_file_parm Varchar2:= ora11g/test/;

1. 您正在传递的目录，不确定它是否会接受。但是，应该使用“CREATE DIRECTORY”直接在Oracle中创建一个逻辑，然后传递在“UTL_FILE.FOPEN”中创建的新目录。

这里是创建一个可以为您编译和工作的过程的示例想法，创建如下所示的真实过程。

create or replace  PROCEDURE generate_uniqueId(p_table_name IN VARCHAR2 default 'abc')
as
CURSOR unique_id_cur
   IS
    SELECT object_id as unique_id
    FROM   all_tables
    where rownum <=5;

    v_file          UTL_FILE.file_type;
    V_file_name Varchar2(150);
    V_file_parm Varchar2(200) := 'ora11g/test/';
    v_output varchar2(200);

  BEGIN
       v_file_name := p_table_name || '.lst';
       v_file := UTL_FILE.fopen ('ora11g/test/', 'unique_ID_file', 'A');
        FOR cursor1 IN unique_id_cur
        LOOP
                BEGIN
                v_output := cursor1.unique_id;
                UTL_FILE.put_line (v_file, v_output);
                END;
        END LOOP;
        UTL_FILE.fflush (v_file);
        UTL_FILE.fclose (v_file);
  END generate_uniqueId ;

EDIT-1

create or replace  PROCEDURE generate_uniqueId(p_table_name IN VARCHAR2 default 'abc')
as
type t1 is table of varchar2(255) index by pls_integer;
v_unique_ids t1;
v_sql varchar2(4000);
    v_file          UTL_FILE.file_type;
    V_file_name Varchar2(150);
    V_file_parm Varchar2(200) := 'ora11g/test/';
    v_output varchar2(200);

  BEGIN
       v_file_name := p_table_name || '.lst';
       v_file := UTL_FILE.fopen ('ora11g/test/', 'unique_ID_file', 'A');

    v_sql := 'select /* PARALLEL(20) */ unique_id  from '|| p_table_name;
    execute immediate v_sql bulk collect into v_unique_ids;

        FOR cursor1 IN v_unique_ids.first..v_unique_ids.last
        LOOP
                BEGIN
                v_output := v_unique_ids(cursor1);
                UTL_FILE.put_line (v_file, v_output);
                END;
        END LOOP;
        UTL_FILE.fflush (v_file);
        UTL_FILE.fclose (v_file);
  END generate_uniqueId ;