Oracle匿名块三种方法输出乘法表：loop/for/while
2018-03-27 14:41:06
Oracle用三种循环方法输出乘法表，比如loop的用法： m := 1; loop n := 1; loop dbms_output.put(m||'*'||n||'='||m*n||' '); n := n + 1; exit when n > m; end loop; dbms_output.put_line('');...
收起
Oracle

Oracle 匿名块和命名块存储过程函数包触发器

千次阅读 2018-12-04 20:43:22

PL/SQL块分类（匿名块、命名块、子程序、触发器）

2016年07月28日 11:34:15 王涛WantTao 阅读数：2512更多

个人分类： ORACLE | PL/SQL

-匿名块
DECLARE
V_NAME VARCHAR2(5);
BEGIN
SELECT NAME INTO V_NAME WHERE AGE=100;
DBMS_OUTPUT.PUT_LINE(V_NAME);
EXCEPTION
WHER NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('未查到到任何数据');
END;

-命名块
<<OUTER>>
DECLARE V_NAME VARCHAR2(5);
BEGIN
SELECT NAME INTO V_NAME WHERE AGE=100;
DBMS_OUTPUT.PUT_LINE(V_NAME);
EXCEPTION
WHER NO_DATA_FOUND THEN
DBMS_OUTPUT.PUT_LINE('未查到到任何数据');
END;--<<OUTER>>

-子程序之过程
CREATE OR REPLACE PROCEDURE UPDATE_SAL(NEWNAME VARCHAR2，_ID NUMBER)
IS
ERROR_EXP EXCEPTION;
BEGIN
UPDATE TABLENAME SET NAME=NEWNAME WHERE ID=_ID;
IF SQL%NOTFOUND THEN
RAISE ERROR_EXP;
END IF;
EXCEPTION
WHEN ERROR_EXP
RAISE_APPLICATION_ERROR('-20004','error');
END;-
-执行过程
exec UPDATE_SAL('WT',100);

--子程序之函数
CREATE FUNCTION ANNUAL_INCOME(NAME VARCHAR2)
RETURN NUMBER IS
ANNUAL_SALARY NUMBER(7，2);
BEGIN
SELECT SAL*12+NVL(COMM,0) INTO ANNUAL_SALARY
FROM TABLENAME WHERE LOWER(ENUMA)=LOWER(NAME);
END;
--执行函数
SQL> VAR INCOME NUMBER
SQL> CALL ANNUAL_INCOME('NAME') INTO:INCOME
SQL> PRINT INCOME

--触发器指隐含执行的存储过程
CREATE TRIGGER UPDATE_CASCADE
AFTER UODATE OF deptno ON dept FOR EACH ROW
BEGIN
UPDATE emp SET deptno=:new.deptno WHERE deptno=:old.deptno;
END;
如上例所示，触发器UPDATE_CASCADE用于实现联级更新，当更新 deptno列时，emp的deptno列也会相应更新

https://blog.csdn.net/wangtao510/article/details/52053599

Oracle中命名块之存储过程的简单使用

2017年04月05日 10:29:32 菜鸟的奋斗之路阅读数：1585

一、匿名块和命名块
◆PL/SQL块分为良好总：命名块和匿名块。

◆匿名块：以declare或begin开始，每次执行匿名块都要通过客户端工具将其发送给Oracle，经过语法分析、编译然后执行。

◆命名块：具有名称的PL/SQL块，这些命名块被存储在Oracle中，编译一次，以后只可调用就可多次执行。如：存储过程、存储函数、包、触发器等、
存储过程：无返回值;
存储函数：有返回值;
包：可容纳多个过程或函数的一个容器(较好管理这些过程和函数，类似于java中的包);
触发器：在合适的实际被自动执行。(无需调用，在满足要求的情况下，自动执行；触发器也被称为隐式执行的命名块！)

◆匿名块和命名块的区别：
匿名块：能够动态地创建和执行过程代码的PL/SQL结构，每次执行匿名块时就会自动的将该块数据通过文本的形式发送给Oracle，然后执行，反馈给用户，每次执行都需发送和编译！
命名块：持久化的方式将代码作为数据库属性储存在系统目录中，在Oracle中编译一次，下次若使用可直接调用执行，无需再次编译，非常高效。

二、存储过程：
存储过程是具有名称、完整特定功能和无返回值的PL/SQL块，只需发送调用命令即可执行该过程，能够实现代码的重用，不能在SQL语句当中调用！

◆创建存储过程：
格式：create[or replace] procedure proc_name
[(para1[int|out|in out]type,...)]
{is|AS}
prdc_body

proc_name表示存储过程名;
para1表示参数名;type是参数para1的数据类型;
proc_body表示过程体.过程体是遵循PL/SQL块的结构，但不能使用declare关键字，end后面可带有过程名。

注意：参数列表是可选的

◆调用存储过程：(存储过程创建的时候会自动的保存在Oracle中，在执行储存过程的时候，PL/SQL块只需调用即可！)
(1)如果在PL/SQL块中调用，直接使用proc_name(...);
(2)如果使用sql plus环境中，需要使用 EXEC proc_name(...)的形式;
(3)如果存储过程无参数，这调用时可带有圆括号也可不带！

【示例】创建一个无参数的存储过程(显示所有员工的信息)
create or replace procedure pr_show_employee
is
--进入块的声明部分(无需编写declare关键字)
--定义游标
cursor v_emp_cursor is select * from employees;
--定义游标类型的记录型行变量
v_emp_record v_emp_cursor%rowtype;
begin
for v_emp_record in v_emp_cursor loop
dbms_output.put_line(v_emp_record.employee_id||','||v_emp_record.first_name||','||
v_emp_record.last_name||','||v_emp_record.salary);
end loop;
end pr_show_employee ;

--调用存储过程(在一个匿名块中执行)
begin
pr_show_employee();
end;

【示例】存储过程的参数接受产品类别编号，输出该类所有产品的信息
create or replace procedure pr_show_product(
product_type products.product_type_id%type)
as
--定义游标
cursor v_prd_cursor is select * from products p where product_type = p.product_type_id;
--定义游标的行类型变量
v_prd_record v_prd_cursor%rowtype;
begin
for v_prd_record in v_prd_cursor loop   dbms_output.put_line(v_prd_record.product_id||','||v_prd_record||','||product_type_id||','||v_prd_record.description||','
||v_prd_record. name||','||v_prd_record.price);
end loop;
end pr_show_product;

--调用存储过程(执行)
declare
--定义编号变量的类型
v_prd_type_id products.product_type_id%type := 1;
begin
pr_show_product(v_prd_type_id);
end;

◆参数的传递模式：
参数传递有三种模式：in、out、in out
in：过程调用时，实参的值会传递给形参。形参被看作是常量，在过程内部不能被修改。
out：过程调用时，实参的值被忽略，形参为null值，在过程内部形参变量可以读写。过程结束时，形参的值赋值给实参！
in out：过程调用时，实参的值传递给形参，在过程内部形参变量可读可写，过程结束时，形参的值赋值给实参。

注意：如果在定义存储过程时，没有指明参数传递模式，则默认为 in 模式

【示例】创建一个有参数传递默认的存储过程
create or replace procedure pr_test(p_1 in out varchar2)
is

begin
dbms_output.put_line('p_1='||p_1);
p_1 := 'abc';
dbms_output.put_line('p_1='||p_1);
end pr_test;

