显示标签为“oracle”的博文。显示所有博文
显示标签为“oracle”的博文。显示所有博文

解决oracle 10g em web页乱码[oracle@DBCS ~]$ cd /u01/app/oracle/product/10.2.0/db_1/jdk/jre/lib[oracle@DBCS lib]$ lsaudio font.properties.zh_CN.Redhat2.1charsets.jar font.properties.zh_CN.Suncmm font.properties.zh_CN_UTF8.Suncontent-types.properties font.properties.zh_HK.Sunext font.properties.zh_HK_UTF8.Sunflavormap.properties font.properties.zh_HK_UTF8.Sun2003font.properties font.properties.zh.Turbofont.properties.ja font.properties.zh_TW.Redhatfont.properties.ja_JP.Sun font.properties.zh_TW.Redhat2.1font.properties.ja_JP.Sun2003 font.properties.zh_TW.Sunfont.properties.ja_JP_UTF8.Sun font.properties.zh_TW_UTF8.Sunfont.properties.ja_JP_UTF8.Sun2003 font.properties.zh_TW_UTF8.Sun2003font.properties.ja.Redhat3 fontsfont.properties.ja.Redhat6.1 i386font.properties.ja.Redhat6.2 imfont.properties.ja.Redhat7.2 imagesfont.properties.ja.Redhat7.3 jce.jarfont.properties.ja.Redhat8.0 jsse.jarfont.properties.ja.Turbo jvm.hprof.txtfont.properties.ja.Turbo6.0 jvm.jcov.txtfont.properties.ko_KR.Sun localefont.properties.ko_KR_UTF8.Sun logging.propertiesfont.properties.ko_KR_UTF8.Sun2003 plugin.jarfont.properties.ko.Redhat psfontj2d.propertiesfont.properties.ko.Redhat2.1 psfont.properties.jafont.properties.Redhat6.1 rt.jarfont.properties.Redhat8.0 securityfont.properties.SuSE8.0 sunrsasign.jarfont.properties.zh_CN.Redhat zi[oracle@DBCS lib]$ ls font*zh_CN*font.properties.zh_CN.Redhat font.properties.zh_CN.Sunfont.properties.zh_CN.Redhat2.1 font.properties.zh_CN_UTF8.Sun[oracle@DBCS lib]$ mv font.properties font.properties.bak[oracle@DBCS lib]$ cp font.properties.zh_CN.Redhat font.properties[oracle@DBCS lib]$ emctl stop dbconsoleTZ set to PRCOracle Enterprise Manager 10g Database Control Release 10.2.0.1.0 Copyright (c) 1996, 2005 Oracle Corporation. All rights reserved.http://DBCS:1158/em/console/aboutApplicationStopping Oracle Enterprise Manager 10g Database Control ... ... Stopped.[oracle@DBCS lib]$ cd /u01/app/oracle/product/10.2.0/db_1/oc4j/j2ee/oc4j_applications/applications/em/em/cabo/images/cache/zhs/[oracle@DBCS zhs]$ lsb-0c_ASH_5.gif b-68.gif b-b30c_ADD.gif b-deaf.gif b-f81cbf.gif b-iagree.gif tb-0.gifb-0c_ASH_5.imx b-68.imx b-b30c_ADD.imx b-deaf.imx b-f81cbf.imx b-iagree.imx tb-0.imxb-3d.gif b-70.gif b-b5.gif b-delete.gif b-f8.gif b-view.gifb-3d.imx b-70.imx b-b5.imx b-delete.imx b-f8.imx b-view.imxb-61af.gif b-7c2d.gif b-create.gif b-edit.gif b-filterAlerts.gif tb-0-0.gifb-61af.imx b-7c2d.imx b-create.imx b-edit.imx b-filterAlerts.imx tb-0-0.imx[oracle@DBCS zhs]$ rm *.gifrm: remove regular file `b-0c_ASH_5.gif'? yrm: remove regular file `b-3d.gif'? yrm: remove regular file `b-61af.gif'? yrm: remove regular file `b-68.gif'? yrm: remove regular file `b-70.gif'? yrm: remove regular file `b-7c2d.gif'? yrm: remove regular file `b-b30c_ADD.gif'? yrm: remove regular file `b-b5.gif'? yrm: remove regular file `b-create.gif'? yrm: remove regular file `b-deaf.gif'? yrm: remove regular file `b-delete.gif'? yrm: remove regular file `b-edit.gif'? yrm: remove regular file `b-f81cbf.gif'? yrm: remove regular file `b-f8.gif'? yrm: remove regular file `b-filterAlerts.gif'? yrm: remove regular file `b-iagree.gif'? yrm: remove regular file `b-view.gif'? yrm: remove regular file `tb-0-0.gif'? yrm: remove regular file `tb-0.gif'? y[oracle@DBCS zhs]$ lsb-0c_ASH_5.imx b-68.imx b-b30c_ADD.imx b-deaf.imx b-f81cbf.imx b-iagree.imx tb-0.imxb-3d.imx b-70.imx b-b5.imx b-delete.imx b-f8.imx b-view.imxb-61af.imx b-7c2d.imx b-create.imx b-edit.imx b-filterAlerts.imx tb-0-0.imx[oracle@DBCS zhs]$ emctl start dbconsoleTZ set to PRCOracle Enterprise Manager 10g Database Control Release 10.2.0.1.0 Copyright (c) 1996, 2005 Oracle Corporation. All rights reserved.http://DBCS:1158/em/console/aboutApplicationStarting Oracle Enterprise Manager 10g Database Control ................ started.------------------------------------------------------------------Logs are generated in directory /u01/app/oracle/product/10.2.0/db_1/DBCS_ORACS/sysman/log
解决oracle 10g em web页乱码 - ORACLE -

