实验六PLSQL.doc

实验六 PL/SQLdeclarex varchar2(10);beginx:=this is . ;dbms_output.put_line(x的值:|x);end;/dbms_output 是与外部环境进行交互的包默认不显示信息set serveroutput on 再执行list/save c:plsq_01.txtdbms_output.put (x的值:|x);没有什么信息dbms_output.new_line;这才能显示出来所以，一般用put_line更方便-行注释/* */块注释可以直接在定义是给值x varchar2(10):=abcd;y number;也可以用integery integer:=123;dbms_output.put (x的值:|x|y的值:|y);y string(10):=123;分支语句declarea number;b varchar2(10);begina:=2;if a=1 thenb:=a;elseif a=2 thenb:=b;elseb:=c;end if;dbmd_output.put_line(b:|b);end;/save c:plsql03.txtdeclarea number;b varchar2(10);begina:=2;casewhen a=1 then b:=a;when a=2 then b:=b;when a=3 then b:=c;elseb:=other;end case;dbmd_output.put_line(b:|b);end;/循环语句declarex number;beginx:=0;loopx:=x+1;if x=3 thenexitend if;dbms_putput.put_line(内：x=|x);end loop;dbms_putput.put_line(外：x=|x);end;/declarex number;beginx:=0;loopx:=x+1;exit when x=3dbms_putput.put_line(内：x=|x);end loop;dbms_putput.put_line(外：x=|x);end;/declarex number;beginx:=0;while x=3 loopx:=x+1;dbms_putput.put_line(内：x=|x);end loop;dbms_putput.put_line(外：x=|x);end;/beginfor I in 1.5 loopdbms_putput.put_line(内：i=|i);end loop;dbms_putput.put_line(end of for loop);end ;beginfor I in revreverse 1.5 loop -从大到小dbms_putput.put_line(内：i=|i);end loop;dbms_putput.put_line(end of for loop);end ;1 异常declaretest varchar2(10);beginselect dname into test from dept where deptno=1;dbms_output.put_line(test);end;/会出现在一个系统的错误提示用edit编辑declaretest varchar2(10);beginselect dname into test from dept where deptno=1; -没有这个部门编号dbms_output.put_line(test);exception when no_data_found then 异常类型是系统给出的dbms_output.put_line(没有找到数据);when others thendbms_output.put_line(其他错误);end;/edit编辑declaretest varchar2(10);beginselect dname into test from dept where deptno=10; -有这个部门编号dbms_output.put_line(test);exception when no_data_found then 异常类型是系统给出的dbms_output.put_line(没有找到数据);end;/自定义异常declaretname varchar2(10);e exception; -是异常数据类型beginselect dname into tname from dept where deptno=10;if tnameSALES thenraise e;-抛出异常end ifdbms_output.put_line(tname);exceptionwhen e thendbms_output.put_line(错误，不是需要的SALES部门);end;/将上面的select dname into tname from dept where deptno=10;改成select dname into tname from dept where deptno=30;再运行2 记录declaretype myrecord is record(id varchar2(10),name varchar2(10);real_record myrecord;beginselect empno,ename into real_record from emp where empno=7369;dbms_output.put_line(real_record.id|,|real_);declaretype myrecord is record(id emp.empno%type,name varchar2(10);real_record myrecord;beginselect empno,ename into real_record from emp where empno=7369;dbms_output.put_line(real_record.id|,|real_);declaremyrec emp%rowty