Oracle 存储过程札记
日期：2014-05-16 浏览次数：20737 次
Oracle 存储过程笔记
create or replace procedure TestProc as
begin
? for c in (select fieldName from tableName)
? loop
? ? ??dbms_output.put_line(c.fieldName);
? end loop;
endTestProc? ;
我的异常网推荐解决方案：oracle存储过程,http://www.aiyiweb.com/oracle-develop/177537.html
?
写Oracle存储过程习惯用PL/Sql dev，里面有一些模版，我这里也记录一些目前经常使用的一些：
--基本例子create or replace procedure TestProc as
begin
? for c in (select fieldName from tableName)
? loop
? ? ??dbms_output.put_line(c.fieldName);
? end loop;
endTestProc? ;
--带异常处理
create or replace procedure test2 as
--局部变量
? vc varchar2(2048);
begin
? --过程体卸载这里
create or replace procedure test2 as
--局部变量
? vc varchar2(2048);
begin
? --过程体卸载这里
Raise?cust_exception;
? -- 异常处理??
EXCEPTION
? when cust_exception then
?????? dbms_output.put_line('custom exception');
? WHEN OTHERS THEN
??? --回滚
??? ROLLBACK;
??? dbms_output.put_line('Other Errors');
??? RETURN;
??? --END;
end test2;
? -- 异常处理??
EXCEPTION
? when cust_exception then
?????? dbms_output.put_line('custom exception');
? WHEN OTHERS THEN
??? --回滚
??? ROLLBACK;
??? dbms_output.put_line('Other Errors');
??? RETURN;
??? --END;
end test2;
--匿名过程，常用于临时处理数据
DECLARE
DECLARE
--局部变量l_elem MDSYS.SDO_ELEM_INFO_ARRAY;l_ord MDSYS.SDO_ORDINATE_ARRAY;l_srid NUMBER := 262148; -- Arbritrary X-Y Metersl_gtype NUMBER := 2002; -- 2d Linej NUMBER;x NUMBER;y NUMBER;
BEGIN
l_elem := MDSYS.SDO_ELEM_INFO_ARRAY();l_ord := MDSYS.SDO_ORDINATE_ARRAY();l_elem.EXTEND(3);l_elem(1) := 1;l_elem(2) := 2; -- etype linel_elem(3) := 1; -- interpretation straight segments--for循环for j in 1 .. 1500 LOOP
x := j;y := mod(j, 2);l_ord.EXTEND(2);l_ord(l_ord.LAST - 1) := x;l_ord(l_ord.LAST) := y;
END LOOP;INSERT INTO SHAPELY (entid, coordinates)values ('BINDVAR', MDSYS.SDO_GEOMETRY(l_gtype, l_srid, NULL,l_elem, l_ord) );
end;
--动态游标,带参数，返回值
create or replace function TestProc(v in varchar2) return varchar2 is
? strSql varchar2(4056);--SQL语句
? type rCursor is ref cursor; --游标类型
? cur rCursor;--定义游标
begin
? --拼装语句
? strSql := 'select field1 from tabName where field2 = ' || v;
? open? cur for strSql;
?
?? LOOP
???? dbms_output.put_line(cur.field1);
?? END LOOP;
?? CLOSE cur; --关闭游标
? return('OK');
end TestProc;
create or replace function TestProc(v in varchar2) return varchar2 is
? strSql varchar2(4056);--SQL语句
? type rCursor is ref cursor; --游标类型
? cur rCursor;--定义游标
begin
? --拼装语句
? strSql := 'select field1 from tabName where field2 = ' || v;
? open? cur for strSql;
?
?? LOOP
???? dbms_output.put_line(cur.field1);
?? END LOOP;
?? CLOSE cur; --关闭游标
? return('OK');
end TestProc;
我的异常网推荐解决方案：oracle存储过程,http://www.aiyiweb.com/oracle-develop/177537.html
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