oracle管理自己的软件时,大量使用了操作系统环境变量.环境变量是分配给操作系统中某一名称的值.软件可以使用名称来调用变量的值.
oracle软件使用了许多环境变量,非常重要的三个是 ORACLE_HOME,ORACLE_BASE和ORACLE_SID.ORACLE_HOME指定了你希望运行的oracle执行程序的位置.一台计算机上可能安装了若干个版本的oracle软件,大多数oracle程序查询ORACLE_HOME来决定运行何种版本的软件.ORACLE_BASE定义了数据库管理文件安装的基本目录.ORACLE_SID定义了你希望在其上工作的本地oracle数据库名称.如果是linux环境,在命令提示符下设置变量,如果是windows环境,则可以在命令提示符下或在注册表中设置.

以下简述如何设置环境变量.(由于windows下相对简单,着重介绍linux平台)

1、su oracle并回车切换到oracle用户;
2、cd并回车回到oracle用户目录;
3、vi .bash_profile并回车编辑该文件,按I键进入插入状态,在最后加入以下行:
export ORACLE_SID=orcl
export ORACLE_HOME=/home/oracle/oracle/product/10....(...部分根据你的实际路径修改)
export PATH=$PATH:$ORACLE_HOME/bin
输入完毕后按ESC键退出vi编辑状态,输入:wq并回车存盘退出。
4、注销所有oracle用户,再使用oracle登录即可。

以下资料简单介绍linux下如何查看oracle的环境变量

example :

[oracle@q1test01 ~]$ env |grep -e ORA -e TNS -e LD
OLDPWD=/home/oracle
LD_LIBRARY_PATH=/oracle/product/9.2/lib:/lib:/usr/lib:/usr/local/lib
ORACLE_SID=orcl
ORACLE_BASE=/oracle
ORACLE_TERM=xterm
LD_ASSUME_KERNEL=2.4.1
ORA_NLS33=/oracle/product/9.2/ocommon/nls/admin/data
ORACLE_HOME=/oracle/product/9.2

Blogged with the Flock Browser

