



免费预览已结束,剩余1页可下载查看
下载本文档
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
实验五:高级PL/SQL程序设计1. 实验目的熟悉和掌握PL/SQL中关于存储过程、函数、包等高级程序设计技术。2. 实验内容(1) 在实验四的基础上,把去除表的重复数据以建立主键约束的匿名程序块,建立相应的存储过程,并学会使用Oracle SQL DEVELOPER工具对存储过程进行调试。 存储过程:create or replace PROCEDURE del_du_test ASBEGINDELETE FROM testWHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid);END del_du_test;执行存储过程:SET SERVEROUT ONbegindel_du_test;end;存储过程:create or replace PROCEDURE del_du_cursor_test ASvar_paperid test.paperid%TYPE;CURSOR test_cursor IS SELECT paperid FROM test GROUP BY paperid HAVING count(paperid)1;BEGINDELETE FROM testWHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid);END del_du_cursor_test;执行存储过程:SET SERVEROUT ONbegindel_du_cursor_test;end;(2) 把(1)中实现的存储过程,改用函数实现。CREATE OR REPLACE FUNCTION f_del_du_test RETURN VARCHAR2ASBEGIN DELETE FROM test WHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid); RETURN Duplicated rows deleted;END f_del_du_test;DECLARE l_str VARCHAR2(100) := NULL;BEGIN l_str := f_del_du_test(); DBMS_OUTPUT.PUT_LINE(l_str);END;CREATE OR REPLACE FUNCTION f_del_du_cursor_test RETURN VARCHAR2ASvar_paperid test.paperid%TYPE;CURSOR test_cursor IS SELECT paperid FROM test GROUP BY paperid HAVING count(paperid)1;BEGIN OPEN test_cursor; LOOP FETCH test_cursor INTO var_paperid; EXIT WHEN test_cursor%NOTFOUND; DELETE FROM test WHERE paperid = var_paperid and rowid (SELECT min(rowid) FROM test WHERE paperid = var_paperid); END LOOP; CLOSE test_cursor;RETURN Duplicated rows deleted;END f_del_du_cursor_test;DECLARE l_str VARCHAR2(100) := NULL;BEGIN l_str := f_del_du_cursor_test(); DBMS_OUTPUT.PUT_LINE(l_str);END;(3) 建立一个程序包,包含(1)和(2)中实现的存储过程和函数,并通过包来调用相应的存储过程和函数。包头:CREATE OR REPLACE PACKAGE del_duAS PROCEDURE del_du_test; PROCEDURE del_du_cursor_test; FUNCTION F_DEL_DU_TEST RETURN VARCHAR2; FUNCTION F_DEL_DU_CURSOR_TEST RETURN VARCHAR2;END del_du;包体:create or replace package body DEL_DU isfunction F_DEL_DU_CURSOR_TEST return VARCHAR2asvar_paperid test.paperid%TYPE;CURSOR test_cursor IS SELECT paperid FROM test GROUP BY paperid HAVING count(paperid)1;BEGIN OPEN test_cursor; LOOP FETCH test_cursor INTO var_paperid; EXIT WHEN test_cursor%NOTFOUND; DELETE FROM test WHERE paperid = var_paperid and rowid (SELECT min(rowid) FROM test WHERE paperid = var_paperid); END LOOP; CLOSE test_cursor;RETURN PKG_FUNC - Duplicated rows deleted;end F_DEL_DU_CURSOR_TEST;procedure DEL_DU_CURSOR_TESTasvar_paperid test.paperid%TYPE;CURSOR test_cursor IS SELECT paperid FROM test GROUP BY paperid HAVING count(paperid)1;BEGINDELETE FROM testWHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid);end DEL_DU_CURSOR_TEST;function F_DEL_DU_TEST return VARCHAR2asbegin DELETE FROM test WHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid); RETURN PKG_FUNC - Duplicated rows deleted;end F_DEL_DU_TEST;procedure DEL_DU_TESTasbegin DELETE FROM testWHERE rowid not in (SELECT min(rowid) FROM test GROUP BY paperid);end DEL_DU_TEST;end DEL_DU;调用:DECLARE l_str VARCHAR2(100) := NULL;BEGIN l_str := del_du.f_del_du_cursor_test(); DBMS_OUTPUT.PUT_LINE(l_str);END;DECLARE l_str VARCHAR2(100) := NULL;BEGIN l_str := del_du.f_del_du_test(); DBMS_OUTPUT.PUT_LINE(l_str);END;begindel_du.del_du_cursor
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 公路收费许可管理办法
- 北京市出租车管理办法
- 储备土地临时管理办法
- 创收性培训费管理办法
- 养殖动物交易管理办法
- 公司通讯报道管理办法
- 化工安全监理管理办法
- 保客营销日常规划
- 出院患者管理办法沟通
- 跨境疫情信息共享与报告流程
- 聚磷腈功能高分子材料的合成及应用
- 中国铁路总公司《铁路技术管理规程》(高速铁路部分)2014年7月
- 钙加维生素Dppt课件(PPT 14页)
- TRD深基坑止水帷幕施工方案(22页)
- FZ∕T 63013-2021 涤纶长丝织带
- 八少八素初试甄别试题
- 哈萨克斯坦共和国有限责任公司和补充责任公司法
- 企业组织架构图模板
- 藏医院制剂中心建设项目建议书写作模板-定制
- 钢结构舞台施工方案
- 轴类零件加工ppt课件
评论
0/150
提交评论