李建国.txt

关于oracle和sql的书籍和ppt教程,非常好,本人珍藏品

1.定义一个函数，输入一个大于0的整数n， 返回1到n的整数和
create or replace function text_l(no int)
return int
as 
  w int;
  i number :=1;
begin
  
  for i in 1..no loop
    w:=w+i;
  end loop;
  return w;
end;



2.定义一个函数，输入emp的empno，返回该行的sal
   定义一个更新emp表sal的存储过程，输入参数为empno,sal,根据empno更新相应的sal
   定义一个table 里面存放的是%rowtype类型，用该类型定义一个变量datas，从emp表取五行记录放到datas里面进行循环，循环里完成以下操作：先通过刚才定义的函数取sal，如果sal<2500 ,调用刚才写的存储过程更新sal为3600

/*create or replace function text_2_1_l(empno_l int)
return number
as
  sal_l number;
begin
  select sal into sal_l from emp_lijianguo where empno=empno_l;
  return sal_l;
end;
*/

/*create or replace procedure text_2_2_l(empno_l emp_lijianguo.empno%type,sal_l emp_lijianguo.sal%type)
is
begin
  update emp_lijianguo set sal=sal_l where empno=empno_l;
end;*/

declare
  empnol varchar2(10);
  
  type text_2_3_l is table of emp_lijianguo%rowtype index by binary_integer;
  datas text_2_3_l;
begin
  for i in 1..5 loop
    select * into datas(i) from emp_lijianguo where empno=i;
  end loop;
  for i in 1..5 loop
    if text_2_1_l(datas(i).empno)<2500
    then
    empnol:=datas(i).empno;
    text_2_2_l(empnol,3600);
    dbms_output.put('编号是： '||datas(i).empno); 
    dbms_output.put('  姓名是： '||datas(i).ename); 
    dbms_output.put('  工作是： '||datas(i).job); 
    dbms_output.put(' MGR是：'||datas(i).mgr); 
    dbms_output.put('日期是：'||datas(i).HIREDATE); 
    dbms_output.put_line(' 工资是： '||datas(i).SAL); 
    --dbms_output.put('  年龄是：  '||datas(i).age); 
    --dbms_output.new_line();
    end if;
  end loop;  
end;