lightdb plorasql集合类型新增可变数组

文章目录

  • 背景
  • 集合类型
  • 可变数组
  • 可变数组示例

背景

在信创适配中,从Oracle迁移过来的存储过程使用到可变数组。因此在LightDB-X 23.4版本中对现有的集合类型进行了增强,添加了可变数组类型。

集合类型

在LightDB-X 23.4版本开始plorasql支持的集合类型同Oracle一致,覆盖了关联数组,可变数组和嵌套表三种类型,支持的方法如下

  • DELETE 从集合中删除元素。
  • EXTEND 将元素添加到集合的末尾。
  • EXISTS 如果集合的指定元素存在,则返回TRUE。
  • FIRST 返回集合中的第一个索引。
  • LAST 返回集合中的最后一个索引。
  • COUNT 返回集合中的元素数量。

可变数组

可变大小数组是一个数组,其元素数量可以从零(空)到声明的最大大小不等,在这里超过也支持。

要访问可变数组的元素,使用语法variable_name(index)。在数据库中存储和检索可变数组时,其索引和元素顺序将保持稳定。

随着您添加或删除元素,可变数组变量占用的内存量可以动态增加或减少。

目前只支持本地类型的可变数组,不支持全局可变数组。

可变数组示例

准备数据

select dbms_output.serveroutput(true);
create table user_info(id int, name varchar(30));
insert into user_info values( 11, 'zhangsan');
insert into user_info values( 21, 'lisi');
insert into user_info values( 31, 'wangwu');

匿名块

declare
    type id_array is varray(10) of INTEGER;
    ids id_array := id_array(11, 21);
    v_name varchar2(30);
begin
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    ids.extend;
    ids(ids.count) := 31;
    
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    dbms_output.put_line('count=' || ids.count);
    
    for i in ids.first .. ids.last loop
        select name into v_name from user_info where id = ids(i);
        dbms_output.put_line('ids(' || i || ') name is ' || v_name);
    end loop;

    ids.delete;
    dbms_output.put_line('after is.delete, count=' || ids.count);
end;
/

ids(3) not exists.
ids(3) exists.
count=3
ids(1) name is zhangsan
ids(2) name is lisi
ids(3) name is wangwu
after is.delete, count=0
DO

函数

create or replace function f_varray() return int is
    type id_array is varray(10) of INTEGER;
    ids id_array := id_array(11, 21);
    v_name varchar2(30);
begin
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    ids.extend;
    ids(ids.count) := 31;
    
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    dbms_output.put_line('count=' || ids.count);
    
    for i in ids.first .. ids.last loop
        select name into v_name from user_info where id = ids(i);
        dbms_output.put_line('ids(' || i || ') name is ' || v_name);
    end loop;

    ids.delete;
    dbms_output.put_line('after is.delete, count=' || ids.count);
    return ids.count;
end;
/

select f_varray();

ids(3) not exists.
ids(3) exists.
count=3
ids(1) name is zhangsan
ids(2) name is lisi
ids(3) name is wangwu
after is.delete, count=0
 f_varray 
----------
        0
(1 row)

存储过程

create or replace procedure p_varray() is
    type id_array is varray(10) of INTEGER;
    ids id_array := id_array(11, 21);
    v_name varchar2(30);
begin
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    ids.extend;
    ids(ids.count) := 31;
    
    if ids.exists(3) then
        dbms_output.put_line('ids(3) exists.');
    else
        dbms_output.put_line('ids(3) not exists.');
    end if;
    
    dbms_output.put_line('count=' || ids.count);
    
    for i in ids.first .. ids.last loop
        select name into v_name from user_info where id = ids(i);
        dbms_output.put_line('ids(' || i || ') name is ' || v_name);
    end loop;

    ids.delete;
    dbms_output.put_line('after is.delete, count=' || ids.count);
end;
/

call p_varray();

ids(3) not exists.
ids(3) exists.
count=3
ids(1) name is zhangsan
ids(2) name is lisi
ids(3) name is wangwu
after is.delete, count=0
CALL

你可能感兴趣的:(lightdb,lightdb,数据库)