oracle数据库：PL/SQL 程序基础

1、使用dbms_output.put_line函数输出变量的值

declare
  numm number := 5;
begin
  dbms_output.put_line(numm);
end;

2、编写一个匿名程序块，来计算一个整数是不是偶数

declare
  numm number := 4324322;
begin
  if mod(numm, 2) = 0 then
    dbms_output.put_line('Yes');
  else
    dbms_output.put_line('No');
  end if;
end;

3、编写一个匿名程序块，来计算一个整数是不是素数

declare
    num int:=2;
    sqr int;
    isprime boolean:=true;
begin 
    sqr:=sqrt(num);
    for i in 2..sqr
    loop
        if mod(num,i)=0
        then
            isprime:=false;
            exit;
        end if;
    end loop;
    
    if isprime
    then
        dbms_output.put_line('YES');
    else
        dbms_output.put_line('NO');
    end if;
end;

4、定义一个绑定变量，用于接收一个整数n，程序计算这个数的数位和

accept num prompt '请输入一个数字';
declare
--定义变量保存用户从键盘输入的数字
pnum int:= &num; --&地址符号，将num地址上的值赋给pnum
zz int;
p1 int;
begin
    zz:=0;
    while pnum>0 loop
        p1:=mod(pnum,10);
        pnum:=pnum/10;
        zz:=zz+p1;
    end loop;
    dbms_output.put_line(zz);
end;

5、定义一个替换变量，用于接收一个字符串，字符串的每个子项为一个字符串，之间用逗号隔开。程序用于提取每个子串，并每行输出一个子串。

accept num prompt '请输入一个字符串';
declare
pnum varchar(100):=&num; --&地址符号，将num地址上的值赋给pnum
zz int;
p1 number;
str varchar(100);
begin
    zz:=length(pnum);
    while instr(pnum,',')>0
    loop
    p1:=instr(pnum,',');
    str:=SUBSTR(pnum,1,p1-1);
    --dbms_output.put_line(pnum);
    dbms_output.put_line(str);
    pnum:=substr(pnum,p1+1,zz);
    --dbms_output.put_line(pnum);
    zz:=zz-p1-1;
    end loop;
    dbms_output.put_line(pnum);
end;

6、编写一个嵌套的程序块，在内部块中使用外部块的同名变量

accept str prompt '请输入一个字符串';
declare
v_out varchar2(40);
begin
    declare
    begin
        v_out:=to_char('&str');
        dbms_output.put_line('使用外部块的同名变量:' || v_out);    end;
end;

7、编写一个匿名程序块，用于读取employees表中的某员工的first_name，last_name，显示该员工的first_name和last_name

accept str prompt '请输入员工id';
declare
v number;
first_name EMPLOYEES.FIRST_NAME%type;
last_name EMPLOYEES.last_name%type;
begin
    v:=&str;
    select first_name into first_name from employees where employee_id=v;
    select last_name into last_name from employees where employee_id=v;
    dbms_output.put_line(first_name);
    dbms_output.put_line(last_name);
end;

8、编写一个匿名程序块，其中使用update语句employees表中某些员工的工资

begin
    update employees set salary=300000 where employee_id=100;
end;
commit;

9、编写一个匿名程序块，向employees表中插入一行记录

begin
    INSERT INTO "HR"."EMPLOYEES" VALUES (
    '99', 'Sttten', 'Kitng', 'SKttING', 
    '525.123.4567', 
    TO_DATE('1986-06-17 00:00:00', 'SYYYY-MM-DD HH24:MI:SS'), 
    'AD_VP', '300000', NULL, 100, '90');
end;
commit;

10、编写一个匿名程序块，删除employees表中的一行记录

begin
    delete from employees where employee_id=99;
end;

11、使用隐式游标输出上一条sql语句影响的行数

declare n number;
begin
　　delete from employees where employee_id=99;
　　n:=sql%rowcount;
　　commit;
　　dbms_output.put_line(n);
end;

12、使用%rowtype类型定义变量，读取employees表的一行，并显示其对应的数据

declare
    yihang employees%rowtype;
begin
    select * into yihang from employees where employee_id=101;
    dbms_output.put_line(yihang.first_name);
    dbms_output.put_line(yihang.last_name);
end;

13、使用%rowtype类型定义变量，读取employees表的一行，并更改这个变量对应的域后，插入employees表和更新employees表对应的记录

declare
    yihang employees%rowtype;
    zz number;
begin
    select * into yihang from employees where employee_id=100;
    yihang.employee_id:=98;
    yihang.first_name:='fdsfa';
    yihang.salary:=32323;
    yihang.job_id:='AD_VP';
    yihang.manager_id:=100;
    yihang.department_id:=90;
    insert into employees values yihang;
end;
commit;

14、建立一个index-by表，读取employee_id在100和110之间员工记录到这个表。然后遍历这个index-by表，显示员工的信息。

create table index_by as select * from employees where 1=1 and employee_id  between 100 and 110;
select * from index_by;

oracle数据库：PL/SQL 程序基础

猜你喜欢