Oracle 集合 plsql记录表

原创 2015年07月11日 00:30:37

1、语法

       Type Record_Table_Type_Name Is Table Of  Record_Type 

       Index By pls_integer | binary_integer | varchar2 ;

       用于处理多行多列数据

实例:

Declare
  Type Record_Table_Type Is Table Of scott.dept%Rowtype Index By Pls_Integer;
  Record_Table_Obj Record_Table_Type;
  strCur Varchar2(2);
Begin
  Select * Into Record_Table_Obj(-1) From scott.dept Where deptno=10;  
  Select * Into Record_Table_Obj(0) From scott.dept Where deptno=20;
  Select * Into Record_Table_Obj(1) From scott.dept Where deptno=30;   
  
  If Record_Table_Obj.Count>0 Then 
     dbms_output.put_line('--从第一个元素开始输出');
     strCur:=Record_Table_Obj.First();
     Loop
       Null;
      dbms_output.put_line('部门号:'||Record_Table_Obj(strCur).deptno || ' 部门名:'||Record_Table_Obj(strCur).dname);
      Exit When strCur=Record_Table_Obj.Last;
      strCur:=Record_Table_Obj.Next(strCur);
     End Loop;
     
     dbms_output.put_line('--从最后一个元素开始输出');
     strCur:=Record_Table_Obj.Last();
     Loop
       Null;
      dbms_output.put_line('部门号:'||Record_Table_Obj(strCur).deptno || ' 部门名:'||Record_Table_Obj(strCur).dname);
      Exit When strCur=Record_Table_Obj.First;
      strCur:=Record_Table_Obj.Prior(strCur);
     End Loop;
  End If;
End;


输出:
--从第一个元素开始输出
部门号:10 部门名:ACCOUNTING
部门号:20 部门名:RESEARCH
部门号:30 部门名:SALES
--从最后一个元素开始输出
部门号:30 部门名:SALES
部门号:20 部门名:RESEARCH
部门号:10 部门名:ACCOUNTING


Declare
  Type Record_Table_Type Is Table Of scott.dept%Rowtype Index By Varchar2(2);
  Record_Table_Obj Record_Table_Type;
  strCur Varchar2(2);
Begin
  Select * Into Record_Table_Obj('a') From scott.dept Where deptno=10;  
  Select * Into Record_Table_Obj('b') From scott.dept Where deptno=20;
  Select * Into Record_Table_Obj('c') From scott.dept Where deptno=30;   
  
  If Record_Table_Obj.Count>0 Then 
     dbms_output.put_line('--从第一个元素开始输出');
     strCur:=Record_Table_Obj.First();
     Loop
       Null;
      dbms_output.put_line('部门号:'||Record_Table_Obj(strCur).deptno || ' 部门名:'||Record_Table_Obj(strCur).dname);
      Exit When strCur=Record_Table_Obj.Last;
      strCur:=Record_Table_Obj.Next(strCur);
     End Loop;
     
     dbms_output.put_line('--从最后一个元素开始输出');
     strCur:=Record_Table_Obj.Last();
     Loop
       Null;
      dbms_output.put_line('部门号:'||Record_Table_Obj(strCur).deptno || ' 部门名:'||Record_Table_Obj(strCur).dname);
      Exit When strCur=Record_Table_Obj.First;
      strCur:=Record_Table_Obj.Prior(strCur);
     End Loop;
  End If;
End;


输出:
--从第一个元素开始输出
部门号:10 部门名:ACCOUNTING
部门号:20 部门名:RESEARCH
部门号:30 部门名:SALES
--从最后一个元素开始输出
部门号:30 部门名:SALES
部门号:20 部门名:RESEARCH
部门号:10 部门名:ACCOUNTING

2、Limit 返回集合对象的最大元素个数  如果不限制,则返回Null

Declare
  Type Record_Table_Type Is Table Of scott.dept%Rowtype Index By Pls_Integer;
  Record_Table_Obj Record_Table_Type;
  nested_table_obj nested_table_Typename:=nested_table_Typename();
  varray_obj       varray_Typename:=varray_Typename();
  strCur Varchar2(2);
Begin
   dbms_output.put_line('当前元素个数:'||Record_Table_Obj.Count);
   dbms_output.put_line('当前元素个数:'||nested_table_obj.Count);
   dbms_output.put_line('当前元素个数:'||varray_obj.Count);
   dbms_output.put_line('最大元素个数:'||Record_Table_Obj.Limit);
   dbms_output.put_line('最大元素个数:'||nested_table_obj.limit);
   dbms_output.put_line('最大元素个数:'||varray_obj.limit);
End;

当前元素个数:0
当前元素个数:0
当前元素个数:0
最大元素个数:
最大元素个数:
最大元素个数:100


