plsql过程练习2

最新推荐文章于 2021-12-18 12:25:25 发布
最新推荐文章于 2021-12-18 12:25:25 发布
阅读量245 收藏
点赞数
分类专栏： 数据库办公记录语句 文章标签： sql
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/szc_1985/article/details/108587536
版权

 

 

create or replace procedure billerxxx.xxx_202005_jtcj_jfdr_gc
(p_userid varchar2,p_cycle varchar2,p_lx varchar2,p_cursor in out Results.ref_cursor_type)
as


v_sql             VARCHAR2(6000);
SQL_STRING  VARCHAR2(6000);
v_cycle_1          VARCHAR2(10); ----起月
v_cycle_2          VARCHAR2(10);
v_cycle_3          VARCHAR2(10);
v_cycle_4          VARCHAR2(10);
v_cycle_5          VARCHAR2(10);
v_cycle_6          VARCHAR2(10);

v_cycle_d          VARCHAR2(10);

v_lx                  VARCHAR2(20);

begin


v_cycle_1      :=substr(p_cycle,1,6);
v_cycle_2      :=to_char(add_months(to_date(substr(p_cycle,1,6),'yyyymm'),1),'yyyymm')  ; ----起月1
v_cycle_3      :=to_char(add_months(to_date(substr(p_cycle,1,6),'yyyymm'),2),'yyyymm')  ; ----起月2
v_cycle_4      :=to_char(add_months(to_date(substr(p_cycle,1,6),'yyyymm'),3),'yyyymm')  ; ----起月3

v_cycle_5      :=to_char(add_months(to_date(substr(p_cycle,1,6),'yyyymm'),4),'yyyymm')  ; ----起月4
v_cycle_6      :=to_char(add_months(to_date(substr(p_cycle,1,6),'yyyymm'),5),'yyyymm')  ; ----起月5

v_cycle_d      :=to_char(sysdate-10,'yyyymm');

v_lx              :=trim(p_lx);


  -----------------------------过程开始-----------------

SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程1--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;