--调用存储过程
declare
v_1 varchar2(5) := 'wwww';
begin
pr_test(v_1);
dbms_output.put_line('v_1='||v_1);
end;
注意:(1)在创建存储过程时，形参类型不能指定具体的长度,字符类型就为 varchar2,数字类型就是number；默认和实参类型的长度等同
(2)使用 in 模式，形参接受实参的值，默认形参为常量，在存储过程当中不能被修改，否则出错！
(3)使用 out 模式，实参的值被忽略，但必须是变量，用来接收存储过程执行完形参的值；而形参是可读可写的。
(4)使用 in out 模式，实参的值传递给形参，也必须是变量，形参可读可写，最后执行完存储过程形参的值传递给实参！
(5)参数传递，实参的值和长度或精度约束会传递给形参，因此，形参不能有长度或精度的约束。在过程中给形参赋值时，要注意它的长度或精度的限制！

https://blog.csdn.net/super_yc/article/details/69226920

【PL/SQL】匿名块、存储过程、函数、触发器

名词解释

子程序：PL/SQL的过程和函数统称为子程序。

匿名块：以DECLARE或BEGIN开始，每次提交都被编译。匿名块因为没有名称，所以不能在数据库中存储并且不能直接从其他PL/SQL块中调用。

命名块：除匿名块之外的其他块。包括过程、函数、包和触发器。可以在数据库中存储并在适当的使用运行。

子程序的优点：

1）具有扩展性

可以自定义PL/SQL语言以满足实际应用

2）高可用和可维护性

子程序的调用不受调用者数目的影响，只要有效就可被调用。

如果定义被更改以后，只有子程序受到影响，简化了维护、优化过程。

匿名块、过程、函数的执行过程基本相似，不同之处在于：匿名块在DECLARE后面声明变量，而过程和函数在IS后面声明。

函数也可以称为过程，特殊之处为：函数总是有一个返回值（RETURN）。

匿名块

[DECLARE]

BEGIN

--statements

[EXCEPTION]

END;

过程

PROCEDURE name

BEGIN

--statements

[EXCEPTION]

END;

函数

FUNCTION name

RETURN datatype

BEGIN

--statements

RETURN value;

[EXCEPTION]

END;

1、创建存储过程

1）语法

CREATE [OR REPLACE] PROCEDURE procedure_name

[argument[{IN|OUT|IN OUT}] TYPE]

{IS|AS}

<类型、变量的说明>

BEGIN

<执行部分>

EXCEPTION

<可选的异常错误处理程序>

END;

2）示例

①要求：记录登录数据的userid和logdate。

##创建表，用来存储userid和logdate

SQL> create table logtable (userid varchar2(10),logdate date);

Table created.

##创建存储过程

SQL> create or replace procedure logexecution is

2 begin

3 insert into logtable (userid, logdate) values (user, sysdate);

4 end;

5 /

Procedure created.

##执行存储过程

SQL> exec logexecution;

PL/SQL procedure successfully completed.

##验证执行结果

SQL> select * from logtable;

USERID LOGDATE

---------- -------------------

SYS 2017-03-12 01:18:28

② 要求：删除表中记录

##创建过程

SQL> create or replace procedure delemp(v_empno in emp.empno%type) is

2 no_result exception;

3 begin

4 delete from emp where empno = v_empno;

5 if sql%notfound then

6 raise no_result;

7 end if;

8 dbms_output.put_line('employee number' || v_empno || 'was deleted!');

9 exception

10 when no_result then

11 dbms_output.put_line('no row found!');

12 when others then

13 dbms_output.put_line('other error!');

14 end delemp;

15 /

Procedure created.

##执行过程

SQL> exec delemp(999);

no row found!

PL/SQL procedure successfully completed.

SQL> exec delemp(7499);

employee number7499was deleted!

PL/SQL procedure successfully completed.

2、创建函数

1）语法

CREATE [OR REPLACE] FUNCTION function_name

[(argument[{IN|OUT|IN OUT}] TYPE,

...

argument[{IN|OUT|IN OUT}] TYPE)]

RETURN return_type {IS|AS}

function_body

2）示例

##创建函数

SQL> create or replace function get_salary(dept_no number, v_num out number)

2 return number is

3 v_sum number;

4 begin

5 select sum(sal), count(*)

6 into v_sum, v_num

7 from emp

8 where deptno = dept_no;

9 return v_sum;

10 exception

11 when no_data_found then

12 dbms_output.put_line('你需要的数据不存在！');

13 when too_many_rows then

14 dbms_output.put_line('程序运行错误！请使用游标');

15 when others then

16 dbms_output.put_line('发生其他错误！');

17 end get_salary;

18 /

Function created.

##调用函数（注：函数不能单独调用，只能在语句中调用）

SQL> declare

2 v_num number;

3 v_sum number;

4 begin

5 v_sum := get_salary(30,v_num);

6 dbms_output.put_line('30 department sum salary is '||v_sum||' employee: '||v_num);

7 end;

8 /

30 department sum salary is 9400 employee: 6

PL/SQL procedure successfully completed.

3、触发器

触发器：在数据库中以独立的对象存储，它与存储过程不同的是，存储过程通过其他程序来启动运行或者直接启动运行，而触发器是由一个事件来启动运行。即触发器是当某个事件发生时自动地隐式运行。并且触发器不能接收参数，不能commit。

触发器类型：

DML触发器：Oracle可以在DML语句进行触发，可以在DML操作前或操作后进行触发，并且可以对每个行或语句操作上进行触发。

替代触发器：由于在Oracle里，不能对复杂视图进行操作。所以给出了替代触发器。它就是Oracle专门为进行视图操作的一种处理方法。

系统触发器：它可以在Oracle数据库系统的事件中进行触发，如Oracle系统的启动与关闭等。

触发器组成：

触发事件：即在何种情况下触发TRIGGER。

触发事件：即该TRIGGER是在触发事件发生之前（BEFORE）还是之后（AFTER）触发。

触发器本身：即该TRIGGER被触发之后的目的和意图。

触发类型：说明触发器内定义的动作被执行的次数。即语句级（STATEMENT）触发器和行级（ROW）触发器。

语句级（STATEMENT）触发器：指当某触发事件发生时，该触发器只执行一次。

行级（ROW）触发器：指当某触发器事件发生时，对收到该操作影响的每一行数据，触发器都单独执行一次。

1）示例

①创建DML触发器

要求：当职工表emp被删除一条记录时，把被删除记录写到职工表删除日志表中。

##建立删除日志表

SQL> create table emp_his as select * from emp where 1=2;

Table created.

##创建触发器

SQL> create or replace trigger del_emp

2 before update or delete on scott.emp

3 for each row

4 begin

5 insert into emp_his

6 (deptno, empno, ename, job, mgr, sal, comm, hiredate)

7 values

8 (:old.deptno,

9 :old.empno,

10 :old.ename,

11 :old.job,

12 :old.mgr,

13 :old.sal,

14 :old.comm,

15 :old.hiredate);

16 end del_emp;

17 /

Trigger created.

##验证触发器

SQL> delete from emp where empno=7844;

1 row deleted.

SQL> select count(*) from emp_his;

COUNT(*)

----------

②创建替代触发器

##创建复杂视图

SQL> create or replace view emp_view as

2 select deptno,count(*) total_employeer,sum(sal) total_salary

3 from emp group by deptno;

View created.

##对视图进行DML会报错，因为复杂视图不能直接进行DML操作

SQL> delete from emp_view where deptno=10;

