ORACALE之ProceldureLanguage

PL/SQL Developer是一个集成开发环境，专门开发面向Oracle数据库的应用。PL/SQL也是一种程序语言，叫做过程化SQL语言（ProceduralLanguage/SQL）。PL/SQL是Oracle数据库对SQL语句的扩展。在普通SQL语句的使用上增加了编程语言的特点，所以PL/SQL把数据操作和查询语句组织在PL/SQL代码的过程性单元中，通过逻辑判断、循环等操作实现复杂的功能或者计算。

PL/SQL功能

将SQL语句与过程编程语言相结合，完成更为复杂的工作，使用控制，循环，分支等过程技术，支持游标、异常、函数和事务的sql

PL/SQL基本结构

DECLARE
   定义部分(可选) --定义常量，变量，复杂数据类型、游标
BEGIN
   执行部分(必须) --PL/SQL语句和SQL语句
END
EXCEPTION
  异常处理部分

简单的SQL/PL块

set serveroutput on --打开oracle 输出方法,使运行结果输出至屏幕

beging
   dbms_output.put_line('Hello World')
end;

PL/SQL块分类

  • 匿名块
  • 命名块
  • 子程序（过程和函数）
  • 包
  • 触发器

匿名块

没有名称的PL/SQL块

begin
  dbms_output.put_line('hello wrold');
  begin
    dbms_output.put_line('oracle');
  end;
end;

命名块

具有指定名称的PL/SQL块，在块前使用<<name>>命名
可通过goto语句进行跳转,后面会讨论

<<outer>>
begin
  dbms_output.put_line('hello wrold');
  <<inner>>
  begin
    dbms_output.put_line('oracle');
  end;--<<inner>>
end; --<<outer>>

PL/SQL变量

  • 使用原则：先定义再使用

  • 语法: 变量名 数据类型

  • 示列: studame varchar20(15);

属性声明

  • %Type引用数据库中的数据表的列的属性

  • %RowType 引用数据库中数据表的行的属性

sstudno studinfo.studno%Type;
sstudname studinfo.studname%Type;

赋值操作符

  • 使用 ：= 进行赋值
declare
  dname studinfo.studno%Type;
  dscore studscoreinfo.studscore%Type;
begin
  dname:='Yanghaocheng';
  dscore:='88';
  dbms_output.put_line('Name:'||dname||';'||'Score:'||'dscore');
end;
  • 使用into进行赋值
declare
  sname studinfo.studname%Type;
begin
  select studname into sname from studinfo
  where studno='20010505001';
  dbms_output.put_line(sname);
end;
  • 使用 & 获取用户输入
declare
  sname varchar2(20);
  score number(5,1);
begin
  sname:='&studname';
  score:='&studscore';
  dbms_output.put_line('studname:'||sname||';'||'studscore:'||score);
end;
picone.png

条件控制语句

  • IF-THEN语句
declare
  i int;
begin
  i:=5;
  if i=5 then
    dbms_output.put_line('i=5');
  end if;
end;
  • IF-THEN-ELSE语句
declare
  i int;
begin
  i:=5;
  if i<5 then
    dbms_output.put_line('i<5');
  else
    dbms_output.put_line('i>=5');
  end if;
end;
  • IF-ELSIF-ELSE语句
declare
  i int;
begin
  i:=5;
  if i<5 then
    dbms_output.put_line('i<5');
  elsif i>5 then
    dbms_out.put_line('i>5');
  else
    dbms_output.put_line('i=5');
  end if;
end;

CASE比较选择

case <变量>
  when <值1>/<逻辑表达式1> then 结果1;
  when <值2>/<逻辑表达式2> then 结果2;
  .
  .
  .
  when <值n>/<逻辑表达式3> then 结果n;
  else 
end case ;
  • 单一选择等值比较
declare
  n int;
begin
  n:=&n;
  case n
    when 2 then
        dbms_output.put_line('恭喜你获得 一等奖');
    when 9 then
        dbms_output.put_line('恭喜你获得 二等奖');
    when 6 then
        dbms_output.put_line('恭喜你获得 三等奖');
    else
        dbms_output.put_line('谢谢惠顾');
  end case;
end;
  • 多条件比较
declare
  n int;