oracle管理自己的软件时,大量使用了操作系统环境变量.环境变量是分配给操作系统中某一名称的值.软件可以使用名称来调用变量的值.
oracle软件使用了许多环境变量,非常重要的三个是 ORACLE_HOME,ORACLE_BASE和ORACLE_SID.ORACLE_HOME指定了你希望运行的oracle执行程序的位置.一台计算机上可能安装了若干个版本的oracle软件,大多数oracle程序查询ORACLE_HOME来决定运行何种版本的软件.ORACLE_BASE定义了数据库管理文件安装的基本目录.ORACLE_SID定义了你希望在其上工作的本地oracle数据库名称.如果是linux环境,在命令提示符下设置变量,如果是windows环境,则可以在命令提示符下或在注册表中设置.

以下简述如何设置环境变量.(由于windows下相对简单,着重介绍linux平台)

1、su oracle并回车切换到oracle用户;
2、cd并回车回到oracle用户目录;
3、vi .bash_profile并回车编辑该文件,按I键进入插入状态,在最后加入以下行:
export ORACLE_SID=orcl
export ORACLE_HOME=/home/oracle/oracle/product/10....(...部分根据你的实际路径修改)
export PATH=$PATH:$ORACLE_HOME/bin
输入完毕后按ESC键退出vi编辑状态,输入:wq并回车存盘退出。
4、注销所有oracle用户,再使用oracle登录即可。

以下资料简单介绍linux下如何查看oracle的环境变量

example :

[oracle@q1test01 ~]$ env |grep -e ORA -e TNS -e LD
OLDPWD=/home/oracle
LD_LIBRARY_PATH=/oracle/product/9.2/lib:/lib:/usr/lib:/usr/local/lib
ORACLE_SID=orcl
ORACLE_BASE=/oracle
ORACLE_TERM=xterm
LD_ASSUME_KERNEL=2.4.1
ORA_NLS33=/oracle/product/9.2/ocommon/nls/admin/data
ORACLE_HOME=/oracle/product/9.2

Blogged with the Flock Browser

//基本循环
declare
my Integer:=100;
begin

for my in 1..4 loop
dbms_output.put_line(my);
end loop;
dbms_output.put_line(my);
end;



//典型游标for 循环
set serveroutput on;
declare
cursor mycur(vartype number)is
select emp_no,emp_zc from cus_emp_basic
where com_no=vartype;
begin
for person in mycur(000627) loop
dbms_output.put_line('雇员编号:'||person.emp_no||',地址:'||person.emp_zc);
end loop;
end;


FOR r_emp IN (SELECT ename,salary

   FROM emp

   WHERE deptno=p_dept

   ORDER BY ename) LOOP




declare
cursor c1 is
select name,id,password from bjpuserinfo where accounttype='qiye';
begin
for rec in c1 loop
dbms_output.put_line('单位名称:'||rec.name||' ,密码:'||rec.password);
FOR tmp in (select name,fullname,password from bjpuserinfo where accounttype='geren' and parentid=rec.id) loop
dbms_output.put_line('用户名:'||tmp.name||' ,姓名:'||tmp.fullname||' ,密码:'||tmp.password);
end loop;
dbms_output.put_line('==================================');
end loop;
end;





declare
i integer:=1;
j integer:=1;
k integer:=1;
cursor c1 is
select u.id,u.name from bjpuserinfo b,upunit u where u.id=b.upunitid group by u.name,u.id;
begin
for rec in c1 loop
dbms_output.put_line('');
dbms_output.put_line('受理机构'||k||':'||rec.name);k:=k+1;
dbms_output.put_line('');
for tmp in (select name,id,password from bjpuserinfo where accounttype='qiye' and upunitid=rec.id) loop
dbms_output.put_line(' 单位'||i||':'||tmp.name||' ,密码:'||tmp.password);i:=i+1;
for tmp1 in (select name,fullname,password from bjpuserinfo where accounttype='geren' and parentid=tmp.id) loop
dbms_output.put_line(' 用户'||j||':'||tmp1.name||' ,姓名:'||tmp1.fullname||' ,密码:'||tmp1.password);
j:=j+1;
end loop;
j:=1;
end loop;
i:=1;
dbms_output.put_line('====================================================================');
end loop;
end;