delete from emp_view where deptno=10

ERROR at line 1:

ORA-01732: data manipulation operation not legal on this view

##创建触发器

SQL> create or replace trigger emp_view_delete

2 instead of delete on emp_view

3 for each row

4 begin

5 delete from emp where deptno = :old.deptno;

6 end emp_view_delete;

7 /

Trigger created.

##再次删除，发现执行成功

SQL> delete from emp_view where deptno=10;

1 row deleted.

③ 创建系统事件触发器

注意：系统时间触发器要以sys用户运行

##登录sys用户

SQL> conn / as sysdba

Connected.

##创建表

SQL> create table logtable (name varchar2(20),log_time date);

Table created.

##创建触发器

SQL> create or replace trigger login_his

2 after logon on database

3 begin

4 insert into logtable values (user, sysdate);

5 end;

6 /

Trigger created.

##验证触发器

SQL> select * from logtable;

NAME LOG_TIME

-------------------- -------------------

SYS 2017-03-12 00:15:29

分类: Oracle

https://www.cnblogs.com/NextAction/p/7366636.html

原创
oracle存储过程、匿名块、函数、包
梦Scarlett0人评论1121人阅读2017-11-29 11:41:29
使用过程与函数的原则：

1、如果需要返回多个值和不返回值，就使用过程；如果只需要返回一个值，就使用函数。

2、过程一般用于执行一个指定的动作，函数一般用于计算和返回一个值。

3、可以SQL语句内部（如表达式）调用函数来完成复杂的计算问题，但不能调用过程。所以这是函数的特色。

一、存储过程

1、存储过程初步

--存储过程:实现搬历史表
create or replace procedure movetohistory_1 (

o_count out number ,
error out VARCHAR2) IS
V_COU-NT number;
V_SUBSCRIBE_ID TI_C_IOM_BUSIFORM.SUBSCRIBE_ID% TYPE;
v_time date := to_date( '2015/3/20 16:24:23','yyyy-mm-dd hh24:mi:ss' );
CURSOR C_MOVE2HIS IS
SELECT SUBSCRIBE_ID FROM TI_C_IOM_BUSIFORM where accept_date <= v_time;

BEGIN
o_count :=0;
OPEN C_MOVE2HIS;
LOOP
FETCH C_MOVE2HIS INTO V_SUBSCRIBE_ID;
EXIT WHEN C_MOVE2HIS%NOTFOUND;
BEGIN
SELECT COUNT (*) INTO V_COUNT from TI_C_IOM_BUSIFORM where accept_date <= v_time;
IF(V_COUNT > 0 ) THEN
INSERT INTO TI_CH_IOM_BUSIFORM
(BUSIFORM_ID,DAY,TRADE_ID,TRADEGROUP_ID,TRADEGROUP_NUM,TRADEGROUP_INDEX,BUSIFORM_TYPE,SUBSCRIBE_ID,BUSIFORM_OPER_TYPE,BUSINESS_TYPE,STATUS,NET_TYPE_CODE,ADDRESS_CODE_A,ADDRESS_CODE_Z,FLOW_TEMPLET_ID,IN_MODE_CODE,DBSRC,BPM_MAIN_ID,ORDER_ID,PRIORITY,SUGGEST_TIME,CONFIRM_RES_NO,PROD_SPEC_ID,RES_TEMPLET_ID,ACCEPT_DATE,EXEC_TIME,EXEC_MONTH,LATEST_FINISH_TIME,PLAN_FINISH_TIME,FINISH_TIME,SRC_TYPE,BUSIFORM_EXTEND,USER_ID,TRADE_STAFF_ID,TRADE_EPARCHY_CODE,TRADE_CITY_CODE,TRADE_DEPART_ID,AREA_CODE,SERIAL_NUMBER,BUSIFORM_CUST_TYPE,TERM_IP,CUST_CLASS_ID,CUST_ID,CUST_NAME,CUST_LINK_NAME,CUST_LINK_PHONE,PRODUCT_ID,PRODUCT_NAME,ERROR_TYPE, ERROR_CODE,ERROR_DESC,CLOSE_SATISFY_DEGREE,CLOSE_DESC,RSRV_STR1,RSRV_STR2,RSRV_STR3,RSRV_DATE1,RSRV_DATE2, REMARK)
( select BUSIFORM_ID,DAY,TRADE_ID,TRADEGROUP_ID,TRADEGROUP_NUM,TRADEGROUP_INDEX,BUSIFORM_TYPE,SUBSCRIBE_ID,BUSIFORM_OPER_TYPE,BUSINESS_TYPE,STATUS,NET_TYPE_CODE,ADDRESS_CODE_A,ADDRESS_CODE_Z,FLOW_TEMPLET_ID,IN_MODE_CODE,DBSRC,BPM_MAIN_ID,ORDER_ID,PRIORITY,SUGGEST_TIME,CONFIRM_RES_NO,PROD_SPEC_ID,RES_TEMPLET_ID,ACCEPT_DATE,EXEC_TIME,EXEC_MONTH,LATEST_FINISH_TIME,PLAN_FINISH_TIME,FINISH_TIME,SRC_TYPE,BUSIFORM_EXTEND,USER_ID,TRADE_STAFF_ID,TRADE_EPARCHY_CODE,TRADE_CITY_CODE,TRADE_DEPART_ID,AREA_CODE,SERIAL_NUMBER,BUSIFORM_CUST_TYPE,TERM_IP,CUST_CLASS_ID,CUST_ID,CUST_NAME,CUST_LINK_NAME,CUST_LINK_PHONE,PRODUCT_ID,PRODUCT_NAME,ERROR_TYPE, ERROR_CODE,ERROR_DESC,CLOSE_SATISFY_DEGREE,CLOSE_DESC,RSRV_STR1,RSRV_STR2,RSRV_STR3,RSRV_DATE1,RSRV_DATE2, REMARK
from TI_C_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID
and accept_date <= v_time);
delete FROM TI_C_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID
and accept_date <= v_time;
o_count := o_count + 1;
END IF ;
commit;
EXCEPTION
WHEN OTHERS THEN
rollback;
delete from TI_CH_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID;
commit;
END;
END LOOP;
close C_MOVE2HIS;
end movetohistory_1;

2、存储过程，加自定义exception，并改进，由外部传参数

