ORACLE PL/SQL 与ORACLE服务器进行交互

与oracle服务器进行交互
练习 1:使用变量保存表中的数据，并打印结果
declare
v_ename varchar2(15);
v_sal number;
begin
select ename,sal
into v_ename,v_sal
from scott.emp where empno=7839;
dbms_output.put_line(chr(10)||v_ename||' '||v_sal);
end;
/

练习 2:使用%type（锚定）声明变量保存表中的数据，并打印结果
declare
v_ename scott.emp.ename%type;
v_sal scott.emp.sal%type;
begin
select ename,sal into v_ename,v_sal from scott.emp where empno=7839;
dbms_output.put_line(chr(10)||v_ename||' '||v_sal);
end;
/

练习 3:使用记录保存表中的数据，并打印结果
declare
type emp_record_type is record (ename varchar2(20),sal number);
emp_record emp_record_type;
begin
select ename,sal into emp_record from scott.emp where empno=7499;
dbms_output.put_line(emp_record.ename||' '||emp_record.sal);
end;
/

练习 4:使用%rowtype声明记录保存表中的数据，并打印结果
declare
emp_record scott.emp%rowtype;
begin
select * into emp_record from scott.emp where empno=7499;
dbms_output.put_line(emp_record.ename);
dbms_output.put_line(emp_record.sal);
end;
/

练习 5:使用替换变量传入数据，使用绑定变量保存数据
var g_ename varchar2(15)
declare
s_empno scott.emp.empno%type:=&p_empno;
begin
select ename into :g_ename from scott.emp where empno=s_empno;
dbms_output.put_line(chr(10)||:g_ename);
end;
/

练习 6:向dept表中插入一行记录
declare
v_deptno number := 50;
v_dname varchar2(14) := 'driver';
v_loc varchar2(13) := 'SH';
begin
insert into dept values (v_deptno,v_dname,v_loc);
end;
/

练习 7:向dept表插入一条记录并显示插入的新数据的信息
declare
v_rowid rowid;
v_info varchar2(30);
begin
insert into dept values (50,'driver','SH')
return rowid,to_char(deptno)||' '||dname||' '||loc
into v_rowid,v_info;
dbms_output.put_line(chr(10)||v_rowid||' '||v_info);
-- rollback;
end;
/

练习 8 :修改表中现有记录
declare
v_empno number :=&p_empno;
v_sal number := &p_sal;
begin
update scott.emp set sal=v_sal where empno=v_empno;
end;
/

练习 9:修改表中现有记录,并显示修改的行的信息
declare
v_rowid rowid;
v_info varchar2(50);
begin
update scott.e set sal=sal+100 where empno=7369
return rowid,empno||' New salary is : '||sal
into v_rowid,v_info;
dbms_output.put_line(v_rowid||' '||v_info);
rollback;
end;
/

练习 10:删除一行记录
begin
delete scott.emp where empno=&p_empno;
end;
/

练习 11:删除一行记录,并显示删除的行信息
declare
v_rowid rowid;
v_info varchar2(50);
begin
delete scott.e where empno=&p_empno
return rowid,ename||' '||deptno
into v_rowid,v_info;
dbms_output.put_line(v_rowid||' '||v_info);
rollback;
end;
/

隐式游标的属性:
SQL%ROWCOUNT 成功操作的行的数量
SQL%FOUND 发现复合条件的行返回TRUE
SQL%NOTFOUND 没有发现复合条件的行回TRUE
SQL%ISOPEN 游标打开状态（boolean）

练习 12:打印隐式游标属性
declare
v_count number;
begin
select count(*) into v_count from scott.emp;
dbms_output.put_line(chr(10)||'select return '||sql%rowcount||' rows!');
end;
/

begin
delete emp;
dbms_output.put_line(chr(10)||sql%rowcount||' rows deleted!');
--rollback;
end;
/