在本章中，我们将讨论学习PL/SQL中的数组。 PL/SQL编程语言提供了一种称为VARRAY的数据结构，它可以存储相同类型的元素的固定大小顺序集合。varray用于存储有序的数据集合，但通常最好将数组视为相同类型变量的集合。

所有varray是由连续的内存位置组成。最低的地址对应于第一个元素，而最后一个元素的地址最高。参考以下图示 -

数组是集合类型数据的一部分，表示可变大小的数组。 我们将在后面的“PL/SQL集合”这一章中学习其他集合类型。

varray中的每个元素都具有与之相关联的索引。它还具有可以动态更改的容量(大小)。

创建Varray类型

使用CREATE TYPE语句创建varray类型。必须指定存储在varray中的元素的最大容量(大小)和类型。

在模式(schema)级创建VARRAY类型的基本语法是 -

CREATE OR REPLACE TYPE varray_type_name IS VARRAY(n) of <element_type>
SQL

其中，

• varray_type_name是一个有效的属性名称；
• n是varray中元素的数量(最大值)；
• element_type是数组元素的数据类型。

可以使用ALTER TYPE语句更改变量的最大大小。

例如，

CREATE Or REPLACE TYPE namearray AS VARRAY(3) OF VARCHAR2(10); 
/
SQL

在PL/SQL块中创建VARRAY类型的基本语法是 -

TYPE varray_type_name IS VARRAY(n) of <element_type>
SQL

例如 -

TYPE namearray IS VARRAY(5) OF VARCHAR2(10); 
Type grades IS VARRAY(5) OF INTEGER;
SQL

下面让我们来看几个例子来更好地理解这个概念 -

实例-1

以下程序说明了如何使用varrays -

SET SERVEROUTPUT ON SIZE 99999;
DECLARE 
   type namesarray IS VARRAY(5) OF VARCHAR2(10); 
   type grades IS VARRAY(5) OF INTEGER; 
   names namesarray; 
   marks grades; 
   total integer; 
BEGIN 
   names := namesarray('Kavita', 'Pritam', 'Ayan', 'Rishav', 'Aziz'); 
   marks:= grades(98, 97, 78, 87, 92); 
   total := names.count; 
   dbms_output.put_line('Total '|| total || ' Students'); 
   FOR i in 1 .. total LOOP 
      dbms_output.put_line('Student: ' || names(i) || ' 
      Marks: ' || marks(i)); 
   END LOOP; 
END; 
/
SQL

当上述代码在SQL提示符下执行时，它会产生以下结果 -

请注意 -

• 在Oracle环境中，varrays的起始索引始终为1。
• 可以使用varray类型的构造方法初始化varray元素，该方法与varray具有相同的名称。
• varrays是一维数组。
• varray在声明时自动为NULL，并且必须在引用元素之前初始化它。

示例-2

变量的元素也可以是任何数据库表的%ROWTYPE或任何数据库表字段的%TYPE表来引用表示。 以下示例说明了这个概念。

将使用数据库中存储的CUSTOMERS表，结构和数据如下所示 -

CREATE TABLE customers
( id number(10) NOT NULL,
  name varchar2(50) NOT NULL,
  age number(2) NOT NULL,
  address varchar2(50),
  salary float(2) NOT NULL,
  CONSTRAINT customers_pk PRIMARY KEY (id)
);

INSERT INTO customers (id,name,age,address,salary) VALUES(1, '罗大牛',32,'北京', 22999.00);
INSERT INTO customers (id,name,age,address,salary) VALUES(2, 'Maxsu',25,'海口', 5999.00);
INSERT INTO customers (id,name,age,address,salary) VALUES(3, 'Hinew',22,'广州', 9800.98);
INSERT INTO customers (id,name,age,address,salary) VALUES(4, '李小路',26,'北京', 18700.00);
INSERT INTO customers (id,name,age,address,salary) VALUES(5, '张友德',28,'上海', 18999.00);
INSERT INTO customers (id,name,age,address,salary) VALUES(6, '李连定',42,'深圳', 32999.00);
SQL

以下示例使用游标引用(有关游标将在单独的章节中详细介绍和学习)。参考以下代码 -

SET SERVEROUTPUT ON SIZE 99999;
DECLARE 
   CURSOR c_customers is 
   SELECT  name FROM customers; 
   type c_list is varray (6) of customers.name%type; 
   name_list c_list := c_list(); 
   counter integer :=0; 
BEGIN 
   FOR n IN c_customers LOOP 
      counter := counter + 1; 
      name_list.extend; 
      name_list(counter)  := n.name; 
      dbms_output.put_line('Customer('||counter ||'):'||name_list(counter)); 
   END LOOP; 
END; 
/
SQL

当上述代码在SQL提示符下执行时，它会产生以下结果 -