--存储过程
create or replace
procedure movetohistory ( o_time in date,
o_count out number ) IS
V_COUNT number;
V_SUBSCRIBE_ID TI_C_IOM_BUSIFORM.SUBSCRIBE_ID% TYPE;
v_time date := o_time;
v_error exception; --自定义异常
CURSOR C_MOVE2HIS IS
SELECT SUBSCRIBE_ID FROM TI_C_IOM_BUSIFORM where accept_date <= v_time;
BEGIN
o_count :=0;
SELECT COUNT (*) INTO V_COUNT from TI_C_IOM_BUSIFORM where accept_date <= v_time;
if(V_COUNT <= 0 ) then
raise v_error;
end if;
OPEN C_MOVE2HIS;
LOOP
FETCH C_MOVE2HIS INTO V_SUBSCRIBE_ID;
EXIT WHEN C_MOVE2HIS%NOTFOUND;
BEGIN
SELECT COUNT (*) INTO V_COUNT from TI_C_IOM_BUSIFORM where accept_date <= v_time;
IF(V_COUNT > 0 ) THEN
INSERT INTO TI_CH_IOM_BUSIFORM
(BUSIFORM_ID,DAY,TRADE_ID,TRADEGROUP_ID,TRADEGROUP_NUM,TRADEGROUP_INDEX,BUSIFORM_TYPE,SUBSCRIBE_ID,BUSIFORM_OPER_TYPE,BUSINESS_TYPE,STATUS,NET_TYPE_CODE,ADDRESS_CODE_A,ADDRESS_CODE_Z,FLOW_TEMPLET_ID,IN_MODE_CODE,DBSRC,BPM_MAIN_ID,ORDER_ID,PRIORITY,SUGGEST_TIME,CONFIRM_RES_NO,PROD_SPEC_ID,RES_TEMPLET_ID,ACCEPT_DATE,EXEC_TIME,EXEC_MONTH,LATEST_FINISH_TIME,PLAN_FINISH_TIME,FINISH_TIME,SRC_TYPE,BUSIFORM_EXTEND,USER_ID,TRADE_STAFF_ID,TRADE_EPARCHY_CODE,TRADE_CITY_CODE,TRADE_DEPART_ID,AREA_CODE,SERIAL_NUMBER,BUSIFORM_CUST_TYPE,TERM_IP,CUST_CLASS_ID,CUST_ID,CUST_NAME,CUST_LINK_NAME,CUST_LINK_PHONE,PRODUCT_ID,PRODUCT_NAME,ERROR_TYPE, ERROR_CODE,ERROR_DESC,CLOSE_SATISFY_DEGREE,CLOSE_DESC,RSRV_STR1,RSRV_STR2,RSRV_STR3,RSRV_DATE1,RSRV_DATE2, REMARK)
( select BUSIFORM_ID,DAY,TRADE_ID,TRADEGROUP_ID,TRADEGROUP_NUM,TRADEGROUP_INDEX,BUSIFORM_TYPE,SUBSCRIBE_ID,BUSIFORM_OPER_TYPE,BUSINESS_TYPE,STATUS,NET_TYPE_CODE,ADDRESS_CODE_A,ADDRESS_CODE_Z,FLOW_TEMPLET_ID,IN_MODE_CODE,DBSRC,BPM_MAIN_ID,ORDER_ID,PRIORITY,SUGGEST_TIME,CONFIRM_RES_NO,PROD_SPEC_ID,RES_TEMPLET_ID,ACCEPT_DATE,EXEC_TIME,EXEC_MONTH,LATEST_FINISH_TIME,PLAN_FINISH_TIME,FINISH_TIME,SRC_TYPE,BUSIFORM_EXTEND,USER_ID,TRADE_STAFF_ID,TRADE_EPARCHY_CODE,TRADE_CITY_CODE,TRADE_DEPART_ID,AREA_CODE,SERIAL_NUMBER,BUSIFORM_CUST_TYPE,TERM_IP,CUST_CLASS_ID,CUST_ID,CUST_NAME,CUST_LINK_NAME,CUST_LINK_PHONE,PRODUCT_ID,PRODUCT_NAME,ERROR_TYPE, ERROR_CODE,ERROR_DESC,CLOSE_SATISFY_DEGREE,CLOSE_DESC,RSRV_STR1,RSRV_STR2,RSRV_STR3,RSRV_DATE1,RSRV_DATE2, REMARK
from TI_C_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID
and accept_date <= v_time);
delete FROM TI_C_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID
and accept_date <= v_time;
o_count := o_count + 1;
end if ;
commit;
EXCEPTION
WHEN OTHERS THEN
rollback;
delete from TI_CH_IOM_BUSIFORM
where SUBSCRIBE_ID = V_SUBSCRIBE_ID;
commit;
END;
END LOOP;
close C_MOVE2HIS;
exception
when v_error then
RAISE_APPLICATION_ERROR(- 20010, 'data is not exists!' );
end movetohistory;

--存储过程调用
set serveroutput on;
declare
v_date date := to_date( '2015/3/24 19:19:21','yyyy-mm-dd hh24:mi:ss' );
o_count number;
begin
o_count := 0;
movetohistory(v_date,o_count);
dbms_output.put_line( 'o_count:'||o_count);
end;

exec 存储过程名;

--存储过程赋权限
grant create any table to username;
grant create any procedure to username;
grant execute any procedure to username;

二、匿名块

--匿名块：在控制台实现简单输出（输入暂时没实现）
SET SERVEROUTPUT ON;
declare
v_flow_templet_id TD_M_NODE_TEMPLET.flow_templet_id% type;
v_node_templet_id TD_M_NODE_TEMPLET.node_templet_id% type;
begin
--v_node_templet_id := &请输入节点名; -- 这块还没有实现，总是报没有声明的错
v_node_templet_id := 'BIZOPPORDER';
SELECT flow_templet_id into v_flow_templet_id FROM TD_M_NODE_TEMPLET a WHERE node_templet_id = v_node_templet_id;
dbms_output.put_line(v_flow_templet_id);
EXCEPTION
--WHEN NO_DATA_FOUND THEN
--dbms_output.put_line('未找到数据');
WHEN OTHERS THEN
dbms_output.put_line( '@SQLCODE IS '||SQLCODE ||' AND @SQLERRM is '||SQLERRM);
end;

三、函数

1、函数简单示例

create or replace function tomorrow
return date --必须有返回
is
today date; --返回值在声明部分
nextdate date;
begin
today := sysdate;
nextdate := today + 1;
return nextdate; --return
exception
when others then
return '-1'; --异常部分有return
end;

2、通过给函数传参数调用函数

--函数：有入参
create or replace function find_flow_name(node_temid in varchar2)
return VARCHAR2
is
v_flow_templet_id TD_M_NODE_TEMPLET.flow_templet_id% type;
begin
SELECT flow_templet_id into v_flow_templet_id FROM TD_M_NODE_TEMPLET a WHERE node_templet_id = node_temid;
dbms_output.put_line(v_flow_templet_id);
return v_flow_templet_id;
EXCEPTION
--WHEN NO_DATA_FOUND THEN
--dbms_output.put_line('未找到数据');
WHEN OTHERS THEN
dbms_output.put_line( '@SQLCODE IS '||SQLCODE ||' AND @SQLERRM is '||SQLERRM);
return '-1' ;
end find_flow_name;

--调用函数
set serveroutput on;
declare
v_node_name varchar2( 20):= 'ToOrder_PreOrderFZX1' ;
v_flow_name VARCHAR2( 20);
begin
--v_node_name := 'ToOrder_PreOrderFZX1';
v_flow_name := find_flow_name(v_node_name);
dbms_output.put_line( '流程名：'|| v_flow_name);
exception
when others THEN
dbms_output.put_line( SQLCODE||' AND ' ||SQLERRM);
end;

四、SQLCODE和SQLERRM使用

set SERVEROUTPUT on;
DECLARE
v_error VARCHAR2( 500);
BEGIN
v_error:=SQLERRM;
dbms_output.put_line( '@SQLCODE IS '||SQLCODE ||' AND @SQLERRM is '||SQLERRM);
END;

收藏
上一篇：我的友情链接下一篇：jdbc实现事物管理并搬表

http://blog.51cto.com/1385903/2045575

收起

展开全文

存储过程

