創建光標作爲參數

Question

的程序我寫了這個代碼，它工作正常：

declare 
    cursor c_emp is 
    select last_name, first_name from employees; 
    type c_list is table of employees.last_name%type index by binary_integer; 
    type c_list2 is table of employees.first_name%type index by binary_integer; 
    last_list c_list; 
    first_list c_list2; 
    counter integer := 0; 
begin 
    for i in c_emp loop 
    counter := counter + 1; 
    last_list(counter) := i.last_name; 
    first_list(counter) := i.first_name; 
    dbms_output.put_line('Employee(' || counter || '): ' || last_list(counter) || ' ' || first_list(counter)); 
    end loop; 
end; 
/

這一次，我想使程序與我可以插入表名和列入遊標參數。我試過這個：

create or replace procedure show_data(tab_name in varchar2, data_list in varchar2) 
is 
    str varchar2(100); 
    str2 varchar2(100); 
    column_name varchar2(100); 
begin 
    str := 'select ' || data_list || ' from ' || tab_name; 
    for vRec in str loop 
    dbms_output.put_line(str); 
    end loop; 
end; 
/

它給出了一個錯誤，其中str不是遊標。我不確定如果光標可以用這種方式完成，但是從它看起來不可能的錯誤。

我的代碼哪部分是錯的，還是因爲我沒有聲明我的遊標？但是，如果我聲明我的遊標，我不能通過使用動態SQL方式獲取參數。

Answer 1

以下應該產生與原始PL/SQL塊相同的結果。請注意，table_name可以是動態的，data_list也可以是動態的，但您需要知道data_list中的列名才能夠從光標fetch中打印出來。

create or replace procedure show_data(tab_name in varchar2 
           , data_list in varchar2) 
is 
    str varchar2(100); 
    str2 varchar2(100); 
    column_name varchar2(100); 
    TYPE cursor_ref IS REF CURSOR; 
    vRec_cursor cursor_ref; 
    counter integer = 0; 
    last_name employee.last_name%TYPE; 
    first_name employee.first_name%TYPE; 
begin 
    str := 'select ' || data_list || ' from ' || tab_name; 
    open vRec_cursor for str; 
    loop 
    FETCH vRec_cursor INTO last_name, first_name; 
    EXIT WHEN vRec_cursor%NOTFOUND; 
    dbms_output.put_line('Employee(' || counter || '): ' || last_name || ' ' || first_name; 
    counter = counter + 1; 
    end loop; 
end; 
/

注：有沒有運行上面的代碼又