5.23.txt

来自「delphi renyuanguanlixinxioxitong」· 文本 代码 · 共 13 行

DECLARE
  TYPE ename_table_type IS TABLE OF employee.employeename%TYPE;
  ename_table ename_table_type;
BEGIN
  SELECT employeename INTO ename_table(2) FROM employee 
WHERE employeeno=&no;
  dbms_output.put_line('员工名：'||ename_table(2));
EXCEPTION
  WHEN COLLECTION_IS_NULL THEN
    dbms_output.put_line('必须使用构造方法初始化集合元素');
END;