JAVA 静态匿名块
2019-04-24 16:19:27
静态匿名块（当前类被装载时执行一次）一个类不管创建多少对象，类只会被装载一次注意：static所定义的属性和方法，会在一个方法区里开辟空间存储，一个类里一个static变量只开辟一片空间方法区里存储static 和 ...
```
静态匿名块（当前类被装载时执行一次）
 一个类不管创建多少对象，类只会被装载一次
 注意：static所定义的属性和方法，会在一个方法区里开辟空间存储，一个类里一个static变量只开辟一片空间
 方法区里存储static 和 类里的信息 （本地方法栈 native）
```
收起
展开全文

Oracle匿名块

千次阅读 2017-05-27 09:49:14

--输出编号3500的员工的姓名和职务 ...--匿名块 --1 declare v_ename varchar2(20); v_job varchar2(20); begin select ename,job into v_ename,v_job from emp; exception when others then select

 
 
  --输出编号3500的员工的姓名和职务
  
 
  select * from emp;
  
 
  --匿名块
  
 
  --1
  
 
  declare
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
    
  
  
 
   
   v_ename := '哈哈' || v_ename;  
    
    
    
    
    
    
    
    
    
    
    
    
    
    
  
  
 
   
   dbms_output.put_line(v_ename || '-------' || v_job);
  
 
  end;
  
 
  --2
  
 
  declare
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
   
   --给变量赋初值的方法
  
 
   
   v_num number(5) := 10;
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
   
  
  
 
   
   --给字段加拼接内容
  
 
   
   v_ename := '哈哈' || v_ename || '哈哈';  
   
  
  
 
   
   --输出语句  
    
    
    
    
    
    
    
    
    
    
    
    
   
  
  
 
   
   dbms_output.put_line(v_num || ':' || v_ename || '-------' || v_job);
  
 
  end;
  
 
  

  
 
  --3
  
 
  declare
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
   
   --给变量赋初值的方法
  
 
   
   v_num number(5) := 10;
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
   
  
  
 
   
   --给字段加拼接内容
  
 
   
   v_ename := '哈哈' || v_ename || '哈哈';  
   
  
  
 
   
   --输出语句  
    
    
    
    
    
    
    
    
    
    
    
    
   
  
  
 
   
   dbms_output.put_line(v_num || ':' || v_ename || '-------' || v_job);
  
 
   
   --判断控制语句--选择流程
  
 
   
   if v_job='CLERK' then
  
 
   
    
    
  dbms_output.put_line('程序员==程序猿');
  
 
   
   else
  
 
   
    
    
  dbms_output.put_line('程序员!=程序猿');  
    
   
  
  
 
   
   end if;
  
 
  end;
  
 
  

  
 
  

  
 
  --4
  
 
  declare
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
   
   --给变量赋初值的方法
  
 
   
   v_num number(5) := 1;
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
   
  
  
 
   
   --给字段加拼接内容
  
 
   
   v_ename := '哈哈' || v_ename || '哈哈';  
   
  
  
 
   
   --输出语句  
    
    
    
    
    
    
    
    
    
    
    
    
   
  
  
 
   
   dbms_output.put_line(v_num || ':' || v_ename || '-------' || v_job);
  
 
   
   --判断控制语句--选择流程
  
 
   
   if v_job='CLERK' then
  
 
   
    
    
  dbms_output.put_line('程序员==程序猿');
  
 
   
   else
  
 
   
    
    
  dbms_output.put_line('程序员!=程序猿');  
    
   
  
  
 
   
   end if;
  
 
   
   dbms_output.put_line('--------------------------');
  
 
   
   --循环流程
  
 
   
   loop 
  
  
 
   
    
    
  dbms_output.put_line(v_num);
  
 
   
    
    
  v_num := v_num+1;  
    
  
  
 
   
    
    
  --表示当 v_num=10 的时候结束循环 
  
  
 
   
    
    
  exit when v_num=10;
  
 
   
   end loop;
  
 
   
   dbms_output.put_line('--------------------------');  
    
   
  
  
 
  end;
  
 
  

  
 
  

  
 
  --5
  
 
  declare
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
   
   --给变量赋初值的方法
  
 
   
   v_num number(5) := 1;
  
 
   
   v_i number;
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
   
  
  
 
   
   --给字段加拼接内容
  
 
   
   v_ename := '哈哈' || v_ename || '哈哈';  
   
  
  
 
   
   --输出语句 
  
  
 
   
   dbms_output.put_line('------------普通查询--------------------');  
    
    
    
    
    
    
    
    
    
    
    
    
  
  
 
   
   dbms_output.put_line(v_num || ':' || v_ename || '-------' || v_job);
  
 
   
   --判断控制语句--选择流程
  
 
   
   dbms_output.put_line('------------选择流程--------------------');
  
 
   
   if v_job='CLERK' then
  
 
   
    
    
  dbms_output.put_line('程序员==程序猿');
  
 
   
   else
  
 
   
    
    
  dbms_output.put_line('程序员!=程序猿');  
    
   
  
  
 
   
   end if;
  
 
   
   dbms_output.put_line('-------------普通循环--------------------');
  
 
   
   --循环流程
  
 
   
   loop 
  
  
 
   
    
    
  dbms_output.put_line(v_num);
  
 
   
    
    
  v_num := v_num+1;  
    
  
  
 
   
    
    
  --表示当 v_num=10 的时候结束循环 
  
  
 
   
    
    
  exit when v_num=10;
  
 
   
   end loop;
  
 
   
   dbms_output.put_line('------------for循环--------------');  
   
  
  
 
   
   --v_i:表示定义一个int类型的变量 i; 1..10：表示i的双闭区间的取值范围（注意此处的格式，没有end for；标记; reverse:表示倒序输出）
  
 
   
   for v_i in reverse 1..10
  
 
   
    
   loop
  
 
   
    
    
   dbms_output.put_line(v_i);  
    
    
  
  
 
   
    
   end loop;  
    
  
  
 
  end;
  
 
  

  
 
  --6
  
 
  declare
  
 
   
   --构造新类型
  
 
   
   type emp_entity_type is record(
  
 
   
    
    
    
  ena emp.ename%type,
  
 
   
    
    
    
  eno emp.empno%type
  
 
   
   );
  
 
   
   v_ename varchar2(20);
  
 
   
   v_job varchar2(20);
  
 
   
   --给变量赋初值的方法
  
 
   
   v_num number(5) := 1;
  
 
   
   v_i number;
  
 
   
   emp_entity emp_entity_type;
  
 
  begin
  
 
   
   select ename,job into v_ename,v_job from emp;
  
 
   
   exception
  
 
   
    
  when others then
  
 
   
    
    
  select ename,job into v_ename,v_job from emp where empno=7369;  
   
  
  
 
   
   --给字段加拼接内容
  
 
   
   v_ename := '哈哈' || v_ename || '哈哈';  
   
  
  
 
   
   --输出语句 
  
  
 
   
   dbms_output.put_line('------------普通查询--------------------');  
    
    
    
    
    
    
    
    
    
    
    
    
  
  
 
   
   dbms_output.put_line(v_num || ':' || v_ename || '-------' || v_job);
  
 
   
   --判断控制语句--选择流程
  
 
   
   dbms_output.put_line('------------选择流程--------------------');
  
 
   
   if v_job='CLERK' then
  
 
   
    
    
  dbms_output.put_line('程序员==程序猿');
  
 
   
   else
  
 
   
    
    
  dbms_output.put_line('程序员!=程序猿');  
    
   
  
  
 
   
   end if;
  
 
   
   dbms_output.put_line('-------------普通循环--------------------');
  
 
   
   --循环流程
  
 
   
   loop 
  
  
 
   
    
    
  dbms_output.put_line(v_num);
  
 
   
    
    
  v_num := v_num+1;  
    
  
  
 
   
    
    
  --表示当 v_num=10 的时候结束循环 
  
  
 
   
    
    
  exit when v_num=10;
  
 
   
   end loop;
  
 
   
   dbms_output.put_line('------------for循环--------------');  
   
  
  
 
   
   --v_i:表示定义一个int类型的变量 i; 1..10：表示i的双闭区间的取值范围（注意此处的格式，没有end for；标记; reverse:表示倒序输出）
  
 
   
   for v_i in reverse 1..10
  
 
   
    
   loop
  
 
   
    
    
   dbms_output.put_line(v_i);  
    
    
  
  
 
   
    
   end loop;  
    
  
  
 
   
   dbms_output.put_line('------------自定义类型的查询--------------');  
   
  
  
 
   
   select ename,empno into emp_entity.ena,emp_entity.eno from emp where empno=7369;
  
 
   
   dbms_output.put_line(emp_entity.ena || '---' || emp_entity.eno);  
   
  
  
 
  end;

