



免费预览已结束,剩余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. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 二零二五年度保姆聘用家政服务合同细则
- 2025版公共区域深度保洁合同范本
- 二零二五年度办公室租赁合同含企业办公设备租赁
- 二零二五年度办公设备智能化解决方案开发合同范本
- 2025版测绘员保密协议范本下载
- 二零二五年度车管所车辆抵押贷款服务协议
- 二零二五年度环保型产品包装运输专项合同
- 二零二五年商业保洁临时工劳动合同示范文本
- 二零二五年度办公室租赁合同租赁费用调整与支付方式
- 2025版车库租赁与停车费用结算规范合同
- 国家军用标准GJB9001C-2017质量管理体系内部审核检查表(国军标GJB9001C内审检查表)
- 电气改造施工方案
- RB/T 034-2020测量设备校准周期的确定和调整方法指南
- GB/T 9258.1-2000涂附磨具用磨料粒度分析第1部分:粒度组成
- GB/T 3304-1991中国各民族名称的罗马字母拼写法和代码
- GB/T 28733-2012固体生物质燃料全水分测定方法
- GB/T 1226-2017一般压力表
- GA 1517-2018金银珠宝营业场所安全防范要求
- 部编版二年级下册语文期末考试试卷质量分析
- 《铁路技术管理规程》(普速铁路部分)-14年新版
- 信息系统实施前现状和需求调研计划提纲共享
评论
0/150
提交评论