Create procedure procedue_name
[@parameter data_type][output]
[with]{recompile|encryption}
as
sql_statement
解释 output:表示此参数是可传回的.

with {recompile|encryption}

recompile:表示每次执行此存储过程时都重新编译一次

encryption:所创建的存储过程的内容会被加密

表book的内容如下

编号 书名 价格

001 C语言入门 $30

002 PowerBuilder报表开发 $52

实例1:查询表Book的内容

create proc query_book
as
select * from book
go
exec query_book

实例2:加入一笔记录到表book,并查询此表中所有书籍的总金额

Create proc insert_book

@param1 char(10),@param2 varchar(20),@param3 money,@param4 money output

with encryption ---------加密

as

insert book(编号,书名,价格) Values(@param1,@param2,@param3)
select @param4=sum(价格) from book
go

执行例子:

declare @total_price money
exec insert_book '003','Delphi 开发指南',$100,@total_price
print '总金额为'+convert(varchar,@total_price)
go


实例3:设有两个表为Product,Order,其表内容如下:

Product

产品编号 产品名称 客户订数
001 钢笔 30
002 毛笔 50
003 铅笔 100

Order
产品编号 客户名 客户订金
001 南山区 $30
002 罗湖区 $50
003 宝安区 $4

请实现按编号为连接条件,将两个表连接成一个临时表,该表只含编号.产品名.客户名.订金.总金额,
总金额=订金*订数,临时表放在存储过程中

代码如下:

Create proc temp_sale
as
select a.产品编号,a.产品名称,b.客户名,b.客户订金,a.客户订数* b.客户订金 as总金额
into #temptable from Product a inner join Order b on a.产品编号=b.产品编号
if @@error=0
print 'Good'
else
print 'Fail'
go

数据库之---游标
2007-05-09 17:16

在数据库开发过程中,当你检索的数据只是一条记录时,你所编写的事务语句代码往往使用SELECT INSERT 语句。但是我们常常会遇到这样情况,即从某一结果集中逐一地读取一条记录。那么如何解决这种问题呢?游标为我们提供了一种极为优秀的解决方案。

1.游标和游标的优点

在数据库中,游标是一个十分重要的概念。游标提供了一种对从表中检索出的数据进行操作的灵活手段,就本质而言,游标实际上是一种能从包括多条数据记录的结果集中每次提取一条记录的机制。游标总是与一条SQL 选择语句相关联因为游标由结果集(可以是零条、一条或由相关的选择语句检索出的多条记录)和结果集中指向特定记录的游标位置组成。当决定对结果集进行处理时,必须声明一个指向该结果集的游标。如果曾经用 C 语言写过对文件进行处理的程序,那么游标就像您打开文件所得到的文件句柄一样,只要文件打开成功,该文件句柄就可代表该文件。对于游标而言,其道理是相同的。可见游标能够实现按与传统程序读取平面文件类似的方式处理来自基础表的结果集,从而把表中数据以平面文件的形式呈现给程序。

我们知道关系数据库管理系统实质是面向集合的,在MS SQL SERVER 中并没有一种描述表中单一记录的表达形式,除非使用where 子句来限制只有一条记录被选中。因此我们必须借助于游标来进行面向单条记录的数据处理。由此可见,游标允许应用程序对查询语句select 返回的行结果集中每一行进行相同或不同的操作,而不是一次对整个结果集进行同一种操作;它还提供对基于游标位置而对表中数据进行删除或更新的能力;而且,正是游标把作为面向集合的数据库管理系统和面向行的程序设计两者联系起来,使两个数据处理方式能够进行沟通。

2. 游标种类