begin
  n:=&n;
  case 
    when n>=80then
      dbms_output.put_line('优秀');
    when n>=70 then
      dbms_output.put_line('良好');
    when n>=60 then
      dbms_output.put_line('及格');
    else
      dbms_output.put_line('不及格');
  end case;
end;

循环

  • 使用loop循环,exit退出循环(if <条件> then exit)

计算s=1+3+5+....+99

declare
  i int:=1;
  s int:=0;
begin
  loop
    s:=s+i;
    i:=i+2;
    if i>99 then
      exit;
    end if;
  end loop;
  dbms_output.put_line(s);
end;
  • exit when <条件>

计算5!

declare
  i int:=1;
  s int:=1;
begin
  loop
    s:=s*i;
    i:=i+1;
    exit when i>5;
  end loop;
  dbms_output.put_line('5！='||s);
end;
  • WHILE LOOP循环

计算N!(n由用户输入)

declare
  i int:=1;
  s int:=1;
  n number;
begin
  n:=&n;
  while i<=n
  loop
    s:=s*i;
    i:=i+1;
    exit when i>5;
  end loop;
  dbms_output.put_line(n||'!='||s);
end;
  • FOR-LOOP循环
declare
  i int:=1;
  s int:=1;
  n number;
begin
  n:=&n;
  for i 1..n
  loop
    s:=s*i;
    i:=i+1;
  end loop;
  dbms_output.put_line(n||'!='||s);
end;
pictwo.png

GOTO跳转语句

declare
  x number;
begin
  x:=10;
  <<begin_loop>>  --循环点
  x:=x-1;
  dbms_output.put_line(x);
  if x>0
    then
    goto begin_loop;  --只要x的值d大于0时,就goto到begin_loop
  end if;
end;
picthree.png

练习

1.使用 PL/SQL 编程输出 A 到 Z 之间的 26 个大写字母。

declare
  letter char(4);
begin
  for i in 0..25 loop
    select chr(i+65) into letter from dual;
  dbms_output.put_line(letter);
end loop;
end;
  1. 使 用 PL/SQL 编 程 ， 实 现 提 示 输 入 班 级 编 号 ， 在 输 入 班 级 编 号 后 ， 使 用dbms_output.put_line 显示查询的班级名称。
declare
  sclassname classinfo.classname%Type;
  sclassid classinfo.classid%Type;
begin
  sclassid:= '&sclassid';
  select classname into sclassname
  from classinfo where classid= 'sclassid';
  dbms_output.put_line(sclassname);
end;
  1. 使用 PL/SQL 编程，实现求 N!（即 N 的阶乘），测试 5!（即 5 的阶乘）。
declare
  i int:=1;
  N int;
  s number:=1;
begin
  N :=&N ;
  while i<=N
  loop
    s :=s*i;
    i :=i+1;
end loop;
dbms_output.put_line(N||'!='||to_char(s));
end;
  1. 使用 PL/SQL 编程，求 S=1!+3!+5!+7!+…+N!，直到 S 大于 10000 时 N 的值和 S 的值。
declare
  i int:=1;
  S number:=0;
  K number:=1;
begin
  while s <=1000
  loop
    k:=k*i;
    i:=i+2;
    s:=s+k;
end loop;
dbms_output.put_line('s='||s);
dbms_output.put_line('n='||i);
end;
  1. 使用 PL/SQL 编程，计算 S=2+22+222+2222+22222+…+n 个 2，n 由用户输入。
declare
  a int:=1;
  s number:=0;
  n int;
begin
  n :='&n';
  for i in 1..n
  loop
    a:=(a*10)+2;
    s:=s+a;
