设置回滚点

标签：end   let   llb   lte   int   create   delete   from   cal   

--创建一个表
create table wan (ename varchar2(6),sex char(2),hiredate date,sal number(8),hun number(1) default 0);

select * from wan;


--插入数据
insert into wan(ename,sex,hiredate,sal) values (‘马骥‘,‘男‘,to_date(‘2000-01-01‘,‘yyyy-mm-dd‘),5000 );
insert into wan(ename,sex,hiredate,sal) values (‘马强‘,‘男‘,to_date(‘2001-02-11‘,‘yyyy-mm-dd‘),5500 );
insert into wan values (‘薛凯‘,‘女‘,to_date(‘2000-01-01‘,‘yyyy-mm-dd‘),5000 ,1);
insert into wan values (‘马强‘,‘男‘,to_date(‘2001-02-11‘,‘yyyy-mm-dd‘),5500 ,default);

savepoint a1; --设置回滚点
-- 执行语句
declare --声明部分
se wan.sex%type; --定义变量
begin --执行部分
select sex into se from wan where sex=‘女‘;
dbms_output.put_line(‘性别是:‘||se);
if se =‘女‘ then
update wan set sex=‘男‘ where ename=‘薛凯‘;
insert into wan values (‘白超峰‘,‘男‘,to_date(‘2005-05-11‘,‘yyyy-mm-dd‘),6500 ,default);
delete from wan where sal=5000;
--alter table wan drop column hun; 不能这样操作
-- drop table wan;
end if;
end; --结束部分

rollback to a1; --回滚到指定点

alter table wan add (local varchar2(8));

设置回滚点

标签：end   let   llb   lte   int   create   delete   from   cal   

原文地址：http://www.cnblogs.com/xuekai/p/7241507.html