fan_drop_retable(upper('jtcj_jfdr_subsid_mx'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mx as
  select distinct b.id,b.subsid subsid_sr,b.user_id,b.in_time,a.日期,a.oid,a.subsid,
a.said,a.grpprodtype,a.酬金比例,a.创建时间,a.accountcycle,a.状态,a.集团编号
  from xxx.jtcj_jfdr_subsid b ,
  (select distinct b.id,b.subsid subsid_sr,b.user_id,b.in_time,a.日期,a.oid,a.subsid,
a.said,a.grpprodtype,a.酬金比例,a.创建时间,a.accountcycle,a.状态,a.集团编号
from  xxx.jtcj_jfdr_subsid b,
   xxx.szc_201709_jtcjwh a
where nvl(case when instr(b.subsid,''.'',1,1)>1 then a.said end,a.subsid)= b.subsid) a
where b.id=a.id(+)  ' ;
execute immediate (SQL_STRING);


fan_drop_retable(upper('jtcj_jfdr_subsid_mxa'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mxa as
select a.id,a.user_id,a.in_time,a.oid,a.subsid,a.said,a.grpprodtype,
a.酬金比例,a.创建时间,a.accountcycle,a.集团编号,min(a.日期) 日期,
row_number() over (partition by a.id,a.oid,a.subsid  order by min(a.日期) desc ) 排名
from   xxx.jtcj_jfdr_subsid_mx a
group by a.id,a.user_id,a.in_time,a.oid,a.subsid,a.said,a.grpprodtype,
a.酬金比例,a.创建时间,a.accountcycle,a.集团编号 ' ;
execute immediate (SQL_STRING);


fan_drop_retable(upper('jtcj_jfdr_subsid_mxb'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mxb as
select a.id,a.user_id,a.in_time,a.oid,a.subsid,b.acctid,b.集团名称,b.集团产品名称,a.said,a.grpprodtype,
a.酬金比例,a.日期 最早关联日期,to_char(a.创建时间,''yyyymm'') 关联时选择开始月,
a.accountcycle 有效月数,
nvl(case when to_char(add_months(to_date(a.日期,''yyyymmdd''),-1),''yyyymm'') >=to_char(a.创建时间,''yyyymm'') then 
  to_char(add_months(to_date(a.日期,''yyyymmdd''),-1),''yyyymm'') end,to_char(a.创建时间,''yyyymm'')) 实际开始月,
  
nvl(case when to_char(add_months(to_date(a.日期,''yyyymmdd''),-1),''yyyymm'') =to_char(a.创建时间,''yyyymm'') then 
  to_char(add_months(to_date(a.日期,''yyyymmdd''),-1+a.accountcycle-1),''yyyymm'') end,
  to_char(add_months(a.创建时间,a.accountcycle-1),''yyyymm'')) 实际结束月,b.产品编码
from  xxx.jtcj_jfdr_subsid_mxa a,
 zhyw.qcy_group_subscriber_'||v_cycle_d||' b
where  a.subsid=b.subsid(+)
and a.排名=1  ' ;
execute immediate (SQL_STRING);

SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程2--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;

fan_drop_retable(upper('jtcj_jfdr_subsid_mxc'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mxc as
select distinct a.*,b.RULETYPE,b.VALUEDESC  ATTR
 from xxx.jtcj_jfdr_subsid_mxb a ,
 (select * from  settle.ch_ngsettle_ruleconstvalue@choujin_new b where RULETYPE <>''P_GROUP_PRIV'') b
where a.产品编码=b.REMUNERAT(+)  ' ;
execute immediate (SQL_STRING);


fan_drop_retable(upper('jtcj_jfdr_subsid_mxd'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mxd as
select distinct b.RULETYPE,b.REMUNERAT,b.VALUEDESC
from  settle.ch_ngsettle_ruleconstvalue@choujin_new b,
(select distinct a.ruletype,a.ruletype,a.attr from xxx.jtcj_jfdr_subsid_mxc a where a.ruletype is not null ) a
where b.REMUNERAT=a.attr
and b.RULETYPE=''P_GROUP_BILLID''  ' ;
execute immediate (SQL_STRING);

------------------集团成员关联-----------物联网卡涉及太多，暂时先考虑本号码的。

SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程3--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;


--销账表 ----关联的号码

fan_drop_retable(upper('jtcj_jfdr_subsid_xzjl'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_xzjl as
select  t.acctid,substr(t.billcycle,1,6) billcycle,t.subsid,t.itemcode,t.fee,t.wrtoffdate,t.WRTOFFSUBJECT
 from  account.am_billitem533@zwbcv t,
  xxx.jtcj_jfdr_subsid_mxc b,
  xxx.jtcj_jfdr_subsid_mxd d
 where t.subsid =b.subsid
 and substr(t.billcycle,1,6)>=b.实际开始月
 and substr(t.billcycle,1,6)<=b.实际结束月
 and b.attr=d.remunerat
 and t.ITEMCODE=d.valuedesc ---取集团产品对应的销账科目
 and t.wrtoffsubject not in (''DSLATE'',''acsbGft'',''acsbNopay'',''acsbCompFee'',''acsbRemitPrepay'',''acsbSjzfPresent'') --去除赠费
 and t.wrtoffsubject not like ''z%''--去除赠费
 and t.itemflag = ''1''
 and t.itemtype in (''1'', ''2'', ''3'')  ' ;
execute immediate (SQL_STRING);
 

fan_drop_retable(upper('jtcj_jfdr_subsid_xzjlh'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_xzjlh as
 select a.subsid,a.billcycle,sum(a.fee) fee,
  sum(nvl(case when substr(a.billcycle,1,6)>=to_char(add_months(a.wrtoffdate,-5),''yyyymm'') then a.fee end,0)) fee_6yxz,
 row_number() over (partition by a.subsid  order by a.billcycle  ) 排名
 from xxx.jtcj_jfdr_subsid_xzjl a
 group by a.subsid,a.billcycle  ' ;
execute immediate (SQL_STRING);
 
 --销账表 ----关联的acctid

fan_drop_retable(upper('jtcj_jfdr_subsid_xzzjl'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_xzzjl as
select  t.acctid,substr(t.billcycle,1,6) billcycle,t.subsid,t.itemcode,t.fee,t.wrtoffdate,t.WRTOFFSUBJECT
 from  account.am_billitem533@zwbcv t,
  xxx.jtcj_jfdr_subsid_mxc b,
  xxx.jtcj_jfdr_subsid_mxd d
 where t.acctid =b.acctid
 and substr(t.billcycle,1,6)>=b.实际开始月
 and substr(t.billcycle,1,6)<=b.实际结束月
 and b.attr=d.remunerat
 and t.ITEMCODE=d.valuedesc ---取集团产品对应的销账科目
 and t.wrtoffsubject not in (''DSLATE'',''acsbGft'',''acsbNopay'',''acsbCompFee'',''acsbRemitPrepay'',''acsbSjzfPresent'') --去除赠费
 and t.wrtoffsubject not like ''z%''--去除赠费
 and t.itemflag = ''1''
 and t.itemtype in (''1'', ''2'', ''3'')  ' ;
execute immediate (SQL_STRING);
 
 SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程4--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;

fan_drop_retable(upper('jtcj_jfdr_subsid_xzzjlh'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_xzzjlh as
 select a.acctid,a.billcycle,max(a.subsid) subsid,sum(a.fee) fee,
 sum(nvl(case when substr(a.billcycle,1,6)>=to_char(add_months(a.wrtoffdate,-5),''yyyymm'') then a.fee end,0)) fee_6yxz,
 row_number() over (partition by a.acctid  order by a.billcycle  ) 排名
 from  xxx.jtcj_jfdr_subsid_xzzjl a
 group by a.acctid,a.billcycle  ' ;
execute immediate (SQL_STRING);


------------------
fan_drop_retable(upper('jtcj_jfdr_subsid_mxe'),'xxx');
SQL_STRING:='create table xxx.jtcj_jfdr_subsid_mxe as
 select distinct a.id,a.user_id,a.in_time,a.OID  ,a.SUBSID,a.集团名称,a.集团产品名称  ,a.ACCTID  ,
 a.SAID  ,q.渠道名称,q.区县,a.GRPPRODTYPE  ,a.酬金比例  ,a.最早关联日期  ,a.关联时选择开始月  ,
 a.有效月数  ,a.实际开始月  ,a.实际结束月  ,a.产品编码  ,pp.prodname,a.RULETYPE  ,a.ATTR, 
 
 '''||v_cycle_1||''' billcycle_1 ,
 nvl(b1.fee,0)/100 subsid_fee_1,
 nvl(b1.fee_6yxz,0)/100 subsid_fee_6yxz_1,
 nvl(c1.fee,0)/100 acctid_fee_1,
 nvl(c1.fee_6yxz,0)/100 acctid_fee_6yxz_1,
 c1.subsid acctid_subsid_1,
 
 '''||v_cycle_2||''' billcycle_2 ,
 nvl(b2.fee,0)/100 subsid_fee_2,
 nvl(b2.fee_6yxz,0)/100 subsid_fee_6yxz_2,
 nvl(c2.fee,0)/100 acctid_fee_2,
 nvl(c2.fee_6yxz,0)/100 acctid_fee_6yxz_2,
 c2.subsid acctid_subsid_2,
 
 '''||v_cycle_3||''' billcycle_3 ,
 nvl(b3.fee,0)/100 subsid_fee_3,
 nvl(b3.fee_6yxz,0)/100 subsid_fee_6yxz_3,
 nvl(c3.fee,0)/100 acctid_fee_3,
 nvl(c3.fee_6yxz,0)/100 acctid_fee_6yxz_3,
 c3.subsid acctid_subsid_3,
 
 '''||v_cycle_4||''' billcycle_4 ,
 nvl(b4.fee,0)/100 subsid_fee_4,
 nvl(b4.fee_6yxz,0)/100 subsid_fee_6yxz_4,
 nvl(c4.fee,0)/100 acctid_fee_4,
 nvl(c4.fee_6yxz,0)/100 acctid_fee_6yxz_4,
 c4.subsid acctid_subsid_4,
 
 '''||v_cycle_5||''' billcycle_5 ,
 nvl(b5.fee,0)/100 subsid_fee_5,
 nvl(b5.fee_6yxz,0)/100 subsid_fee_6yxz_5,
 nvl(c5.fee,0)/100 acctid_fee_5,
 nvl(c5.fee_6yxz,0)/100 acctid_fee_6yxz_5,
 c5.subsid acctid_subsid_5,
 
 '''||v_cycle_6||''' billcycle_6 ,
 nvl(b6.fee,0)/100 subsid_fee_6,
 nvl(b6.fee_6yxz,0)/100 subsid_fee_6yxz_6,
 nvl(c6.fee,0)/100 acctid_fee_6,
 nvl(c6.fee_6yxz,0)/100 acctid_fee_6yxz_6,
 c6.subsid acctid_subsid_6
 
 from  xxx.jtcj_jfdr_subsid_mxc a,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_1||''') b1,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_2||''') b2,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_3||''') b3,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_4||''') b4,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_5||''') b5,
  (select * from xxx.jtcj_jfdr_subsid_xzjlh b where b.billcycle='''||v_cycle_6||''') b6,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_1||''') c1,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_2||''') c2,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_3||''') c3,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_4||''') c4,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_5||''') c5,
  (select * from xxx.jtcj_jfdr_subsid_xzzjlh c where c.billcycle='''||v_cycle_6||''') c6,
  tbcs.product@bcv pp,
  xxx.tmp_szc_201511_dlhz q
  
  where a.subsid=b1.subsid(+)
  and    a.subsid=b2.subsid(+)
  and    a.subsid=b3.subsid(+)
  and    a.subsid=b4.subsid(+)
  and    a.subsid=b5.subsid(+)
  and    a.subsid=b6.subsid(+)
  and    a.acctid=c1.acctid(+)
  and    a.acctid=c2.acctid(+)
  and    a.acctid=c3.acctid(+)
  and    a.acctid=c4.acctid(+)
  and    a.acctid=c5.acctid(+)
  and    a.acctid=c6.acctid(+)
  and   a.产品编码=pp.prodid(+)
  and   a.said=q.渠道编码(+) ' ;
execute immediate (SQL_STRING);
  
SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程5--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;

------汇总展示

SQL_STRING:='insert into xxx.jtcj_jfdr_subsid_mx_g 
select * from  xxx.jtcj_jfdr_subsid_mxe a
where not exists (select 1 from xxx.jtcj_jfdr_subsid_mx_g b where a.id=b.id ) ' ;
execute immediate (SQL_STRING);
commit;

-----查询执行后将导入数据清除
SQL_STRING:='delete from xxx.jtcj_jfdr_subsid  a where a.id in (
select id from xxx.jtcj_jfdr_subsid_mx_g )  ' ;
execute immediate (SQL_STRING);
commit;

SQL_STRING:=' insert into xxx.xxx_ssgc_zxqk 
select sysdate in_date,''biller533.xxx_202005_jtcj_jfdr_gc--过程6--'' 过程进展 from dual  ' ;
execute immediate (SQL_STRING);
commit;

if v_lx='当前查询' then
---前台展示生成的数据
v_sql:=' select * from xxx.jtcj_jfdr_subsid_mxe order by id desc  ' ;
  else
v_sql:=' select * from xxx.jtcj_jfdr_subsid_mx_g a where a.user_id='''||p_userid||''' order by id desc  ' ;
end if ;

open p_cursor for v_sql;


end ;
 

szc_1985
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
PL/SQL存储过程习题
aixiaolin的专栏
05-07 2154
<br />    老师布置了关于Pl/sql存储过程的习题，那天BF来，果断逃课了，可是悲剧的是，老师竟然点名要我交作业，我悲剧的逃课就这样被抓了，当然那天的作业我也没有做，时隔多日今天补上了。<br />    本题描述如下：<br />    写一个存储过程，实现银行账户转账操作。<br />    <br />    建一个账户表：account<br />    drop table account; create table account ( ano char(3), ba
PLSQL 练习题目
weixin_45228526的博客
09-08 1243
--1.SQL练习：查询EMP表各个部门的总工资 SELECT deptno,SUM(sal) FROM emp GROUP BY deptno; --2.SQL练习：找到EMP表中部门总工资最高的那个部门 SELECT * FROM (SELECT deptno, SUM(sal) sum_sal FROM emp GROUP BY deptno ORDER BY sum_sal DESC) WHER...
PL/SQL 练习题
流云追风
08-28 3265
1.部门10和30中工资超过1500的雇员名及工资SQL> select ename,sal 2 from scott.emp 3 where sal>1500 4 and deptno=any(10,30); ENAME SAL ---------- ---------- ALLEN 1600 BLAKE
PLSQL练习
GHHCNGC的博客
07-17 1262
---1、列出所有员工的姓名以及其直接上级的姓名 select e.ename,m.ename from emp e,emp m where e.empno=m.mgr ---2、列出受雇日期早于其直接上级的所有员工的编号，姓名，部门名称 select empno,ename,dname from emp,dept where emp.deptno=dept.deptno ---3、列出部门名...
Oracle SQL PLSQL练习题
11-11
Oracle SQL PLSQL练习60题,简要如下: 1. Oracle发出下列select语句： SQL> select e.empno, e.ename, d.loc 2 from emp e, dept d 3 where e.deptno = d.deptno 4 and substr(e.ename, 1, 1) = ‘S’; 下列哪个语句是Oracle数据库中可用的ANSI兼容等价语句？ A．select empno, ename, loc from emp join dept on emp.deptno = dept.deptno where substr(emp.ename, 1, 1) = ‘S’; B．select empno, ename, loc from emp, dept on emp.deptno = dept.deptno where substr(emp.ename, 1, 1) = ‘S’; C．select empno, ename, loc from emp join dept where emp.deptno = dept.deptno and substr(emp.ename, 1, 1) = ‘S’; D．select empno, ename, loc from emp join dept on emp.deptno = dept.deptno and substr(emp.ename, 1, 1) = ‘S’;
PLSQL经典练习共9页.pdf.zip
10-28
2. **块的概念**：PLSQL中的程序结构是以块为单位的，每个块由BEGIN、END关键字包围，可以包含声明、执行和异常处理部分。 3. **SQL嵌入**：PLSQL允许直接在代码中嵌入SQL语句，进行数据查询、插入、更新和删除操作...
PLSQL练习题.docx
10-30
在PL/SQL编程环境中，我们需要创建一个存储过程来满足上述要求。存储过程是一种预编译的SQL代码集合，可以执行特定任务。在这个案例中，我们要创建一个名为`LTQ22`的存储过程，用于从`STUDENT_INFO_01`表中筛选符合...
练习利用PLSQL Developer编写和管理存储过程、存储函数和触发器等
05-22
PLSQL Developer中存储过程、存储函数和触发器的编写和管理 PLSQL Developer是一种功能强大的Oracle数据库开发工具，提供了许多功能来帮助开发者快速编写和管理存储过程、存储函数和触发器等高级数据库对象。本文将...
PLSQL练习题及答案
12-10
PLSQL练习题及答案，是学习PLSQL的绝佳资料，值得一看
PLSQL编程练习题详解
娜可璐璐的博客
01-07 3349
1、输出菱形 declare m number := 3; begin for y in -m..m loop for x in -m..m loop if abs(y) + abs(x) <= m then dbms_output.put('*'); else
PL/SQL 的函数与存储过程练习
09-07
PL/SQL 的函数与存储过程练习 PL/SQL 的函数与存储过程练习
sql及plsql练习题
06-30
帮助大家学习怎么用oracle,这里是sql和plsql的练习题。大家有时间做做哦！
Oracle PLSQL编程-经典试题
05-15
里面有orcale plsql经典试题，视图，存储过程，游标，包，异常处理。
Oracle_PLSQL测试题与答案(绝对经典)
11-26
Oracle_PLSQL测试题与答案(绝对经典)
Oracle期末复习题（带答案）
11-26
Oracle期末复习题目，带标准答案和部分解释，考试必备良品
Oracle——PL/SQL 块结构练习题
秀岩的博客
06-08 2492
文章目录1、输出文字2、计算长方形面积3、块结构计算长方形周长与面积4、计算圆的面积5、输入学生学号，判断学生获得奖学金等级6、求 1 到 10 的平方7、求 10 的阶乘8、计算表达式（86+20×3-152）的绝对值9、计算（86+20×3-152）的绝对值，然后判断该值是否大于80（if else语句）10、根据不同的学习成绩，输出对应的成绩界别11、LOOP循环，从10开始实现每次循环都让变量递减2，直到变量的值小于1，然后终止循环12、输入水果名称查询对应编号13、用搜索式 CASE 语句找到水果
oracle_8(PLSQL练习、存储过程/函数、) 课堂笔记
weixin_44643735的博客
11-26 310
1.统计每年的入职人数 sql: select to_char(HIREDATE,'yyyy'),count(*) from emp group by to_char(HIREDATE,'yyyy'); plsql: set serveroutput on; declare cursor cemp is select to_char(HIREDATE,'yyyy') from emp ; p...
PLSQL-流程控制与流程循环
小小默：进无止境
10-22 641
1.流程控制【if…then…elsif…then…else…end if】--查询出150号员工的工资，若其工资大于或等于1000则打印'salary>=1000'; --若在5000到10000之间，则打印'5000<=salary<10000';否则打印'salary<5000'declare //声明变量 v_sal employees.salary%type;beginselect sal
plsql编程练习
m0_64101987的博客
12-18 3996
一、PL/SQL基础题目 1.创建一张表备份EMP数据，然后编写PL/SQL程序 1）清理EMP表中10号部门数据 2）从备份表中把10号部门数据恢复 3）调整30号部门的薪资为原来的两倍 DECLARE V_SQL1 VARCHAR2(2000):='DELETE FROM EMP1 WHERE DEPTNO=10'; V_SQL2 VARCHAR2(2000):='INSERT INTO EMP1 SELECT * FROM EMP WHERE DEPTNO=10'; V_SQL3 VARCHAR..
plsql循环练习题
最新发布
05-31
好的，以下是一个 PL/SQL 循环练习题： 假设有一个员工表（employee），表结构如下： | 列名 | 数据类型 | | ---------- | ------------ | | id | NUMBER(10) | | name | VARCHAR2(50) | | salary | NUMBER(10) | | hire_date | DATE | | department | VARCHAR2(50) | 请编写一个 PL/SQL 程序，统计每个部门的员工数和平均工资，并将结果存储在一个新表（statistics）中，表结构如下： | 列名 | 数据类型 | | ----------- | ---------- | | department | VARCHAR2 | | employee_no | NUMBER(10) | | avg_salary | NUMBER(10) | 程序逻辑如下： 1. 声明一个游标，查询 employee 表中的所有部门名称和平均工资。 2. 依次读取游标中的每一行数据，计算该部门的员工数和平均工资，并将结果存储到 statistics 表中。 3. 关闭游标，提交事务。 程序代码如下： ```plsql DECLARE CURSOR c_emp IS SELECT department, AVG(salary) AS avg_salary FROM employee GROUP BY department; BEGIN FOR r_emp IN c_emp LOOP INSERT INTO statistics (department, employee_no, avg_salary) VALUES (r_emp.department, 0, r_emp.avg_salary); UPDATE statistics SET employee_no = (SELECT COUNT(*) FROM employee WHERE department = r_emp.department) WHERE department = r_emp.department; END LOOP; COMMIT; END; ``` 注意事项： 1. 在程序开始前，需要先创建 statistics 表。 2. 在程序执行前，需要确保 employee 表中已经存在数据。 3. 在程序执行过程中，需要确保 statistics 表中不存在数据，否则会出现主键冲突错误。 4. 在程序执行过程中，需要确保 employee 表和 statistics 表处于同一数据库中。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值