3、以下方法适用于嵌套表和变长数组

      Extend() :为集合对象添加一个Null元素

      Extend(n):为结合对象添加n个Null元素

      Extend(n,i):为集合对象添加n个元素 ,元素值和第i个元素相同

     Trim():从集合对象尾部删除一个元素

     Trim():从集合对象尾部删除n个元素


Declare
  nested_table_obj nested_table_Typename:=nested_table_Typename();
  strCur Varchar2(2);
Begin
   dbms_output.put_line('当前元素个数:'||nested_table_obj.Count);
   nested_table_obj.extend();
   dbms_output.put_line('');
   dbms_output.put_line('当前元素个数:'||nested_table_obj.Count); 
   nested_table_obj.extend(2);
   dbms_output.put_line('');
   dbms_output.put_line('当前元素个数:'||nested_table_obj.Count); 
   dbms_output.put_line('');
   strCur:=nested_table_obj.First;
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop;
   
   nested_table_obj(1):='a';
   nested_table_obj.Extend(5,1);
   strCur:=nested_table_obj.First;
   dbms_output.put_line('');
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop;
   
   nested_table_obj.Trim;
   strCur:=nested_table_obj.First;
   dbms_output.put_line('');
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop;
   
   nested_table_obj.Trim(3);
   strCur:=nested_table_obj.First;
   dbms_output.put_line('');
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop;
End;

输出:

当前元素个数:0


当前元素个数:1


当前元素个数:3


第1个元素值:
第2个元素值:
第3个元素值:


第1个元素值:a
第2个元素值:
第3个元素值:
第4个元素值:a
第5个元素值:a
第6个元素值:a
第7个元素值:a
第8个元素值:a


第1个元素值:a
第2个元素值:
第3个元素值:
第4个元素值:a
第5个元素值:a
第6个元素值:a
第7个元素值:a


第1个元素值:a
第2个元素值:
第3个元素值:
第4个元素值:a

4、以下方法适用于嵌套表和索引表

      Delete():删除集合对象的所有元素

      Delete(n):删除集合对象的第n个元素

      Delete(m,n):删除集合对象的第m到n个元素


Declare
  nested_table_obj nested_table_Typename:=nested_table_Typename('a','b','c');
  strCur Varchar2(2);
Begin
   strCur:=nested_table_obj.First;
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop; 
   dbms_output.put_line('');
   nested_table_obj.delete;
   dbms_output.put_line(nested_table_obj.count);
   dbms_output.put_line('');
   nested_table_obj:=nested_table_typename('a','b','c');
   nested_table_obj.delete(2);
   strCur:=nested_table_obj.First;
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop; 
   dbms_output.put_line('');
   nested_table_obj:=nested_table_typename('a','b','c','d','e');
   nested_table_obj.delete(2,4);
   strCur:=nested_table_obj.First;
   Loop
     dbms_output.put_line('第'||strCur||'个元素值:'||nested_table_obj(strCur));
     Exit When strCur=nested_table_obj.Last;
     strCur:=nested_table_obj.Next(strCur);
   End Loop; 
End;

输出:

第1个元素值:a
第2个元素值:b
第3个元素值:c


0


第1个元素值:a
第3个元素值:c


第1个元素值:a
第5个元素值:e

版权声明:本文为博主原创文章,未经博主允许不得转载。

相关文章推荐

Oracle pl/sql编程 8---复合变量之记录表类型

复合变量之记录表类型 记录表类型是对记录类型的扩张,它可以处理多个记录或多行数据,使用记录表类型和记录类型一样想,必须先创建一个记录表类型: type talbe_name i...

Oracle中用触发器实现自动记录表数据被修改的历史信息

Oracle中用触发器实现自动记录表数据被修改的历史信息。 有一些比较重要的表字段每次修改需要做历史记录,以后可以查询这个表中某些字段如何被修改过。由什么改成了什么等。 我们先创建一个建议...

[Oracle]如何在亿级记录表中创建索引

1. 查看表的具体情况 查看是不是分区表,有多少个分区、分区字段: SQL> col table_name for a20 SQL> col column_name for a20 SQL> ...

Oracle如何在亿级记录表中创建索引

1.前阶段做了个项目,需要将生产系统中的一个数据,导出到备份机中,这个表近40个字段,14亿条的数据。 数据抽取用的是开源的ETL工具,比较了一下,还是先导出txt文件,在导入到备份机中,速度最...

记录表的上次选项

  • 2012-07-24 21:38
  • 793KB
  • 下载

第十周C++兄弟营团队学习情况记录表

第一组 组长:张鹏 团队名称:源代码 时间:第十周 团队集体活动: 时间:2014年11月02日 地点:宿舍502 例行小组定点会议 讨论作业中各自出现的问题以及解决不了的问题,大家就意见或...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

(最多只允许输入30个字)