- 1、本文档共8页,可阅读全部内容。
- 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
Oracle数据库实验-PLSQL块结构,条件循环语句的使用
Oracle数据库基础
实验4 PL/SQL块结构,条件、循环语句的使用
【实验学时】
2学时
【实验目的】
学习匿名PL/SQL块的基本结构。
了解PL/SQL的基本数据类型。
掌握PL/SQL中变量和常量的定义方法。
学会在PL/SQL程序中使用复合数据类型:记录和集合。
学会使用select…into…语句返回一行数据。
练习在PL/SQL中使用DML语句和动态SQL语句。
熟练掌握PL/SQL中的选择和循环语句的使用。
【实验内容】
定义一个PL/SQL块,向屏幕输出hello world!。
SQL ed
已写入文件 afiedt.buf
1 declare
2 begin
3 dbms_output.put_line(hello,world);
4 exception
5 when others then
6 dbms_output.put_line(error);
7 raise;
8* end;
SQL /
hello,world
PL/SQL 过程已成功完成。
定义一个PL/SQL块,将输入的字符串中大小写相互转换后向屏幕输出。例如,输入abDCe,输出ABdcE
SQL ed
已写入文件 afiedt.buf
1 declare
2 str1 varchar2(20):=str1;
3 str2 varchar2(2);
4 str3 varchar2(20);
5 len number(10);
6 leng number(10);
7 begin
8 len:=1;
9 leng:=length(str1);
10 while len=leng loop
11 str2:=substr(str1,len,1);
12 if str2=a and str2=z then
13 str3:=str3||upper(str2);
14 elsif str2=A and str2=Z then
15 str3:=str3||lower(str2);
16 end if;
17 len:=len+1;
18 end loop;
19 dbms_output.put_line(str3);
20* end;
SQL /
输入 str1 的值: ehhrfEdsd
原值 2: str1 varchar2(20):=str1;
新值 2: str1 varchar2(20):=ehhrfEdsd;
EHHRFeDSD
PL/SQL 过程已成功完成。
定义一个PL/SQL块,完成如下功能:输入一个3位数,输出其各个数位上的数字。
SQL ed
已写入文件 afiedt.buf
1 declare
2 abc number(20):=abc;
3 a number(4);
4 b number(4);
5 c number(4);
6 begin
7 a:=floor(abc/100);
8 b:=mod(floor(abc/10),10);
9 c:=mod(abc,10);
10 dbms_output.put_line(a);
11 dbms_output.put_line(b);
12 dbms_output.put_line(c);
13* end;
SQL /
输入 abc 的值: 463
原值 2: abc number(20):=abc;
新值 2: abc number(20):=463;
4
6
3
PL/SQL 过程已成功完成。
编写PL/SQL程序,程序的功能是:输入员工号,输出该员工经理的姓名。
SQL ed
已写入文件 afiedt.buf
1 declare
2 v_empno emp.empno%type:=v_emp;
3 v_ename emp.ename%type;
4 begin
5 select ename
6 into v_ename
7 from emp
8 where empno in(select mgr from emp
9 where empno=v_empno);
10 dbms_output.put_line(v_empno||manager is||v_ename);
11* end;
SQL /
输入
您可能关注的文档
- noproblem课文分析doc.doc
- MV-A-604CXX系列3G车载硬盘录像机操作指导手册V50.doc
- NTDT-AJ-0202曳引驱动电梯安装自检报告-无机房.doc
- NTDT-AJ-0402自动扶梯及自动人行道安装自检报告.doc
- Nutch相关框架视频教程(HadoopHbaseLuceneSolrTikaGora)(13-20讲).docx
- Nvdqgw机械制造与自动化毕业论文基于CAXA的数字化网络化设计制造技术.doc
- NTS-352型全站仪的使用.doc
- NTCE出品教育知识与能力(中学)卷一.doc
- NOD32企业版25的安装和配置服务端.doc
- Nutch相关框架视频教程(HadoopHbaseLuceneSolrTikaGora)(1-12讲).docx
文档评论(0)