MS SQL SERVER 支持三种类型的游标:Transact_SQL 游标,API 服务器游标和客户游标。
(1) Transact_SQL 游标
Transact_SQL 游标是由DECLARE CURSOR 语法定义、主要用在Transact_SQL 脚本、存储过程和触发器中。Transact_SQL 游标主要用在服务器上,由从客户端发送给服务器的Transact_SQL 语句或是批处理、存储过程、触发器中的Transact_SQL 进行管理。 Transact_SQL 游标不支持提取数据块或多行数据。
(2) API 游标
API 游标支持在OLE DB, ODBC 以及DB_library 中使用游标函数,主要用在服务器上。每一次客户端应用程序调用API 游标函数,MS SQL SEVER 的OLE DB 提供者、ODBC驱动器或DB_library 的动态链接库(DLL) 都会将这些客户请求传送给服务器以对API游标进行处理。
(3) 客户游标
客户游标主要是当在客户机上缓存结果集时才使用。在客户游标中,有一个缺省的结果集被用来在客户机上缓存整个结果集。客户游标仅支持静态游标而非动态游标。由于服务器游标并不支持所有的Transact-SQL 语句或批处理,所以客户游标常常仅被用作服务器游标的辅助。因为在一般情况下,服务器游标能支持绝大多数的游标操作。由于API 游标和Transact-SQL 游标使用在服务器端,所以被称为服务器游标,也被称为后台游标,而客户端游标被称为前台游标。在本章
中我们主要讲述服务器(后台)游标。

---------------------------------------------------------------------------

这里要做一个声明,我们所说的游标通常是指显式游标,因此从现在起没有特别指明的情况,我们所说的游标都是指显式游标。要在程序中使用游标,必须首先声明游标。

  声明游标

  语法:

CURSOR cursor_name IS select_statement;

  在PL/SQL中游标名是一个未声明变量,不能给游标名赋值或用于表达式中。

  例:

DELCARE
CURSOR C_EMP IS SELECT empno,ename,salary
FROM emp
WHERE salary>2000
ORDER BY ename;
........
BEGIN

  在游标定义中SELECT语句中不一定非要表可以是视图,也可以从多个表或视图中选择的列,甚至可以使用*来选择所有的列 。

  打开游标

  使用游标中的值之前应该首先打开游标,打开游标初始化查询处理。打开游标的语法是:

OPEN cursor_name

  cursor_name是在声明部分定义的游标名。

  例:

OPEN C_EMP;

  关闭游标

  语法:

CLOSE cursor_name

  例:

CLOSE C_EMP;

  从游标提取数据

  从游标得到一行数据使用FETCH命令。每一次提取数据后,游标都指向结果集的下一行。语法如下:

FETCH cursor_name INTO variable[,variable,...]

  对于SELECT定义的游标的每一列,FETCH变量列表都应该有一个变量与之相对应,变量的类型也要相同。

  例:

SET SERVERIUTPUT ON
DECLARE
v_ename EMP.ENAME%TYPE;
v_salary EMP.SALARY%TYPE;
CURSOR c_emp IS SELECT ename,salary FROM emp;
BEGIN
OPEN c_emp;
FETCH c_emp INTO v_ename,v_salary;
DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
||'is'|| v_salary);
FETCH c_emp INTO v_ename,v_salary;
DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
||'is'|| v_salary);
FETCH c_emp INTO v_ename,v_salary;
DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
||'is'|| v_salary);
CLOSE c_emp;
END

  这段代码无疑是非常麻烦的,如果有多行返回结果,可以使用循环并用游标属性为结束循环的条件,以这种方式提取数据,程序的可读性和简洁性都大为提高,下面我们使用循环重新写上面的程序:

SET SERVERIUTPUT ON
DECLARE
v_ename EMP.ENAME%TYPE;
v_salary EMP.SALARY%TYPE;
CURSOR c_emp IS SELECT ename,salary FROM emp;
BEGIN
OPEN c_emp;
LOOP
FETCH c_emp INTO v_ename,v_salary;
EXIT WHEN c_emp%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('Salary of Employee'|| v_ename
||'is'|| v_salary);
END

  记录变量

  定义一个记录变量使用TYPE命令和%ROWTYPE,关于%ROWsTYPE的更多信息请参阅相关资料。

  记录变量用于从游标中提取数据行,当游标选择很多列的时候,那么使用记录比为每列声明一个变量要方便得多。

  当在表上使用%ROWTYPE并将从游标中取出的值放入记录中时,如果要选择表中所有列,那么在SELECT子句中使用*比将所有列名列出来要安全得多。

  例:

