Oracle基本语句

--基本语句--语句declare --定义变量  i number;  str varchar2(20);begin  --语句块  i:=10;  str:='你好';  str:='小红'||str;    --打印输出  dbms_output.put_line(str);end;--输入内容declare  s varchar2(20);begin  s:='&输入您的姓名';--在字符串前面加上&符号，会弹出一个输入框，要求输入内容  dbms_output.put_line('您的姓名是：'||s);end;select * from sst;--取查询的值declare  c number;begin  select count(1) into c from sst;  dbms_output.put_line('总人数是：'||c);end;--%type,%rowtypedeclare  n sst.stuname%type;  r sst%rowtype;begin  select stuname into n from sst where stuid=1007;  select * into r from sst where stuid=1007;  dbms_output.put_line('姓名：'||n||'性别:'||r.stuname);end;--语句--if--输入一个分数--80-100 打印A--60-80  打印b--60以下  打印c--if  条件  then   else   end ifdeclare  n  number;begin  n:='&请输入分数';  if(n>100 or n<0) then    dbms_output.put_line('分数有误！');    elsif(n>80) then      dbms_output.put_line('A');    elsif(n>60 ) then    dbms_output.put_line('B');       else      dbms_output.put_line('C');  end if;end;--case语句  --用法一:范围判断declare  n number;  begin  n:='&请输入一个数';case        when n>100 or n<60 then        dbms_output.put_line('分数不正确');        when n>80 then          dbms_output.put_line('A');          when n>60 then            dbms_output.put_line('B');            else              dbms_output.put_line('C');        end case;end;--用法二：值判断declare d  number;begin  d:='&输入天数';  case d    when 31 then      dbms_output.put_line('大月');    when 30 then      dbms_output.put_line('小月');    when 28 then      dbms_output.put_line('二月');    else      dbms_output.put_line('不对');end case;end;--循环--三种  while  、loop  、for--1+。。。+100=？--1.loopdeclare      n number;      su number;begin  n:=1;  su:=0;loop  su:=su+n;  n:=n+1;      exit when n>100;end loop;    dbms_output.put_line(su);end;--2.whiledeclare    n number;    s number;begin    n:=1;    s:=0;    while n<=100      loop         /* if n=50 then            n:=n+1;            continue;--oracle10g 没有continue关键字，oracle11g有          end if;*/          --if n=50 then             --exit;            --end if;--当i=50时，退出循环       s:=s+n;       n:=n+1;    end loop;    dbms_output.put_line(s);end;--3.fordeclare    s number;begin  s:=0;for n in 1..100    loop      s:=s+n;         end loop;dbms_output.put_line(s);end;--游标  cursor--把学生表中的数据用游标读取出来declare--创建      cursor c is select * from sst; --定义一个游标指向结果集      r sst%rowtype;      begin  --2.打开  open c;  --3.读取数据  loop       fetch c into r;       --判断一下，如果没有读到数据的话退出循环       exit when c%notfound;         --把读取到的数据打印出来       dbms_output.put_line('编号：'||r.stuid||'姓名：'||r.stuname);  end loop;  --4.关闭游标  close c;end;--ref游标也是游标，是一种用户自定义类型的游标--结果集的指定是不需要再定义游标对象时指定，declare        type myCursor is ref cursor;--定义一个myCursor类型的游标类型  --用我的游标类型创建一个对象        mc myCursor;        i number;        r sst%rowtype;begin  i:='&选择1或2用游标查询学生表或成绩表';  if i=1 then    --打开游标，指向学生表    open mc for select * from sst;    --遍历游标中的数据，打印    loop      fetch mc into r;      exit when mc%notfound;      dbms_output.put_line('学号：'||r.stuid||' 姓名：'||r.stuname);    end loop;      else    --打开游标，指向成绩表    dbms_output.put_line('此表还没建');        end if;end;--存储过程create or replace procedure up_sum     --参数列表(     a number:=10,     b number:=20)--如果没有参数，括号都不需要is     --过程体中的局部变量     s number;begin     --过程体     s:=a+b;     dbms_output.put_line('和：'||s);end;--调用过程begin  --up_sum(10,20);  --up_sum(b => 20,a => 40);  --up_sum();  --up_sum(20);  --up_sum(b => 50);end;--写一个过程做一个登录操作，传学生姓名和编号当用户名与密码做登录--返回一个登录结果的信息create or replace procedure up_login(       userName varchar2,--参数只需要类型不需要长度       pwd varchar2,       flag out number   --输出参数，返回1代表登录成功，0代表登录失败结果表示)isbegin              select count(1) into flag from sst where stuname=username and pwd=stuid;end;declare       v number;begin       up_login('小红','1006',v);       if(v>0) then         dbms_output.put_line('登录成功！');   else         dbms_output.put_line('登录失败！');   end if;      end;select * from sst;--输出参数做一个学生新增操作--输出刚新增的学生的stuidcreate or replace procedure up_insertStu(       stuname in varchar2,--默认即为in，传入参数       sex varchar2,       birthday date,       remark long,       stuid out number)isbegin       insert into sst values(se_stuid.nextval,stuname,sex,birthday,remark);             select se_stuid.currval into stuid from dual;       end;--调用存储过程做新增操作--------------------------------------------select se_stuid.nextval from dual;select se_stuid.currval from dual;--在这个数据库连接上，一次nextval都没有执行过的话，currval就是空的--------------------------------------------declare       sid number;begin         up_insertstu(stuname => "刘莹",sex => "女",birthday =to_date('1993-10-09','yyyy-mm-dd'),remark => "zhe">,sid );       dbms_output.put_line('刚新增的学生id号是：'||sid);end;-------------------------------------------调用过程做新增操作declare       sid number;begin      up_insertstu('小黄','男',to_date('1990-01-11','yyyy-mm-dd'),'无',sid);      dbms_output.put_line('刚新增的学生的id号是：'||sid);end;--参数可以是 in（默认），out，in out--in为输入，out为输出，in out为即可输入也可输出--in（默认），输入参数，在过程体中可以用传进来的值--out，输出参数，，过程体中给这个参数赋值，值可以带进去，不能接收外面通过该变量传过来的值--in out，既可以接收外面传进来的值也可以将值带出去--out和in out的区别--①只有outcreate or replace procedure up_demo(       i number,       s out number)isbegin       s:=s+i;end;--调用declare       a number;begin       a:=10;       up_demo(10,a);       dbms_output.put_line(a);end;----------------------------------------②in outcreate or replace procedure up_demo2(       i number,       s in out number)is      begin        s:=s+i;end;--调用declare       a number;begin  a:=10;       up_demo2(10,a);       dbms_output.put_line(a);end;--①输出为空，因为没有接收到通过s传入的值--②输出为20，因为a传给了s，s的值为10---------------------------------------------oracle存储过程中不能查询结果集--数据包:是一系列对象与操作的封装--包的声明create or replace package pk_ly  as       num number:=1;--包中的全局变量       type myCursor is ref cursor;       procedure demo(a number,b number);--过程只有声明没有过程体的end;--包体：是包所声明的对象或操作的实现create or replace package body pk_ly as       --包中声明了一个过程，实现这个过程       procedure demo(a number,b number)         is                s number;         begin                s:=a+b;                dbms_output.put_line('想加：'||s);         end;   end;--调用declare       c pk_ly.myCursor;       r sst%rowtype;  begin        open c for'select * from sst';                loop          fetch c into r;                   exit when c%notfound;          dbms_output.put_line('编号：'||r.stuid||'姓名：'||r.stuname);         end loop;         end;--存储过程要返回结果集的话，需要用游标指向结果集，然后返回游标才行的create or replace procedure up_selectsst(       c out pk_ly.myCursor)is       begin       --在过程体中用游标指向结果集        open c for'select * from sst';end;-------declare        c pk_ly.myCursor;        r sst%rowtype;begin        up_selectsst(c);                  --遍历取c游标指向的数据。。。           loop          fetch c into r;                   exit when c%notfound;          dbms_output.put_line('编号：'||r.stuid||'姓名：'||r.stuname);         end loop;end;