收起

展开全文

plsql匿名块

千次阅读 2017-08-05 19:15:12

PL/SQL匿名块详解摘要： PL/SQL是Oracle下的脚本开发语言，是为了解决数据下一些复杂的应用而设计的。一些复杂的应用，仅靠一条SQL语句并不能完成，为了解决这个问题，各个数据库产品都设计了自己的脚本编程...

PL/SQL匿名块详解

摘要：

PL/SQL是Oracle下的脚本开发语言，是为了解决数据下一些复杂的应用而设计的。一些复杂的应用，仅靠一条SQL语句并不能完成，为了解决这个问题，各个数据库产品都设计了自己的脚本编程语言，Oracle下叫做PL/SQL，SQL Server下叫做Transact SQL。

PL/SQL单行注释使用--，多行注释使用/**/。 PL/SQL中的变量类型主要有一下几种： binary_integer: 整数，主要用来技数而不是用来表示字段类型 number: 数字类型 char: 定长字符串 varchar2: 变长字符串 date: 日期 long:长字符串，最长2GB boolean: 布尔类型，可以取值为true,false和null值。 匿名块是能够动态地创建和执行过程代码的PL/SQL结构，而不需要以持久化的方式将代码作为数据库对象储存在系统目录中。

      --HelloWorld开始
     
      set serveroutput on;
     
      begin
     
      dbms_output.put_line(
      'Hello World!!!'
      );
     
      end;
     
      /
     
      --最简单的语句块
     
      declare
     
      v_word varchar(
      20
      );
     
      begin
     
      v_word:=
      'Hello World!!!'
      ;
     
      dbms_output.put_line(v_word);
     
      end;
     
      /
     
      --语句块的组成
     
      declare
     
      v_num number:=
      0
      ;
     
      begin
     
      v_num:=
      2
      /v_num;
     
      dbms_output.put_line(v_num);
     
      exception
     
      when others then
     
      dbms_output.put_line(
      'error'
      );
     
      end;
     
      /
     
      --变量的声明
     
      declare
     
      v_temp number(
      1
      );
     
      v_count binary_integer :=
      0
      ;
     
      v_sal number(
      7
      ,
      2
      ):=
      3000.00
      ;
     
      v_date date:=sysdate;
     
      v_pi_constrant number(
      3
      ,
      2
      ):=
      3.14
      ;
     
      v_valid 
      boolean 
      :=
      false
      ;
     
      v_name varchar2(
      20
      ) not 
      null 
      :=
      'My Name'
      ;
     
      begin
     
      dbms_output.put_line(
      'v_temp value:' 
      || v_temp);
     
      end;
     
      /
     
      --变量声明,使用%type属性
     
      declare
     
      v_empno number(
      4
      );
     
      v_empno2 emp.empno%type;
     
      v_empno3 v_empno2%type;
     
      begin
     
      dbms_output.put_line(
      'test...'
      );
     
      end;
     
      /
     
      --简单变量赋值
     
      declare
     
      v_name varchar2(
      20
      );
     
      v_sal number(
      7
      ,
      2
      );
     
      v_sal2 number(
      7
      ,
      2
      );
     
      v_valid 
      boolean 
      :=  
      false
      ;
     
      v_date date;
     
      begin
     
      v_name := 
      'My Name'
      ;
     
      v_sal := 
      23.77
      ;
     
      v_sal2 := 
      23.77
      ;
     
      v_valid := (v_sal=v_sal2);
     
      v_date := to_date(
      '2010-08-04 22:58:58'
      ,
      'YYYY-MM-DD HH24-MI-SS'
      );
     
      end;
     
      /
     
      --table变量类型
     
      declare
     
      type  type_table_emp_empno  is table of  emp.empno%type  index by  binary_integer;
     
      v_empnos type_table_emp_empno;
     
      begin
     
      v_empnos(
      0
      ) := 
      7369
      ;
     
      v_empnos(
      1
      ) := 
      7839
      ;
     
      v_empnos(-
      1
      ) := 
      9999
      ;
     
      dbms_output.put_line(v_empnos(-
      1
      ));
     
      end;
     
      /
     
      --Record变量类型
     
      declare
     
      type  type_record_dept  is record
     
      (
     
      deptno  dept.deptno%type,
     
      dname  dept.dname%type,
     
      loc  dept.loc%type
     
      );
     
      v_temp type_record_dept;
     
      begin
     
      v_temp.deptno := 
      50
      ;
     
      v_temp.dname := 
      'dname'
      ;
     
      v_temp.loc := 
      'BJ'
      ;
     
      dbms_output.put_line(v_temp.deptno || 
      ' ' 
      || v_temp.dname);
     
      end;
     
      /
     
      --使用%rowtype 声明record变量
     
      declare
     
      v_temp dept%rowtype;
     
      begin
     
      v_temp.deptno := 
      50
      ;
     
      v_temp.dname := 
      'dname'
      ;
     
      v_temp.loc :=
      'BJ'
      ;
     
      dbms_output.put_line(v_temp.deptno || 
      ' ' 
      || v_temp.dname);
     
      end;
     
      /
     
      --SQL语句应用
     
      declare  
     
      v_ename emp.ename%type;
     
      v_sal emp.sal%type;
     
      begin
     
      select ename,sal into v_ename,v_sal from emp where empno=
      7900
      ;
     
      --select ename,sal into v_ename,v_sal from emp where deptno=
      30
      ;
     
      dbms_output.put_line(v_ename || 
      ' ' 
      || v_sal);
     
      end;
     
      /
     
      --SQL语句应用
     
      declare  
     
      v_emp emp%rowtype;
     
      begin
     
      select * into v_emp from emp where empno=
      7369
      ;
     
      dbms_output.put_line(v_emp.ename);
     
      end;
     
      /
     
      --SQL语句应用
     
      create table dept2(
     
      deptno number,
     
      dname varchar2(
      50
      ),
     
      loc varchar2(
      50
      )
     
      );
     
      declare
     
      v_deptno dept.deptno%type := 
      50
      ;
     
      v_dname dept.dname%type :=
      'My Name'
      ;
     
      v_loc dept.loc%type := 
      'BJ'
      ;
     
      begin
     
      insert into dept2 values(v_deptno,v_dname,v_loc);
     
      end;
     
      /
     
      select * from dept2;
     
      --drop table dept2;
     
      --SQL语句应用
     
      declare
     
      v_deptno dept2.deptno%type := 
      30
      ;
     
      v_count number;
     
      begin
     
      select deptno into v_deptno from dept2 where deptno=
      50
      ;
     
      select count(*) into v_count from dept2;
     
      dbms_output.put_line(
      'deptno:' 
      || v_deptno);
     
      dbms_output.put_line(
      'count:' 
      || v_count);
     
      dbms_output.put_line(sql%rowcount || 
      '条记录被影响...'
      );
     
      end;
     
      /
     
      --使用DDL语句
     
      begin 
     
      execute immediate 
      'create table T(nnn varchar2(20))'
      ;
     
      end;
     
      /
     
      drop table T;
     
      --选择语句
     
      declare
     
      v_sal emp.sal%type;
     
      begin
     
      select sal into v_sal from emp where empno=
      7369
      ;
     
      if
      (v_sal < 
      1200
      )then
     
      dbms_output.put_line(
      'low'
      );
     
      elsif(v_sal < 
      2000
      ) then
     
      dbms_output.put_line(
      'middle'
      );
     
      else
     
      dbms_output.put_line(
      'high'
      );
     
      end 
      if
      ;
     
      end;
     
      /
     
      --循环语句
     
      declare
     
      i binary_integer := 
      1
      ;
     
      begin
     
      loop
     
      dbms_output.put_line(
      '==' 
      || i);
     
      i := i+
      1
      ;
     
      exit when(i>=
      11
      );
     
      end loop;
     
      end;
     
      /
     
      --循环语句
     
      declare
     
      j binary_integer := 
      1
      ;
     
      begin
     
      while 
      j<
      11 
       loop
     
      dbms_output.put_line(
      '==' 
      || j);
     
      j := j+
      1
      ;
     
      end loop;
     
      end;
     
      /
     
      --循环语句
     
      begin
     
      for 
      k in 
      1
      ..
      10 
      loop
     
      dbms_output.put_line(
      '==' 
      || k);
     
      end loop;
     
      for 
      k in reverse 
      1
      ..
      10 
      loop
     
      dbms_output.put_line(
      '==' 
      || k);
     
      end loop;
     
      end;
     
      /
     
      --错误处理
     
      declare  
     
      v_temp number(
      4
      );
     
      begin
     
      select empno into v_temp from emp where deptno=
      10
      ;
     
      exception
     
      when too_many_rows then
     
      dbms_output.put_line(
      '太多记录了...'
      );
     
      when others then
     
      dbms_output.put_line(
      'error...'
      );
     
      end;
     
      /
     
      --错误处理
     
      declare
     
      v_temp number(
      4
      );
     
      begin
     
      select empno into v_temp from emp where empno=
      2222
      ;
     
      exception
     
      when no_data_found then
     
      dbms_output.put_line(
      '没有数据...'
      );
     
      when others then
     
      dbms_output.put_line(
      'error...'
      );
     
      end;
     
      /
     
      --游标
     
      declare
     
      cursor c is select * from emp;
     
      v_emp c%rowtype;
     
      begin 
     
      open c;
     
      fetch c into v_emp;
     
      dbms_output.put_line(v_emp.ename);
     
      close c;
     
      end;
     
      /
     
      --游标
     
      declare
     
      cursor c is select * from emp;
     
      v_emp c%rowtype;
     
      begin
     
      open c;
     
      loop
     
      fetch c into v_emp;
     
      exit when(c%notfound);
     
      dbms_output.put_line(v_emp.ename);
     
      end loop;
     
      close c;
     
      end;
     
      /
     
      --游标
     
      declare
     
      cursor c is select * from emp;
     
      v_emp c%rowtype;
     
      begin
     
      open c;
     
      fetch c into v_emp;
     
      while
      (c%found)loop
     
      dbms_output.put_line(v_emp.ename);
     
      fetch c into v_emp;
     
      end loop;
     
      close c;
     
      end;
     
      /
     
      --游标
     
      declare
     
      cursor c is select * from emp;
     
      begin
     
      for 
      v_emp in c loop
     
      dbms_output.put_line(v_emp.ename);
     
      end loop;
     
      end;
     
      /
     
      --带参数的游标
     
      declare
     
      cursor c(v_deptno emp.deptno%type, v_job emp.job%type) is 
     
      select ename,sal from emp where deptno=v_deptno and job=v_job;
     
      --v_temp c%rowtype;
     
      begin
     
      --open c(
      30
      ,
      'clerk'
      );
     
      for 
      v_temp in c(
      30
      ,
      'CLERK'
      ) loop
     
      dbms_output.put_line(v_temp.ename || 
      ' ' 
      || v_temp.sal);
     
      end loop;
     
      end;
     
      /
     
      --可以更新的游标
     
      create table emp2 as(
     
      select * from emp
     
      );
     
      drop table emp2;
     
      declare
     
      cursor c is select * from emp2 
      for 
      update;
     
      --v_temp c%rowtype;
     
      begin 
     
      for 
      v_temp in c loop
     
      if
      (v_temp.sal < 
      2000
      )then
     
      update emp2 set sal=sal*
      2 
      where current of c;
     
      elsif(v_temp.sal =
      5000
      )then
     
      delete from emp2 where current of c;
     
      end 
      if
      ;
     
      end loop;
     
      commit;
     
      end;
     
      /

