2006-12-18

pl/sql语言入门

来源: 专家blog 作者:天助自助者评论 0 条

　　Type <类型名> Is

　　Table Of <数据类型>

　　Index by Binary_Integer;

　　以下为一个例子：

　　Declare
　　 Type Array_type is
　　 Table Of Number
　　 Index by Binary_Integer;
　　 My_Array Array_type;
　　Begin
　　 For I In 1..10 Loop
　　 My_Array(I) := I*2;
　　 End Loop;
　　 For I In 1..10 Loop
　　 Dbms_Output.Put_line(To_char(My_Array(I)));
　　 End Loop;
　　End;

　　pl/sql小例

set serveroutput on
declare
v_empid int(10):=0;
v_depid int(10):=0;
in_empid varchar2(10):='13';
in_deptid varchar2(10):='1';
in_empname varchar2(10):='shabi';
begin
select count(*) into v_empid from emp where empid=in_empid;
select count(*) into v_depid from dept where deptid=in_deptid;
if v_empid >0 then
dbms_output.put_line('该用户编号已存在');
end if;
if v_depid =0 then
dbms_output.put_line('该部门号不存在');
end if;
if v_empid=0 and v_depid>0 then
insert into emp(empid,empname,deptid) values(in_empid,in_empname,in_deptid);
end if;
commit;
end;

　　DECLARE
　　 CURSOR C1(VIEW_PATTERN VARCHAR2) IS
　　 SELECT VIEW_NAME
　　 FROM ALL_VIEWS
　　 WHERE VIEW_NAME LIKE VIEW_PATTERN||'%' AND
　　 ROWNUM<=10
　　 ORDER BY VIEW_NAME;
　　 VNAME VARCHAR2(40);
　　BEGIN
　　 FOR I IN C1('USER_AR') LOOP
　　 DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
　　 END LOOP;
　　 DBMS_OUTPUT.PUT_LINE();
　　 FOR I IN C1('USER') LOOP
　　 DBMS_OUTPUT.PUT_LINE(I.VIEW_NAME);
　　 END LOOP;
　　EXCEPTION WHEN OTHERS THEN
　　 DBMS_OUTPUT.PUT_LINE('AAA');
　　END;

(本文仅表明作者个人观点,不代表本站及其管理员立场.) 推荐收藏投稿打印返回关闭

上一篇：JPEG 简易文档 V2.14
下一篇：现流行数据库程序开发工具的比较分析

共7页: 上一页 [1] [2] [3] [4] 5 [6] [7] 下一页

热门排行

推荐文章

相关文章

网站首页　- 　网站地图　- 　　站长论坛　- 　网站投稿　- 　　- 　网站管理