当前位置: 数据库>oracle
本页文章导读:
▪Oracle PL/SQL中的循环处理(sql for循环) 今年春节算是休了个长假，调整好心态，迎接新一年的挑战。 今天来说下Oracle中的循环迭代处理，因为从自己的博客统计中看到，不少网友都搜索了关键字"SQL FOR.........
▪[Oracle 学习] ORACLE的UTL_FILE包 ORACLE的UTL_FILE包 包UTL_FIle用于读写操作系统的文件,前提是首先创建Directory对象、授权。然后就可以使用UTL_FILE包中提供的类型、过程、函数来读取，写入，操作目录中的文件了。 创建Di.........
▪FOR UPDATE和UPDATE NOWAIT的区别 首先一点，如果只是select 的话，Oracle是不会加任何锁的，也就是Oracle对 select 读到的数据不会有任何限制。虽然这时候有可能另外一个进程正在修改表中的数据，并且修改的结果可能影响到你.........
[1]Oracle PL/SQL中的循环处理(sql for循环)
今年春节算是休了个长假，调整好心态，迎接新一年的挑战。
今天来说下Oracle中的循环迭代处理，因为从自己的博客统计中看到，不少网友都搜索了关键字"SQL FOR循环"，所以打算在这里说下个人的理解。
PL/SQL也和我们常用的编程语言一样，提供了While、For等循环，我们建几个例子来说明演示下。
首先是While循环：
--while循环
procedure loop_while
(
start_value in number,
end_value in number
)
is
current_value number := start_value;
begin while current_value <=end_value
loop
dbms_output.put_line('now number:' || current_value);
current_value:=current_value+1;
end loop;
end loop_while;
procedure loop_while
(
start_value in number,
end_value in number
)
is
current_value number := start_value;
begin while current_value <=end_value
loop
dbms_output.put_line('now number:' || current_value);
current_value:=current_value+1;
end loop;
end loop_while;
指定循环的初始值和结束值之后，就可以看到将这2个值之间的数字一行行打印出来了；当然只要while循环条件的求值结果是true，循环就会继续下去，
如果求值条件为false或者null，循环就会终止。这个循环条件每执行一次循环体之前都会先进行判断，因此while循环并不能保证循环体一定能被执行。
所以如果我们无法提前预知所需要巡检的次数的情况下，就可以使用While来进行循环处理。
For循环有2种，分别是数值型FOR循环和游标型FOR循环：
--数值型For循环
procedure loop_num_for
(
lowest in number,
highest in number
)
is
begin
FOR even_number in lowest .. highest --升序
loop
--处理非平滑增长的索引
if mod(even_number,2)=0
then
dbms_output.put_line('now number:' || even_number);
end if;
end loop;
end loop_num_for;
procedure loop_num_for
(
lowest in number,
highest in number
)
is
begin
FOR even_number in lowest .. highest --升序
loop
--处理非平滑增长的索引
if mod(even_number,2)=0
then
dbms_output.put_line('now number:' || even_number);
end if;
end loop;
end loop_num_for;
这种循环在开始的时候就已经知道循环的次数了，注意这里不需要声明循环索引，因为PL/SQL会自动隐式的用一个integer类型的局部变量作为它的循环索引；
如果要降序循环，必须加上reverse关键字，并且循环上边界和下边界的顺利无需改变：
FOR even_number in reverse lowest .. highest
loop
dbms_output.put_line('now number:' || even_number);
end loop;
loop
dbms_output.put_line('now number:' || even_number);
end loop;
另外需要说明的是，数值型FOR循环中，索引总是以1为单位递增或递减，所以如果我们的循环条件并非如此理想的平滑增长，我们就必须用一些逻辑代码或者技巧来
达到我们的目的。
如果我们需要对很多行记录做处理时，就可以使用游标型FOR循环：
--游标型For循环
procedure loop_cursor_for
is
begin
declare cursor userinfo_cur is select * from userinfo_table;
begin
FOR userinfo_rec in userinfo_cur
loop
dbms_output.put_line('username is:' || userinfo_rec.user_name);
end loop;
end;
end loop_cursor_for;
procedure loop_cursor_for
is
begin
declare cursor userinfo_cur is select * from userinfo_table;
begin
FOR userinfo_rec in userinfo_cur
loop
dbms_output.put_line('username is:' || userinfo_rec.user_name);
end loop;
end;
end loop_cursor_for;
当游标中的所有记录都取出来后，FOR循环就会自动终止，这里不用显示OPEN、CLOSE游标，PL/SQL引擎会自动处理。
上面的循环语句都可以用EXIT 或者 EXIT WHEN来终止其循环，但最好不要这样做，因为这样可能会造成循环的逻辑出现问题，最终造成SQL代码难于跟踪和调试。
最后附上测试用的SQL：
create or replace package body LOOP_TEST_DEMO IS
--while循环
procedure loop_while(start_value in number, end_value in number) is
current_value number := start_value;
begin
while current_value <= end_value loop
dbms_output.put_line('now number:' || current_value);
current_value := current_value + 1;
end loop;
end loop_while;
--数值型For循环
procedure loop_num_for(lowest in number, highest in number) is
begin
FOR even_number in lowest .. highest
--升序
loop
--while循环
procedure loop_while(start_value in number, end_value in number) is
current_value number := start_value;
begin
while current_value <= end_value loop
dbms_output.put_line('now number:' || current_value);
current_value := current_value + 1;
end loop;
end loop_while;
--数值型For循环
procedure loop_num_for(lowest in number, highest in number) is
begin
FOR even_number in lowest .. highest
--升序
loop
[2][Oracle 学习] ORACLE的UTL_FILE包
ORACLE的UTL_FILE包
包UTL_FIle用于读写操作系统的文件,前提是首先创建Directory对象、授权。然后就可以使用UTL_FILE包中提供的类型、过程、函数来读取，写入，操作目录中的文件了。
创建Directory的示例如下:
SQL> CREATE DIRECTORY CZW AS 'D:\';
Directory created
SQL> GRANT READ,WRITE ON DIRECTORY CZW TO SCOTT;
Grant succeeded
1、FILE_TYPE
该类型是UTL_FILE包中定义的记录类型，其成员是私有的，不能够被直接引用。该类型的定义如下：
TYPE file_type IS RECORD(
id BINARY_INTEGER,datatype BINARY_INTEGER
);
2、FOPEN
该函数用于打开文件。使用这个函数最多可以打开50个文件，语法如下：
UTL_FILE.FOPEN(
location IN VARCHAR2,
filename IN VARCHAR2,
open_mode IN VARCHAR2,
max_linesize IN BINARY_INTEGER
)
RETURN file_type;
当成功的执行了该函数之后，就会返回文件句柄，访问该文件可以使用该文件句柄。如果执行失败的话，则会触发例外或者显示错误。注意，当指定文件位置的时候，必须要使用DIRECTORY对象，并且其名称必须为大写。示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BEGIN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','R',1000);
DBMS_OUTPUT.PUT_LINE('D:\DYWT.TXT已经被打开');
END;
3、FOPEN_NCHAR
该函数用于以UNICODE方式打开文件。当使用该函数打开文件之后，读写文件会使用UNICODE取代数据库字符集。语法如下：
UTL_FILE.FOPEN_NCHAR(
location IN VARCHAR2，
filename IN VARCHAR2，
open_mode IN VARCHAR2，
max_linesize IN BINARY_INTEGER)
RETURN file_type;
4、IS_OPEN
该函数用于确定文件是否已经被打开，语法如下：
UTL_FILE.IS_OPEN(file IN FILE_TYPE) RETURN BOOLEAN;
如上所示，file用于指定文件句柄。如果文件已经被打开，则返回TRUE，否则则返回FALSE，该函数的示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BEGIN
IF NOT UTL_FILE.is_open(HANDLE) THEN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','R',1000);
END IF;
DBMS_OUTPUT.PUT_LINE('D:\DYWT.TXT已经被打开');
END;
5、FCLOSE
该过程用于关闭已经打开的文件，语法如下：
UTL_FILE.FCLOSE(FILE IN OUT FILE_TYPE);
6、FCLOSE_ALL
该过程用于关闭当前打开的所有文件。语法如下：
UTL_FILE.FCLOSE_ALL;
7、GET_LINE
该过程用于从已经打开的文件中读取行内容，行内容会被读取到输出缓冲区。语法如下：
UTL_FILE.GET_LINE(
file IN FILE_TYPE,
buffer OUT VARCHAR2,
linesize IN NUMBER,
len IN PLS_INTEGER DEFAULT NULL
);
如上所示，buffer用于存储读取信息；linesize用于要指定读取的最大字节数；len用于指定实际读取的长度。使用该过程的示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(100);
BEGIN
IF NOT UTL_FILE.is_open(HANDLE) THEN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','R',1000);
END IF;
UTL_FILE.GET_LINE(HANDLE,BUFFER,100);
DBMS_OUTPUT.PUT_LINE(BUFFER);
UTL_FILE.fclose(HANDLE);
END;
8、GET_LINE_NCHAR
该过程的用法同上面的是一样的，只不过是用UNICODE方式读取已经打开的文件的行内容，并且将行内容读取到输出缓冲区中。
9、GET_RAW
该过程用于从文件中读取RAW字符串，并调节文件指针到读取位置。语法如下：
UTL_FILE.GET_RAW(
fid IN UTL_FILE.TYPE,
r OUT NOCOPY RAW,
len IN PLS_INTEGER DEFAULT NULL
);
上面所示：fid用于指定文件的句柄，r用于取得读取信息，示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(2000);
BEGIN
IF NOT UTL_FILE.is_open(HANDLE) THEN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','R',1000);
END IF;
UTL_FILE.GET_RAW(HANDLE,BUFFER,1000);
DBMS_OUTPUT.PUT_LINE(BUFFER);
UTL_FILE.fclose(HANDLE);
END;
10、PUT
该过程用于将缓冲区内容写入到文件中。当使用PUT过程的时候，文件必须以写方式打开，在写入缓冲区之后，如果要结束行，那么可以使用NEW_LINE过程。语法如下：
UTL_FILE.PUT(file IN FILE_TYPE,buffer IN VARCHAR2);
使用该过程的示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(2000);
BEGIN
IF NOT UTL_FILE.IS_OPEN(HANDLE) THEN
HANDLE := UTL_FILE.FOPEN('CZW','NEW.TXT','W',1000);
END IF;
BUFFER:='&CONTENT1';
UTL_FILE.PUT(HANDLE,BUFFER);
UTL_FILE.NEW_LINE(HANDLE);
BUFFER:='&CONTENT2';
UTL_FILE.PUT(HANDLE,BUFFER);
UTL_FILE.NEW_LINE(HANDLE);
UTL_FILE.FCLOSE(HANDLE);
END;
11、PUT_NCHAR
作用同上，该过程用于将缓冲区的内容以UNICODE方式写入到文件。
12、PUT_RAW
该过程用于将RAW缓冲区中的数据写入文件中。语法如下：
UTL_FILE.PUT_RAW(
fid IN UTL_FILE.FILE_TYPE,
R IN RAW,
autoflush IN BOOLEAN DEFAULT FALSE
)
上述,fid用于指定文件句柄,r用于指定存放RAW数据的缓冲区,autoflush用于指定是否自动刷新缓冲区数据.该过程的示例如下:
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(2000);
BEGIN
IF NOT UTL_FILE.IS_OPEN(HANDLE) THEN
HANDLE := UTL_FILE.FOPEN('CZW','NEW.TXT','W',1000);
END IF;
BUFFER:='&CONTENT1';
UTL_FILE.PUT_RAW(HANDLE,BUFFER);
UTL_FILE.NEW_LINE(HANDLE);
UTL_FILE.FCLOSE(HANDLE);
END;
13、NEW_LINE
该过程用于为文件增加行终止符，语法如下：
UTL_FILE.NEW_LINE(file IN FILE_TYPE,lines IN NATURAL :=1);
后面的lines用于指定在文件中增加的行终止符的个数。
14、PUT_LINE
该过程用于将文本缓冲区内容写入到文件中。当使用该过程为文件追加内容时，会自动在文件的尾部追加行终止符。
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(2000);
BEGIN
IF NOT UTL_FILE.is_open(HANDLE) THEN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','W',1000);
END IF;
BUFFER := '&CONTENT';
UTL_FILE.put_line(HANDLE,BUFFER);
UTL_FILE.fclose(HANDLE);
END;
注意：会删掉之前的数据，是在新写入的行后面增加一个行结束符。
15、PUT_LINE_NCHAR
同上，该过程用于将文本缓冲区内容以UNICODE方式写入文件。当使用该过程写入内容的时候，会自动的在尾部追加行终止符。
2012/12/31 13:50经过测试，会清空原有文件中的内容。
16、PUTF
该过程用于以特定的格式将文本内容写入到文件中，其中%s标识字符串，格式\n表示行终止符。语法如下：
UTL_FILE.PUTF(
file IN FILE_TYPE,
format IN VARCHAR2，
[arg1 IN VARCHAR2 DEFAULT NULL,
...
arg5 IN VARCHAR2 DEFAULT NULL]);
上述format用于指定格式符（最多支持5个%s），arg1...arg5用于指定对应于格式符的字符串。使用该过程的示例如下：
DECLARE
HANDLE UTL_FILE.FILE_TYPE;
BUFFER VARCHAR2(2000);
BEGIN
IF NOT UTL_FILE.is_open(HANDLE) THEN
HANDLE := UTL_FILE.fopen('CZW','DYWT.TXT','W',1000);
END IF;
UTL_FILE.PUTF(HANDLE,'%s\n%s\n%s\n','&line1','&line2','&line3');
UTL_FILE.FCLOSE(HANDLE);
END;
17、PUTF_NCHAR
同上，该过程用于以特定的格式将文本内容以UNICODE方式写入到文件中。
18、FFLUSH
该过程用于将数据强制性写入到文件中，正常情况下，当给文件写入数据的时候，数据会被暂时的放到缓存中。过程FFLUSH用于强制将数据写入到文件中。语法如下：
UTL_FILE.FFLUSH(file IN FILE_TYPE):
19、FSEEK
[3]FOR UPDATE和UPDATE NOWAIT的区别
首先一点，如果只是select 的话，Oracle是不会加任何锁的，也就是Oracle对 select 读到的数据不会有任何限制。
虽然这时候有可能另外一个进程正在修改表中的数据，并且修改的结果可能影响到你目前select语句的结果，但是因为没有锁，所以select结果为当前时刻表中记录的状态。
如果加入了for update， 则Oracle一旦发现（符合查询条件的）这批数据正在被修改，则不会发出该select语句查询，直到数据被修改结束（被commit），马上自动执行这个select语句。
同样，如果该查询语句发出后，有人需要修改这批数据（中的一条或几条），它也必须等到查询结束后（commit）后，才能修改。
for update nowait和 for update 都会对所查询到得结果集进行加锁，所不同的是，如果另外一个线程正在修改结果集中的数据，for update nowait 不会进行资源等待，只要发现结果集中有些数据被加锁，立刻返回 “ORA-00054错误，内容是资源正忙, 但指定以 NOWAIT 方式获取资源”。
PS：
for update 和 for update nowait 加上的是一个行级锁，也就是只有符合where条件的数据被加锁。如果仅仅用update语句来更改数据时，可能会因为加不上锁而没
有响应地、莫名其妙地等待，但如果在此之前，FOR UPDATE NOWAIT语句将要更改的数据试探性地加锁，就可以通过立即返回的错误提示而明白其中的道理，或许这就是FOR UPDATE和NOWAIT的意义之所在。
经过测试，以for update 或 for update nowait方式进行查询加锁，在select的结果集中，只要有任何一个记录在加锁，则整个结果集都在等待系统资源（如果是nowait，则抛出相应的异常）。
当有多个表关联查询时候，可以使用FOR UPDATE OF 子句来确定行锁定的特定表。
CURSOR c1 IS
SELECT last_name, department_name FROM employees, departments
WHERE employees.department_id = departments.department_id
AND job_id = 'SA_MAN'
FOR UPDATE OF salary;
SELECT last_name, department_name FROM employees, departments
WHERE employees.department_id = departments.department_id
AND job_id = 'SA_MAN'
FOR UPDATE OF salary;
在sqldeveloper中一个session就是一个sql window
本文链接
最新技术文章:
站内导航:
特别声明:169IT网站部分信息来自互联网,如果侵犯您的权利,请及时告知,本站将立即删除！
©2012-2021,