收起

展开全文

Oracle匿名块 loop循环插入一百万条数据
2019-12-02 10:04:58
今天给大家带来一个小技巧：Oracle用匿名块 loop循环插入一百万条数据 declare maxnumber constant number:=1000000; i number :=1; begin for i in 1…maxnumber loop insert into repayment2(a1,a2,a3,a4,a5,a6,a7...
收起
ORACLE——匿名块、变量、if
千次阅读 2018-07-16 15:55:38
--pl/sql匿名块 --匿名块（声明、执行体、异常处理） declare v_a integer; v_b integer; begin v_a:=10; v_b:=&请输入第二个数：; dbms_output.put_line('商：'||v_a/v_b); dbms_output.put_...
收起
变量 if
sql 匿名块
2019-05-15 16:01:32
[DECLARE] --变量声明 BEGIN --程序语句 [EXCEPTION] --异常处理 END;
收起
匿名块、变量和简单的数据类型
2018-09-30 10:46:24
1.匿名块的编写块的结构和变量的声明 declare 变量声明部分; begin 逻辑处理执行部分; end; / 便于维护（模块化的SQL）提高数据库的安全性（把SQL原子操作封装起来了，更安全）提高性能（第一...
收起
PostgreSQL数据库中匿名块的写法
千次阅读 2017-03-07 18:10:54
PostgreSQL数据库中匿名块的写法
收起
PostgreSQL 匿名
PL/SQL 基础---匿名块
千次阅读 2016-12-02 19:07:49
PL/SQL 基础—匿名块 PLSQL 是Oracle公司在SQL基础上进行扩展而成的一种过程语言。 PLSQL提供了典型的高级语言特性，包括封装，例外处理机制，信息隐藏，面向对象等；并把最新的编程思想带到了数据库服务器和...
收起
数据库 plsql
Oracle匿名块中使用子过程
2019-01-11 10:49:09
Oracle匿名块中引入过程 * Note：按模式分别获取表及字段 * 1、子过程：获取所有表 * 2、子过程：获取表的所有字段 * 3、组成insert into select 语句
收起
探究：MySQL是否存在像Oracle一样的匿名块用法？MySQL如何使用流程语句？
千次阅读 2018-07-16 21:09:01
Oracle可以直接在匿名块中使用流程语句，SQL server可以直接写流程语句，MySQL呢？ mysql> delimiter $ mysql> set @id=1; -> if @id>0 then select @id; -> end if; -&...
收起
【PL/SQL】匿名块、存储过程、函数、触发器
千次阅读 2017-03-12 02:11:27
匿名块：以DECLARE或BEGIN开始，每次提交都被编译。匿名块因为没有名称，所以不能在数据库中存储并且不能直接从其他PL/SQL块中调用。命名块：除匿名块之外的其他块。包括过程、函数、包和触发器。可以在数据库中...
收起
函数存储 plsql 触发器 oracle
Oracle之匿名块
千次阅读 2014-08-07 21:35:06
--PL/SQL基础 Procedure Language & Structured Query Language --PL/SQL的基本组成 --声明部分 DECLARE ... --(匿名块）从键盘接收2个数，计算之和 DECLARE num1 NUMBER; num2 NUMBER; ca
收起
在PLSQL中写匿名块自定义异常处理
千次阅读 2017-12-28 23:05:14
之前在开发中遇到一个问题，当在PLSQL中使用SELECT INTO，并且表与表之间的关联关系是1..n的时候，会查询出多个结果，而这时候INTO到某一个变量...添加一个匿名块，进行自定义异常处理，当异常发生时（查不到数据或者其
收起
编写“显示指定教师信息”的匿名块。
2017-10-15 05:14:58
declare v_teacherID teacher.teacher_id%TYPE:='&要查询的教师编号'; ex_insert EXCEPTION; CURSOR c1(v_teacherID VARCHAR2) IS SELECT * FROM TEACHER WHERE Teacher_ID=v_teacherID; TEACHER_rec TEACHER%...
收起
cursor select
PL/SQL块分类（匿名块、命名块、子程序、触发器）
千次阅读 2016-07-28 11:34:15
-匿名块 DECLARE V_NAME VARCHAR2(5); BEGIN SELECT NAME INTO V_NAME WHERE AGE=100; DBMS_OUTPUT.PUT_LINE(V_NAME); EXCEPTION WHER NO_DATA_FOUND THEN DBMS_OUTPUT.PUT_LINE('未查到到任何数据'); END;
收起
oracle存储过程,游标定义,匿名块已完成,dbms_output控制块输出
千次阅读 2017-01-10 16:52:54
create table emp ( id varchar2(10), name varchar2(20), sex number, ...不执行此语句会显示匿名块已完成,而不会有输出内容 BEGIN PRO6(); END;
收起
匿名块
千次阅读 2012-08-21 15:45:18
匿名块的构成 Sql代码 DECLARE /*　声明部分 */ BEGIN /*　执行部分 */ EXCEPTION /*　异常处理部分 */ END; DECLARE 在匿名块内声明变量。 ...
收起
exception sql
匿名块where条件使用变量（游标+集合）测试
2017-05-22 10:57:07
总结：一个变量只能获取一个值，但是如果想在where条件中使用多个值时可以定义一个集合。 create table t (id number); insert into t values(1); insert into t values(2); commit; create table t1 (id number,...
收起
解决 dbvisualizer 修改字体编码为中文时，匿名块执行报错问题
2019-12-13 15:52:41
在工具新增一个sql 编辑窗口，编写匿名块 --/ begin DBMS_OUTPUT.PUT_LINE('Sample output'); end; / 执行匿名块，然后就报错了，具体错误如下，说是出现“”什么的，但是我并没有看到 [Code: 6550,...
收起
oracle sqldeveloper 匿名块已完成
千次阅读 2014-06-13 15:46:11
--PL/SQL Developer中不用此句也可以,但是Oracle Sql Developer需要此句,不然只会出现"匿名块已完成" begin DBMS_OUTPUT.PUT_LINE('Oracle Hello World!'); END; 删除包 create PACKAGE DEMO_PKG ...
收起
[简单]plsql匿名块使用简单示例
千次阅读 2014-06-17 18:18:40
最近测试需要一批数据，本来使用Java写好了，无奈测试不会用java，只好把代码改为plsql的匿名块，由于没有写文件的权限，结果使用dbms_output.put_line打印出来，代码如下： declare i number := 1; ...
收起
Oracle代码块（1）——匿名代码块
千次阅读 2020-02-14 16:26:55
代码块分为两种：命名块和匿名块。匿名代码块：以DECLARE或BEGIN开始，每次提交都被编译。匿名块因为没有名称，所以不能在数据库中存储并且不能直接从其他PL/SQL块中调用。命名代码块：包括存储过程、函数、包和...
收起
数据库 oracle
PL/SQL学习一(匿名块和子程序)
千次阅读 2012-08-08 18:08:59
1、PL/SQL块基本组成： DECLARE /* * 定义部分---定义常量、变量、复杂数据类型、游标等(可选的) */ BEGIN /* * 执行部分---PL/SQL及SQL语句的执行(必须的) */ EXCEPTION /* * 异常处理部分---处理运行错误(可...
收起
function exception sql insert
oracle中块（匿名块、命名块、子程序、触发器）的使用
万次阅读 2011-11-04 10:52:05
1.匿名块： declare v_avgsal number(6,2); begin select avg(sal) into v_avgsal from emp where deptno=&no; dbms_output.put_line('平均工资:'||v_avgsal); end; 2.命名块： > declare v_deptno number...
收起
oracle function each
匿名块已完成
千次阅读 2015-01-19 11:22:38
很简单，最前面加上下面这句 set serveroutput on; PL/SQL Developer中不用此句也可以,但是Oracle Sql Developer需要此句,不然只会出现"匿名块已完成
收起
oracle
PostgreSQL存储过程(三)：使用匿名代码块
2021-04-04 21:35:56
匿名代码块介绍：匿名代码块是在PostgreSQL 9.X版本引入的新功能【注：9.0以下不支持，可通过select version()脚本确认自己使用的数据库版本】，通过DO关键字指定执行代码块，其功能和函数类似，相当于轻量版的...
收起
postgresql 数据库
用CAD复制命令复制 匿名块名不变, 用Ctrl+C Ctrl+V 匿名块名改变
2009-11-11 20:42:00
用CAD复制命令复制 匿名块名不变, 用Ctrl+C Ctrl+V 匿名块名改变转载于:https://www.cnblogs.com/houlinbo/archive/2009/11/11/1601296.html
收起

Oracle匿名块三种方法输出乘法表：loop/for/while

Oracle 匿名块和命名块存储过程函数包触发器

PL/SQL块分类（匿名块、命名块、子程序、触发器）

Oracle中命名块之存储过程的简单使用

【PL/SQL】匿名块、存储过程、函数、触发器

JAVA 静态匿名块

Oracle匿名块

plsql匿名块

PL/SQL匿名块详解

Oracle匿名块 loop循环插入一百万条数据

ORACLE——匿名块、变量、if

sql 匿名块

匿名块、变量和简单的数据类型

PostgreSQL数据库中匿名块的写法

PL/SQL 基础---匿名块

Oracle匿名块中使用子过程

探究：MySQL是否存在像Oracle一样的匿名块用法？MySQL如何使用流程语句？

【PL/SQL】匿名块、存储过程、函数、触发器

Oracle之匿名块

在PLSQL中写匿名块自定义异常处理

编写“显示指定教师信息”的匿名块。