ORA-06531未初始化集合错误：Oracle函数声明报错求助

我编写的T_Bill函数逻辑本身无问题，但声明时出现报错。

函数代码如下：

set serveroutput on 
create or replace type myarray is varray(10000) of number; 
create or replace function T_Bill (cus_id in integer) return number as 
    t_cost number:=0; 
    n integer; 
    bk myarray; 
    pr myarray; 
    q myarray; 
begin 
    select count(book_id) into n from issue where cust_id=cus_id; 
    select book_id,quantity BULK COLLECT into bk,q from issue where cust_id=cus_id; 
    for i in 1..n loop 
        select price into pr(i) from book where ISBN=bk(i); 
        DBMS_OUTPUT.PUT_LINE(bk(i)||' '||q(i)); 
        t_cost:=pr(i); 
    end loop; 
    return t_cost; 
end; 
/

调用代码：

declare 
    x integer:=1; 
begin 
    DBMS_OUTPUT.PUT_LINE(T_Bill(x)); 
end; 
/

报错信息：

ORA-06531: Reference to uninitialized collection
ORA-06512: at "R1507090.T_BILL", line 12
ORA-06512: at line 4

恳请帮忙排查解决该问题。

嘿，这个问题我熟！你碰到的ORA-06531错误本质很明确：你引用了一个还没初始化的集合变量。具体到你的代码里，就是pr这个myarray类型的变量——你只声明了它，但没有给它分配内存空间，就直接通过pr(i)去赋值了，Oracle当然会报错。

第一步：修复集合初始化问题 #

咱们需要在使用pr之前，先初始化它，并且根据要存储的元素数量扩展它的容量。另外我还发现你代码里的一个逻辑小bug：当前t_cost每次循环都会被新的pr(i)覆盖，最后只返回最后一本书的价格，而不是用户的总账单，我一起帮你修正了。

修正后的函数代码：

set serveroutput on 
create or replace type myarray is varray(10000) of number; 
create or replace function T_Bill (cus_id in integer) return number as 
    t_cost number:=0; 
    n integer; 
    bk myarray; 
    pr myarray; 
    q myarray; 
begin 
    select count(book_id) into n from issue where cust_id=cus_id; 
    -- 初始化集合，并扩展到需要的大小（n个元素）
    pr := myarray();
    pr.extend(n);
    
    select book_id,quantity BULK COLLECT into bk,q from issue where cust_id=cus_id; 
    for i in 1..n loop 
        select price into pr(i) from book where ISBN=bk(i); 
        DBMS_OUTPUT.PUT_LINE(bk(i)||' '||q(i)||' 单价：'||pr(i)); 
        -- 计算总费用：单价乘以数量后累加
        t_cost := t_cost + pr(i)*q(i); 
    end loop; 
    return t_cost; 
end; 
/

第二步：优化查询效率（可选但推荐） #

你当前的循环里每次都执行一次单独的select price查询，当数据量较大时效率会很低。咱们可以改成用关联查询的游标来一次性获取所有需要的数据，既避免了集合初始化的麻烦，又提升了性能：

set serveroutput on 
create or replace function T_Bill (cus_id in integer) return number as 
    t_cost number:=0; 
    -- 用关联查询直接获取订单里的书籍ID、数量和对应价格
    cursor c_bill is
        select i.book_id, i.quantity, b.price
        from issue i
        inner join book b on i.book_id = b.ISBN
        where i.cust_id = cus_id;
    v_book_id issue.book_id%type;
    v_quantity issue.quantity%type;
    v_price book.price%type;
begin 
    open c_bill;
    loop
        fetch c_bill into v_book_id, v_quantity, v_price;
        exit when c_bill%notfound;
        DBMS_OUTPUT.PUT_LINE(v_book_id||' '||v_quantity||' 单价：'||v_price);
        t_cost := t_cost + v_price*v_quantity;
    end loop;
    close c_bill;
    return t_cost; 
end; 
/

这样代码更简洁，性能也更好，还不用再操心集合初始化的问题啦。

内容的提问来源于stack exchange，提问作者Jannatul Ferdous Srabonee