SET SERVERIUTPUT ON
DECLARE
R_emp EMP%ROWTYPE;
CURSOR c_emp IS SELECT * FROM emp;
BEGIN
OPEN c_emp;
LOOP
FETCH c_emp INTO r_emp;
EXIT WHEN c_emp%NOTFOUND;
DBMS_OUT.PUT.PUT_LINE('Salary of Employee'||r_emp.ename||'is'|| r_emp.salary);
END LOOP;
CLOSE c_emp;
END;

  %ROWTYPE也可以用游标名来定义,这样的话就必须要首先声明游标:

SET SERVERIUTPUT ON
DECLARE
CURSOR c_emp IS SELECT ename,salary FROM emp;
R_emp c_emp%ROWTYPE;
BEGIN
OPEN c_emp;
LOOP
FETCH c_emp INTO r_emp;
EXIT WHEN c_emp%NOTFOUND;
DBMS_OUT.PUT.PUT_LINE('Salary of Employee'||r_emp.ename||'is'|| r_emp.salary);
END LOOP;
CLOSE c_emp;
END;

  带参数的游标

  与存储过程和函数相似,可以将参数传递给游标并在查询中使用。这对于处理在某种条件下打开游标的情况非常有用。它的语法如下:

CURSOR cursor_name[(parameter[,parameter],...)] IS select_statement;

  定义参数的语法如下:

Parameter_name [IN] data_type[{:=|DEFAULT} ]

  与存储过程不同的是,游标只能接受传递的值,而不能返回值。参数只定义数据类型,没有大小。

  另外可以给参数设定一个缺省值,当没有参数值传递给游标时,就使用缺省值。游标中定义的参数只是一个占位符,在别处引用该参数不一定可靠。

  在打开游标时给参数赋值,语法如下:

OPEN cursor_name[[,]....];

  参数值可以是文字或变量。

  例:

DECALRE

CURSOR c_dept IS SELECT * FROM dept ORDER BY deptno;
CURSOR c_emp (p_dept VARACHAR2) IS
SELECT ename,salary
FROM emp
WHERE deptno=p_dept
ORDER BY ename
r_dept DEPT%ROWTYPE;
v_ename EMP.ENAME%TYPE;
v_salary EMP.SALARY%TYPE;
v_tot_salary EMP.SALARY%TYPE;

BEGIN

OPEN c_dept;
LOOP
FETCH c_dept INTO r_dept;
EXIT WHEN c_dept%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
v_tot_salary:=0;
OPEN c_emp(r_dept.deptno);
LOOP
FETCH c_emp INTO v_ename,v_salary;
EXIT WHEN c_emp%NOTFOUND;
DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
v_tot_salary:=v_tot_salary+v_salary;
END LOOP;
CLOSE c_emp;
DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
END LOOP;
CLOSE c_dept;
END;

  游标FOR循环

  在大多数时候我们在设计程序的时候都遵循下面的步骤:

  1、打开游标

  2、开始循环

  3、从游标中取值

  4、检查那一行被返回

  5、处理

  6、关闭循环

  7、关闭游标

  可以简单的把这一类代码称 伪暧糜谘 贰5 褂幸恢盅 酚胝庵掷嘈筒幌嗤 饩褪荈OR循环,用于FOR循环的游标按照正常的声明方式声明,它的优点在于不需要显式的打开、关闭、取数据,测试数据的存在、定义存放数据的变量等等。游标FOR 循环的语法如下:

