Oracle教程：Oracle触发器编辑代码

来源：学生作业帮助网编辑：作业帮时间：2024/05/12 12:05:47 Oracle

Oracle教程：Oracle触发器编辑代码Oracle

【无忧考网-Oracle教程：Oracle触发器编辑代码】：
--创建触发器（行级触发器）
create or replace trigger tri_update_emp_bak
after update
on emp_bak
for each row  --每更新一行就触发一次
begin
     --oracle 里面对触发器也提供了特殊的对象 :NEW :OLD 来访问更新前后的数据


     dbms_output.put_line('更新后' || :NEW.sal);
      dbms_output.put_line('更新前' || :OLD.sal);

      if updating then

      end if;

      if inserting

end;


--创建触发器（行级触发器）（前置）
create or replace trigger tri3_update_emp_bak
before update
on emp_bak
for each row  --每更新一行就触发一次
begin
     --oracle 里面对触发器也提供了特殊的对象 :NEW :OLD 来访问更新前后的数据


      dbms_output.put_line('更新后' || :NEW.sal);
      dbms_output.put_line('更新前' || :OLD.sal);

end;

select * from emp_bak

update emp_bak set sal = 1000 where empno in (7788)

--创建触发器（表级触发器）
--//表级别触发器里面不允许使用 :NEW :OLD 变量
create or replace trigger tri2_update_emp_bak
after update
on emp_bak
begin


      -- dbms_output.put_line('更新后' || :NEW.sal);
      --dbms_output.put_line('更新前' || :OLD.sal);

end;

--创建触发器（行级触发器）
create or replace trigger tri4_update_emp_bak
after update of sal
on emp_bak
for each row  --每更新一行就触发一次
begin
     --oracle 里面对触发器也提供了特殊的对象 :NEW :OLD 来访问更新前后的数据


      dbms_output.put_line('更新后' || :NEW.sal);
      dbms_output.put_line('更新前' || :OLD.sal);

end;


create table userinfo
(
       userid number(4) primary key,
       username varchar2(20)
)

create table addrinfo
(
       addrid number(4) primary key,
       addname varchar2(20),
       userid number(4) references userinfo(userid)
)

insert into userinfo values (1,'李四')
insert into addrinfo values (1,'湖北武汉',1)

select * from addrinfo


delete from userinfo where userid =1

--级联删除
create or replace trigger tri_userinfo_delete
before  delete
on userinfo
for each row
begin
    delete from   addrinfo  where userid = :OLD.userid;
   -- insert into
end;


create table dept_bak as select * from dept



create or replace view  myview
as
  select a.empno,a.ename,a.sal,b.dname
   from emp a inner join dept b
   on a.deptno = b.deptno


select * from myview

update  myview set sal = 1000,dname='aaaaa' where empno = 7499

--替代触发器  用在视图上面只能是行级的
--替代触发器特点是真正的操作已经变成了一个动作而已功能由触发器来完成
create or replace trigger tri_myview
instead of update
on myview
begin

   dbms_output.put_line('删除操作执行了。。。');
   update emp set sal = :NEW.sal where empno = :OLD.empno;

   update dept set dname = :NEW.dname where dname = :OLD.dname;
   --delete from emp where empno = :OLD.empno;

end;



select * from emp;
select * from dept;


update emp_bak set ename ='aaaa',sal = 10000 where empno in (7788)


--系统包
-- 产生随机数
**** **** **** ****
--dbms_random.value 0-1 之间的随机小数
--dbms_random.random  随机整数
select dbms_random.value from dual;



create or replace procedure proc_cardno(mycardno out varchar2)
as
   tempcard varchar2(50);
   cardno varchar2(19);
begin
   tempcard:= dbms_random.value;

   cardno:=substr(tempcard,2,4)||' '||substr(tempcard,6,4)||' '||substr(tempcard,10,4)||' '||substr(tempcard,14,4);

   mycardno:=cardno;

--   dbms_output.put_line(tempcard);
  -- dbms_output.put_line(cardno);
end;


--使用UTL_FILE包读写文件
create directory MY_DIR as 'd:\temp';
create directory MY_DIR2 as 'd:\temp2';

declare
  --定义文件对象
   myfile utl_file.file_type;
  --定义变量用来存储每读出一行的数据
   linestr varchar2(200);
begin
   --打开文件
     myfile:= utl_file.fopen('MY_DIR','oracle.log','r');

   --进行读取(循环)
   loop
           utl_file.get_line(myfile,linestr);
           dbms_output.put_line(linestr);
   end loop;

     exception
       when others  then
           utl_file.fclose(myfile);
          dbms_output.put_line('读取完毕！');

end;


declare
  --定义文件对象
   myfile utl_file.file_type;
  --定义变量用来存储每读出一行的数据
   linestr varchar2(200);
begin
   --打开文件
     myfile:= utl_file.fopen('MY_DIR','oracle.log','a');

   --追加数据

           --utl_file.get_line(myfile,linestr);
           utl_file.put_line(myfile,'你好，这是新的数据',true);

            utl_file.fclose(myfile);
      exception
       when others  then
           utl_file.fclose(myfile);
          dbms_output.put_line('读取完毕！');

end;


--拷贝


declare
  --定义文件对象
   sourcefile utl_file.file_type;
   targetfile utl_file.file_type;
  --定义变量用来存储每读出一行的数据
   linestr varchar2(200);
begin
   --打开文件
     sourcefile:= utl_file.fopen('MY_DIR','oracle.log','r');
     targetfile:= utl_file.fopen('MY_DIR2','copy.txt','a');

   --进行读取(循环) 并且写入到新的文件里面
   loop
            utl_file.get_line(sourcefile,linestr);
            utl_file.put_line(targetfile,linestr,true);
          -- dbms_output.put_line(linestr);
   end loop;

     exception
       when others  then
           utl_file.fclose(sourcefile);
            utl_file.fclose(targetfile);
          dbms_output.put_line('拷贝完毕！');

end;

Oracle