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;
　　/