end loop;
dbms_output.put_line('s='||s);
end;
最后编辑于 ：
©著作权归作者所有,转载或内容合作请联系作者
  • 人面猴
    序言：七十年代末，一起剥皮案震惊了整个滨河市，随后出现的几起案子，更是在滨河造成了极大的恐慌，老刑警刘岩，带你破解...
    沈念sama阅读 218,607评论 6赞 507
  • 死咒
    序言：滨河连续发生了三起死亡事件，死亡现场离奇诡异，居然都是意外死亡，警方通过查阅死者的电脑和手机，发现死者居然都...
    沈念sama阅读 93,239评论 3赞 395
  • 救了他两次的神仙让他今天三更去死
    文/潘晓璐 我一进店门，熙熙楼的掌柜王于贵愁眉苦脸地迎上来，“玉大人，你说我怎么就摊上这事。” “怎么了？”我有些...
    开封第一讲书人阅读 164,960评论 0赞 355
  • 道士缉凶录：失踪的卖姜人
    文/不坏的土叔 我叫张陵，是天一观的道长。 经常有香客问我，道长，这世上最难降的妖魔是什么？ 我笑而不...
    开封第一讲书人阅读 58,750评论 1赞 294
  • 港岛之恋（遗憾婚礼）
    正文 为了忘掉前任，我火速办了婚礼，结果婚礼上，老公的妹妹穿的比我还像新娘。我一直安慰自己，他们只是感情好，可当我...
    茶点故事阅读 67,764评论 6赞 392
  • 恶毒庶女顶嫁案：这布局不是一般人想出来的
    文/花漫 我一把揭开白布。 她就那样静静地躺着，像睡着了一般。 火红的嫁衣衬着肌肤如雪。 梳的纹丝不乱的头发上，一...
    开封第一讲书人阅读 51,604评论 1赞 305
  • 城市分裂传说
    那天，我揣着相机与录音，去河边找鬼。 笑死，一个胖子当着我的面吹牛，可吹牛的内容都是我干的。 我是一名探鬼主播，决...
    沈念sama阅读 40,347评论 3赞 418
  • 双鸳鸯连环套：你想象不到人心有多黑
    文/苍兰香墨 我猛地睁开眼，长吁一口气：“原来是场噩梦啊……” “哼！你这毒妇竟也来了？” 一声冷哼从身侧响起，我...
    开封第一讲书人阅读 39,253评论 0赞 276
  • 万荣杀人案实录
    序言：老挝万荣一对情侣失踪，失踪者是张志新（化名）和其女友刘颖，没想到半个月后，有当地人在树林里发现了一具尸体，经...
    沈念sama阅读 45,702评论 1赞 315
  • 护林员之死
    正文 独居荒郊野岭守林人离奇死亡，尸身上长有42处带血的脓包…… 初始之章·张勋 以下内容为张勋视角 年9月15日...
    茶点故事阅读 37,893评论 3赞 336
  • 白月光启示录
    正文 我和宋清朗相恋三年，在试婚纱的时候发现自己被绿了。 大学时的朋友给我发了我未婚夫和他白月光在一起吃饭的照片。...
    茶点故事阅读 40,015评论 1赞 348
  • 活死人
    序言：一个原本活蹦乱跳的男人离奇死亡，死状恐怖，灵堂内的尸体忽然破棺而出，到底是诈尸还是另有隐情，我是刑警宁泽，带...
    沈念sama阅读 35,734评论 5赞 346
  • 日本核电站爆炸内幕
    正文 年R本政府宣布，位于F岛的核电站，受9级特大地震影响，放射性物质发生泄漏。R本人自食恶果不足惜，却给世界环境...
    茶点故事阅读 41,352评论 3赞 330
  • 男人毒药：我在死后第九天来索命
    文/蒙蒙 一、第九天 我趴在偏房一处隐蔽的房顶上张望。 院中可真热闹，春花似锦、人声如沸。这庄子的主人今日做“春日...
    开封第一讲书人阅读 31,934评论 0赞 22
  • 一桩弑父案，背后竟有这般阴谋
    文/苍兰香墨 我抬头看了看天上的太阳。三九已至，却和暖如春，着一层夹袄步出监牢的瞬间，已是汗流浃背。 一阵脚步声响...
    开封第一讲书人阅读 33,052评论 1赞 270
  • 情欲美人皮
    我被黑心中介骗来泰国打工， 没想到刚下飞机就差点儿被人妖公主榨干…… 1. 我叫王不留，地道东北人。 一个月前我还...
    沈念sama阅读 48,216评论 3赞 371
  • 代替公主和亲
    正文 我出身青楼，却偏偏与公主长得像，于是被迫代替她去往敌国和亲。 传闻我的和亲对象是个残疾皇子，可洞房花烛夜当晚...
    茶点故事阅读 44,969评论 2赞 355

推荐阅读更多精彩内容