FOR record_name IN
(corsor_name[(parameter[,parameter]...)]
| (query_difinition)
LOOP
statements
END LOOP;

  下面我们用for循环重写上面的例子:

DECALRE

CURSOR c_dept IS SELECT deptno,dname FROM dept ORDER BY deptno;
CURSOR c_emp (p_dept VARACHAR2) IS
SELECT ename,salary
FROM emp
WHERE deptno=p_dept
ORDER BY ename

v_tot_salary EMP.SALARY%TYPE;

BEGIN

FOR r_dept IN c_dept LOOP
DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
v_tot_salary:=0;
FOR r_emp IN c_emp(r_dept.deptno) LOOP
DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
v_tot_salary:=v_tot_salary+v_salary;
END LOOP;
DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
END LOOP;

END;

  在游标FOR循环中使用查询

  在游标FOR循环中可以定义查询,由于没有显式声明所以游标没有名字,记录名通过游标查询来定义。

DECALRE

 v_tot_salary EMP.SALARY%TYPE;

BEGIN

 FOR r_dept IN (SELECT deptno,dname FROM dept ORDER BY deptno) LOOP
  DBMS_OUTPUT.PUT_LINE('Department:'|| r_dept.deptno||'-'||r_dept.dname);
  v_tot_salary:=0;
  FOR r_emp IN (SELECT ename,salary
   FROM emp
   WHERE deptno=p_dept
   ORDER BY ename) LOOP
  DBMS_OUTPUT.PUT_LINE('Name:'|| v_ename||' salary:'||v_salary);
  v_tot_salary:=v_tot_salary+v_salary;
  END LOOP;
  DBMS_OUTPUT.PUT_LINE('Toltal Salary for dept:'|| v_tot_salary);
 END LOOP;

END;

  游标中的子查询

  语法如下:

CURSOR C1 IS SELECT * FROM emp
WHERE deptno NOT IN (SELECT deptno
FROM dept
WHERE dname!='ACCOUNTING');

  可以看出与SQL中的子查询没有什么区别。

  
游标中的更新和删除

  在PL/SQL中依然可以使用UPDATE和DELETE语句更新或删除数据行。显式游标只有在需要获得多行数据的情况下使用。PL/SQL提供了仅仅使用游标就可以执行删除或更新记录的方法。

  UPDATE或DELETE语句中的WHERE CURRENT OF子串专门处理要执行UPDATE或DELETE操作的表中取出的最近的数据。要使用这个方法,在声明游标时必须使用FOR UPDATE子串,当对话使用FOR UPDATE子串打开一个游标时,所有返回集中的数据行都将处于行级(ROW-LEVEL)独占式锁定,其他对象只能查询这些数据行,不能进行UPDATE、DELETE或SELECT...FOR UPDATE操作。

  语法:

FOR UPDATE [OF [schema.]table.column[,[schema.]table.column]..
[nowait]

  在多表查询中,使用OF子句来锁定特定的表,如果忽略了OF子句,那么所有表中选择的数据行都将被锁定。如果这些数据行已经被其他会话锁定,那么正常情况下ORACLE将等待,直到数据行解锁。

  在UPDATE和DELETE中使用WHERE CURRENT OF子串的语法如下:

WHERE{CURRENT OF cursor_name|search_condition}

  例:

DELCARE

CURSOR c1 IS SELECT empno,salary
FROM emp
WHERE comm IS NULL
FOR UPDATE OF comm;

v_comm NUMBER(10,2);

BEGIN

FOR r1 IN c1 LOOP

IF r1.salary<500 THEN
v_comm:=r1.salary*0.25;
ELSEIF r1.salary<1000 THEN
v_comm:=r1.salary*0.20;
ELSEIF r1.salary<3000 THEN
v_comm:=r1.salary*0.15;
ELSE
v_comm:=r1.salary*0.12;
END IF;

UPDATE emp;
SET comm=v_comm
WHERE CURRENT OF c1l;

END LOOP;
END

 
Copyright 2005-2007. Hello Wiki designed by Fen, Blogger Templates by Blogcrowds.