oracle pl/sql中使用自定义数据类型
2010-06-02 20:59
671 查看
模式:
CREATE OR REPLACE TYPE 类型名 as OBJECT (属性名 属性类型,...);
举例:
CREATE OR REPLACE TYPE BITS_IDX_BASE AS OBJECT ( NAME VARCHAR2(4000), FIELDS VARCHAR2(4000), CREATE_DATE VARCHAR2(4000), INCREMENT_DATE VARCHAR2(4000) );
CREATE OR REPLACE TYPE BITS_IDX_BASE_TBL AS TABLE OF BITS_IDX_BASE;
自定义类型可用于函数的返回类型:
FUNCTION LIST_BASE return BITS_IDX_BASE_TBL
as
c utl_tcp.connection; -- TCP/IP connection to the Web server
ret_val pls_integer;
lastRow varchar(3000);
currentRow varchar(3000);
idx_base_table BITS_IDX_BASE_TBL := BITS_IDX_BASE_TBL();
tmp_pos1 number;
tmp_pos2 number;
tmp_pos3 number;
BEGIN
c := utl_tcp.open_connection(remote_host => currentIdxServerAdr,
remote_port => currentIdxServerPort); -- open connection
ret_val := utl_tcp.write_line(c, 'BITS_IDX_TCP_CMD'); -- send TCP request
ret_val := utl_tcp.write_line(c, 'LISTBASE');
BEGIN
utl_tcp.flush(c);
currentRow := utl_tcp.get_line(c, TRUE);
--currentRow := utl_tcp.get_line(c, TRUE);
lastRow := null;
LOOP
currentRow := utl_tcp.get_line(c, TRUE);
if lastRow is not null then
--dbms_output.put_line(lastRow);
tmp_pos1 := instr(lastRow, '||',1,1);
tmp_pos2 := instr(lastRow, '||',1,2);
tmp_pos3 := instr(lastRow, '||',1,3);
idx_base_table.extend;
idx_base_table(idx_base_table.count) := BITS_IDX_BASE(substr(lastRow, 1, tmp_pos1 - 1), substr(lastRow, tmp_pos1 + 2, tmp_pos2 - tmp_pos1 - 2), substr(lastRow, tmp_pos2 + 2, tmp_pos3 - tmp_pos2 - 2), substr(lastRow, tmp_pos3 + 2));
end if;
lastRow := currentRow;
--dbms_output.put_line(utl_tcp.get_line(c, TRUE)); -- read result
END LOOP;
EXCEPTION
WHEN utl_tcp.end_of_input THEN
NULL; -- end of input
WHEN OTHERS THEN
NULL;
END;
utl_tcp.close_connection(c);
return idx_base_table;
END;
CREATE OR REPLACE TYPE 类型名 as OBJECT (属性名 属性类型,...);
举例:
CREATE OR REPLACE TYPE BITS_IDX_BASE AS OBJECT ( NAME VARCHAR2(4000), FIELDS VARCHAR2(4000), CREATE_DATE VARCHAR2(4000), INCREMENT_DATE VARCHAR2(4000) );
CREATE OR REPLACE TYPE BITS_IDX_BASE_TBL AS TABLE OF BITS_IDX_BASE;
自定义类型可用于函数的返回类型:
FUNCTION LIST_BASE return BITS_IDX_BASE_TBL
as
c utl_tcp.connection; -- TCP/IP connection to the Web server
ret_val pls_integer;
lastRow varchar(3000);
currentRow varchar(3000);
idx_base_table BITS_IDX_BASE_TBL := BITS_IDX_BASE_TBL();
tmp_pos1 number;
tmp_pos2 number;
tmp_pos3 number;
BEGIN
c := utl_tcp.open_connection(remote_host => currentIdxServerAdr,
remote_port => currentIdxServerPort); -- open connection
ret_val := utl_tcp.write_line(c, 'BITS_IDX_TCP_CMD'); -- send TCP request
ret_val := utl_tcp.write_line(c, 'LISTBASE');
BEGIN
utl_tcp.flush(c);
currentRow := utl_tcp.get_line(c, TRUE);
--currentRow := utl_tcp.get_line(c, TRUE);
lastRow := null;
LOOP
currentRow := utl_tcp.get_line(c, TRUE);
if lastRow is not null then
--dbms_output.put_line(lastRow);
tmp_pos1 := instr(lastRow, '||',1,1);
tmp_pos2 := instr(lastRow, '||',1,2);
tmp_pos3 := instr(lastRow, '||',1,3);
idx_base_table.extend;
idx_base_table(idx_base_table.count) := BITS_IDX_BASE(substr(lastRow, 1, tmp_pos1 - 1), substr(lastRow, tmp_pos1 + 2, tmp_pos2 - tmp_pos1 - 2), substr(lastRow, tmp_pos2 + 2, tmp_pos3 - tmp_pos2 - 2), substr(lastRow, tmp_pos3 + 2));
end if;
lastRow := currentRow;
--dbms_output.put_line(utl_tcp.get_line(c, TRUE)); -- read result
END LOOP;
EXCEPTION
WHEN utl_tcp.end_of_input THEN
NULL; -- end of input
WHEN OTHERS THEN
NULL;
END;
utl_tcp.close_connection(c);
return idx_base_table;
END;
相关文章推荐
- Oracle 学习:PL/SQL循序渐进全面学习教程--课程十三 使用组合数据类型* 游标操纵数据
- Oracle中的pl/sql编程的数据类型
- oracle中pl/sql程序高级类型的使用
- 2012年1月3日 星期二(oracle读书笔记,PL/SQL语言概述、块结构、数据类型)
- Oracle 10g复合数据类型pl/sql集合学习六——索引表、嵌套表、变长数组
- ORACLE HANDBOOK系列之六:ODP.NET与复杂的PL/SQL数据类型(Using ODP.NET To Deal With Complex PLSQL Data Types)
- 在pl/sql中使用exp/imp工具实现oracle数据导出/导入
- Oracle PL/SQL 程序设计读书笔记 - 第7章 使用数据
- 在pl/sql中使用exp/imp工具实现oracle数据导出/导入
- PL/SQL_使用复合数据类型5(批量绑定)
- Oracle通过PL/SQL Developer导出数据为CSV格式,VARCHAR2类型的字段如果存入的是数值(例如3307830000004059)太长,最后一位会被置为0
- WIN7 64位系统,Oracle 11g 64位,没法使用PL/SQL Developer导出数据
- Oracle之PL/SQL编程_数据类型与定义变量和常量
- Oracle 使用PL/SQL 读取CSV文件,将数据拆分到表中丢失数据行
- Oracle 中Java 对象与PL/SQL类型的映射及使用
- Oracle Class6. PL/SQL 简介(数据类型,逻辑比较,控制结构,错误处理)
- 【SQL】Oracle的PL/SQL语法及其拓展数据类型总结
- 常用sql命令@oracle数据类型概括@权限、角色、用户的创建于使用@伪列及其注意事项
- Oracle(PL/SQL编程基础(PL/SQL程序块与PL/SQL语句)、异常、游标、数据类型)
- Oracle PL/SQL开发基础(第二弹:使用数据字典视图查看表约束)