2

请假设您有这样定义的 Oracle 类型：

   TYPE rec_customized
   IS
      RECORD (
         SECRET_CODE       VARCHAR2 (16),
         PUBLIC_CODE       VARCHAR2 (6),
         COMMON            VARCHAR2 (40),
         EMAIL             VARCHAR2 (241),
         CITY              VARCHAR2 (40),
         NATION            VARCHAR2 (2),
         SURNAME           VARCHAR2 (40),
         NAME              VARCHAR2 (40),
         POLICY_NUMBER     VARCHAR2 (10),
         OLD_CODE          VARCHAR2 (11),
         NEARBY            VARCHAR2 (40),
         PROVINCE          VARCHAR2 (2),
         MARITAL_STATUS    VARCHAR2 (80),
         TELEPHONE         VARCHAR2 (30),
         LITTLE_MOUSE      VARCHAR2 (30),
         STREET            VARCHAR2 (60),
         GRAPE_CODE        VARCHAR2 (1)
      );

请假设您有一个名为var01type的变量rec_customized。

在实例化所有组件之后，如果我想“DBMS_OUTPUT.PUT_LINE”它们，我将不得不写：

dbms_output.put_line (var01.secret_code);
dbms_output.put_line (var01.public_code);
dbms_output.put_line (var01.common);
dbms_output.put_line (var01.email);
.........
dbms_output.put_line (var01.grape_code);

有没有办法编写一个循环来按顺序打印 rec_customized 类型的变量 var01 的所有组件？

例如：

FOR MY_INDEX IN 1..WhateverCouldBeHelpful
LOOP
  dbms_output.put_line (var01. .....??);
END LOOP;

我正在使用 Oracle 11G 第 2 版。

预先感谢您的帮助。

4

1 回答 1

2

记录是一种复合数据类型，不允许循环遍历记录的字段。如果您必须在 PL/SQL 块中多次引用该记录 - 用于dbms_output.put_line()输出该记录的各个字段的值，您可以定义一个嵌套子程序，一次列出记录的所有字段并使用该子- 在外部 PL/SQL 块范围内根据需要多次编程。

例子：

declare
  type t_rec is record(
     field1 varchar2(11)
   );
  l_rec t_rec;
  procedure print_record(p_val in t_rec) is
  begin
    -- Here you list all p_val record's fields
    -- once and use this procedure as many times
    -- in scope of PL/SQL block this
    -- nested sub-program belongs to as needed
    dbms_output.put_line(p_val.field1);
  end;
begin
  -- [1] --
  select dummy
    into l_rec
    from dual;

  print_record(l_rec);
  -- [2] --
  l_rec.field1 := 'Other value';

  print_record(l_rec);
end;
/

结果：

X
Other value
PL/SQL procedure successfully completed
于 2013-10-31T11:27:26.510 回答