BlogJava-妖人学java-文章分类-oracle

理解ORACLE数据库字符集

妖人 — Sat, 25 Aug 2007 01:10:00 GMT

理解ORACLE数据库字符集

耿立宏
（中国科学院计算机网络信息中心，北京100080）

一．引言

ORACLE数据库字符集，即Oracle全球化支持(Globalization Support)，或即国家语言支持（NLS）其作用是用本国语言和格式来存储、处理和检索数据。利用全球化支持，ORACLE为用户提供自己熟悉的数据库母语环境，诸如日期格式、数字格式和存储序列等。Oracle可以支持多种语言及字符集，其中oracle8i支持48种语言、76个国家地域、229 种字符集，而oracle9i则支持57种语言、88个国家地域、235种字符集。由于oracle字符集种类多，且在存储、检索、迁移oracle数据时多个环节与字符集的设置密切相关，因此在实际的应用中，数据库开发和管理人员经常会遇到有关oracle字符集方面的问题。本文通过以下几个方面阐述，对oracle字符集做简要分析

二．字符集基本知识

2.1字符集
    实质就是按照一定的字符编码方案，对一组特定的符号，分别赋予不同数值编码的集合。Oracle数据库最早支持的编码方案是US7ASCII。
    Oracle的字符集命名遵循以下命名规则:

    即: <语言><比特位数><编码>
    比如: ZHS16GBK表示采用GBK编码格式、16位（两个字节）简体中文字符集

2.2字符编码方案
2.2.1 单字节编码
    （1）单字节7位字符集，可以定义128个字符，最常用的字符集为US7ASCII
    （2）单字节8位字符集，可以定义256个字符，适合于欧洲大部分国家
    例如：WE8ISO8859P1(西欧、8位、ISO标准8859P1编码)
2.2.2 多字节编码
    （1）变长多字节编码
    某些字符用一个字节表示，其它字符用两个或多个字符表示，变长多字节编码常用于对亚洲语言的支持，   例如日语、汉语、印地语等
    例如：AL32UTF8（其中AL代表ALL,指适用于所有语言）、zhs16cgb231280
    （2）定长多字节编码
    每一个字符都使用固定长度字节的编码方案，目前oracle唯一支持的定长多字节编码是AF16UTF16，也是仅用于国家字符集
2.2.3 unicode编码
    Unicode是一个涵盖了目前全世界使用的所有已知字符的单一编码方案，也就是说Unicode为每一个字符提供唯一的编码。UTF-16是 unicode的16位编码方式，是一种定长多字节编码，用2个字节表示一个unicode字符，AF16UTF16是UTF-16编码字符集。
    UTF-8是unicode的8位编码方式，是一种变长多字节编码，这种编码可以用1、2、3个字节表示一个unicode字符，AL32UTF8，UTF8、UTFE是UTF-8编码字符集

2.3 字符集超级
当一种字符集（字符集A）的编码数值包含所有另一种字符集（字符集B）的编码数值，并且两种字符集相同编码数值代表相同的字符时，则字符集A是字符集B的超级，或称字符集B是字符集A的子集。
Oracle8i和oracle9i官方文档资料中备有子集-超级对照表（subset-superset pairs），例如：WE8ISO8859P1是WE8MSWIN1252的子集。由于US7ASCII是最早的Oracle数据库编码格式，因此有许多字符集是US7ASCII的超集，例如WE8ISO8859P1、ZHS16CGB231280、ZHS16GBK都是US7ASCII的超集。

2.4 数据库字符集（oracle服务器端字符集）
    数据库字符集在创建数据库时指定，在创建后通常不能更改。在创建数据库时，可以指定字符集(CHARACTER SET)和国家字符集(NATIONAL CHARACTER SET)。
2.4.1字符集
    (1)用来存储CHAR, VARCHAR2, CLOB, LONG等类型数据
    (2)用来标示诸如表名、列名以及PL/SQL变量等
    (3)用来存储SQL和PL/SQL程序单元等
2.4.2国家字符集：
    (1)用以存储NCHAR, NVARCHAR2, NCLOB等类型数据
    (2)国家字符集实质上是为oracle选择的附加字符集，主要作用是为了增强oracle的字符处理能力，因为NCHAR数据类型可以提供对亚洲使用定长多字节编码的支持，而数据库字符集则不能。国家字符集在oracle9i中进行了重新定义，只能在unicode编码中的AF16UTF16和UTF8 中选择，默认值是AF16UTF16
2.4.3查询字符集参数
    可以查询以下数据字典或视图查看字符集设置情况
    nls_database_parameters、props$、v$nls_parameters
    查询结果中NLS_CHARACTERSET表示字符集，NLS_NCHAR_CHARACTERSET表示国家字符集
2.4.4修改数据库字符集
    按照上文所说，数据库字符集在创建后原则上不能更改。如果需要修改字符集，通常需要导出数据库数据，重建数据库，再导入数据库数据的方式来转换，或通过 ALTER DATABASE CHARACTER SET语句修改字符集，但创建数据库后修改字符集是有限制的，只有新的字符集是当前字符集的超集时才能修改数据库字符集，例如UTF8是US7ASCII 的超集，修改数据库字符集可使用ALTER DATABASE CHARACTER SET UTF8。

2.5 客户端字符集（NLS_LANG参数）
2.5.1客户端字符集含义
    客户端字符集定义了客户端字符数据的编码方式，任何发自或发往客户端的字符数据均使用客户端定义的字符集编码,客户端可以看作是能与数据库直接连接的各种应用，例如sqlplus,exp/imp等。客户端字符集是通过设置NLS_LANG参数来设定的。
2.5.2 NLS_LANG参数格式
    NLS_LANG=_.
    Language:显示oracle消息,校验，日期命名
    Territory：指定默认日期、数字、货币等格式
    Client character set：指定客户端将使用的字符集
    例如：NLS_LANG=AMERICAN_AMERICA.US7ASCII
    AMERICAN是语言，AMERICA是地区，US7ASCII是客户端字符集
2.5.3客户端字符集设置方法
     1)UNIX环境
         $NLS_LANG=“simplified chinese”_china.zhs16gbk
         $export NLS_LANG
         编辑oracle用户的profile文件
    2)Windows环境
         编辑注册表
         Regedit.exe---HKEY_LOCAL_MACHINE---SOFTWARE---ORACLE—HOME0
2.5.4 NLS参数查询
    Oracle提供若干NLS参数定制数据库和用户机以适应本地格式，例如有NLS_LANGUAGE,NLS_DATE_FORMAT,NLS_CALENDER等，可以通过查询以下数据字典或v$视图查看。
    NLS_DATABASE_PARAMETERS--显示数据库当前NLS参数取值，包括数据库字符集取值
    NLS_SESSION_PARAMETERS--显示由NLS_LANG 设置的参数，或经过alter session 改变后的参数值（不包括由NLS_LANG 设置的客户端字符集）
    NLS_INSTANCE_PARAMETE--显示由参数文件init.ora 定义的参数V$NLS_PARAMETERS--显示数据库当前NLS参数取值
2.5.5修改NLS参数
    使用下列方法可以修改NLS参数
    （1）修改实例启动时使用的初始化参数文件
    （2）修改环境变量NLS_LANG
    （3）使用ALTER SESSION语句，在oracle会话中修改
    （4）使用某些SQL函数
    NLS作用优先级别：Sql function>alter session>环境变量或注册表>参数文件>数据库默认参数

三．导入/导出与字符集转换

3.1 EXP/IMP
Export 和 Import 是一对读写Oracle数据的工具。Export 将 Oracle 数据库中的数据输出到操作系统文件中, Import 把这些文件中的数据读到Oracle 数据库中，由于使用exp/imp进行数据迁移时，数据从源数据库到目标数据库的过程中有四个环节涉及到字符集，如果这四个环节的字符集不一致，将会发生字符集转换。

EXP

IMP

    四个字符集是
   （1）源数据库字符集
   （2）Export过程中用户会话字符集（通过NLS_LANG设定）
   （3）Import过程中用户会话字符集（通过NLS_LANG设定）
   （4）目标数据库字符集

3.2导出的转换过程
在Export过程中，如果源数据库字符集与Export用户会话字符集不一致，会发生字符集转换，并在导出文件的头部几个字节中存储Export用户会话字符集的ID号。在这个转换过程中可能发生数据的丢失。
例: 如果源数据库使用ZHS16GBK，而Export用户会话字符集使用US7ASCII，由于ZHS16GBK是16位字符集,而US7ASCII是7位字符集，这个转换过程中，中文字符在US7ASCII中不能够找到对等的字符，所以所有中文字符都会丢失而变成“?? ”形式，这样转换后生成的Dmp文件已经发生了数据丢失。
因此如果想正确导出源数据库数据，则Export过程中用户会话字符集应等于源数据库字符集或是源数据库字符集的超集

3.3导入的转换过程
    （1）确定导出数据库字符集环境
    通过读取导出文件头，可以获得导出文件的字符集设置
    （2）确定导入session的字符集，即导入Session使用的NLS_LANG环境变量
    （3）IMP读取导出文件
    读取导出文件字符集ID，和导入进程的NLS_LANG进行比较
    （4）如果导出文件字符集和导入Session字符集相同，那么在这一步骤内就不需要转换，如果不同，就需要把数据转换为导入Session使用的字符集。可以看出，导入数据到数据库过程中发生两次字符集转换
    第一次:导入文件字符集与导入Session使用的字符集之间的转换，如果这个转换过程不能正确完成，Import向目标数据库的导入过程也就不能完成。
    第二次:导入Session字符集与数据库字符集之间的转换。
    然而,oracle8i的这种转换只能在单字节字符集之间进行,oracle8i导入Session不支持多字节字符集之间的转换，因此为了避免第一次转换，导入Session使用的NLS_LANG与导出文件字符集相同，第二次转换（通过SQL*Net）支持任何两种字符集。以上情况在Oracle9i 中略有不同

四．乱码问题

oracle在数据存储、迁移过程中经常发生字符乱码问题，归根到底是由于字符集使用不当引起。下面以使用客户端sqlplus向数据库插入数据和导入/导出（EXP/IMP）过程为例，说明乱码产生的原因。

4.1使用客户端sqlplus向数据库存储数据
    这个过程存在3个字符集设置
    （1）客户端应用字符集
    （2）客户端NLS_LANG参数设置
    （3）服务器端数据库字符集(Character Set)设置
    客户端应用sqlplus中能够显示什么样的字符取决于客户端操作系统语言环境(客户端应用字符集)，但在应用中录入这些字符后，这些字符能否在数据库中正常存储，还与另外两个字符集设置紧密相关，其中客户端NLS_LANG参数主要用于字符数据传输过程中的转换判断。常见的乱码大致有两种情形：
    （1）汉字变成问号“？”；
当从字符集A 转换成字符集B时，如果转换字符之间不存在对应关系，NLS_LANG使用替代字符“？”替代无法映射的字符
    （2）汉字变成未知字符（虽然有些是汉字，但与原字符含义不同）
转换存在对应关系，但字符集A 中的字符编码与字符集B 中的字符编码代表不同含义

4.2发生乱码原因
   乱码产生是由于几个字符集之间转换不匹配造成，分以下几种情况：
    （注：字符集之间如果不存在子集、超集对应关系时的情况不予考虑，因为这种情况下字符集之间转换必产生乱码）
    1）服务器端数据库字符集与客户端应用字符集相同，与客户端NLS_LANG参数设置不同
    如果客户端NLS_LANG字符集是其它两种字符集的子集，转换过程将出现乱码。
    解决方法：将三种字符集设置成同一字符集，或NLS_LANG字符集是其它两种字符集的超集
    2）服务器端数据库字符集与客户端NLS_LANG参数设置相同，与客户端应用字符集不同
    如果客户端应用字符集是其它两种字符集的超集时，转换过程将出现乱码，但对于单字节编码存储中文问题，可参看本文第5章节的分析
    3）客户端应用字符集、客户端NLS_LANG参数设置、服务器端数据库字符集互不相同
   此种情况较为复杂，但三种字符集之间只要有不能转换的字符，则必产生乱码

4.3导入/导出过程出现乱码原因
    这个过程存在4个字符集设置，在3.1章节中已分析
   （1）源数据库字符集
   （2）EXP过程中NLS_LANG参数
   （3）IMP过程中NLS_LANG参数
   （4）目标数据库字符集
    出现乱码原因
    1）当源数据库字符集不等于EXP过程中NLS_LANG参数，且源数据库字符集是EXP过程中NLS_LANG的子集，才能保证导出文件正确，其他情况则导出文件字符乱码
    2）EXP过程中NLS_LANG字符集不等于IMP过程中NLS_LANG字符集，且EXP过程中NLS_LANG字符集是IMP过程中NLS_LANG字符集的子级, 才能保证第一次转换正常，否则第一次转换中出现乱码。
    3）如果第一次转换正常，IMP过程中NLS_LANG字符集是目标数据库字符集的子集或相同，才能保证第二次转换正常，否则则第二次转换中出现乱码

五．单字节编码存储中文问题

    由于历史的原因，早期的oracle没有中文字符集（如oracle6、oracle7、 oracle7.1）,但有的用户从那时起就使用数据库了，并用US7ASCII字符集存储了中文，或是有的用户在创建数据库时，不考虑清楚，随意选择一个默认的字符集，如WE8ISO8859P1或US7ASCII，而这两个字符集都没有汉字编码，虽然有些时候选用这种字符集好象也能正常使用，但用这种字符集存储汉字信息从原则上说就是错误的，它会给数据库的使用与维护带来一系列的麻烦。
    正常情况下，要将汉字存入数据库，数据库字符集必须支持中文，而将数据库字符集设置为US7ASCII等单字节字符集是不合适的。US7ASCII字符集只定义了128个符号，并不支持汉字。另外，如果在SQL*PLUS中能够输入中文，操作系统缺省应该是支持中文的，但如果在NLS_LANG中的字符集设置为US7ASCII，显然也是不正确的，它没有反映客户端的实际情况。但在实际应用中汉字显示却是正确的，这主要是因为Oracle检查数据库与客户端的字符集设置是同样的，那么数据在客户与数据库之间的存取过程中将不发生任何转换，但是这实际上导致了数据库标识的字符集与实际存入的内容是不相符的。而在SELECT的过程中，Oracle同样检查发现数据库与客户端的字符集设置是相同的，所以它也将存入的内容原封不动地传送到客户端，而客户端操作系统识别出这是汉字编码所以能够正确显示。
    在这个例子中，数据库与客户端都没有设置成中文字符集，但却能正常显示中文，从应用的角度看好象没问题。然而这里面却存在着极大的隐患，比如在应用length或substr等字符串函数时，就可能得到意外的结果。
    对于早期使用US7ASCII字符集数据库的数据迁移到oracle8i/9i中（使用zhs16gbk），由于原始数据已经按照US7ASCII格式存储，对于这种情况，可以通过使用Oracle8i的导出工具，设置导出字符集为US7ASCII，导出后使用UltraEdit等工具打开dmp文件，修改第二、三字符，修改 0001 为0354,这样就可以将US7ASCII字符集的数据正确导入到ZHS16GBK的数据库中。

六．结束语

为了避免在数据库迁移过程中由于字符集不同导致的数据损失，oracle提供了字符集扫描工具（character set scanner），通过这个工具我们可以测试在数据迁移过程中由于字符集转换可能带来的问题，然后根据测试结果，确定数据迁移过程中最佳字符集解决方案。

参考文献
[1]Biju Thomas , Bob Bryla《oracle9i DBA基础I 学习指南》电子工业出版社 2002
[2]网站 http://www.itpub.net

妖人 2007-08-25 09:10 发表评论

动态建表的权限分析(上)

妖人 — Thu, 23 Aug 2007 11:19:00 GMT

摘要: 动态建表的权限分析(上) 一、引言 1、目的最近有很多人通过各种方式和途径来咨询我在使用Oracle的过程中，明明用户拥有create table的权限，却无法在pl/sql完成动态建表和索引的工作，并经常出现类似如下提示： ERROR 位于第 1 行: ORA-01031: 权限不... 阅读全文

妖人 2007-08-23 19:19 发表评论

oracle sql 学习笔记

妖人 — Thu, 23 Aug 2007 04:31:00 GMT

select * from v$version  --查看版本
-----------------------------------------------------------------------------------
create table tempppp 
(exception number(1)
)
insert into tempppp values(1)

select "EXCEPTION" from tempppp
select "exception" from tempppp   --failed
  引征区分大小写，数据字典里都为大写
select exception from tempppp
insert into tempppp values('2')

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

<>
declare 
 Orgid number(19):=-1;--变量名不要和表列名相同
 v_tmp number(19);
begin
     select count(orgid)  into v_tmp from organization where
 orgid=Orgid;
     Dbms_Output.put_line(v_tmp);
     select count(orgid)  into v_tmp from organization where
 orgid=ppp.Orgid;
end;

--------------------------------------------------------------------------
declare 
 inxx varchar(2):='N ';--都为定长采用填充空格式
 --inxx varchar(2):='N ';--有一个为变长采用非填充空格式
 v_tmp number(19);
begin
     select count(1)  into v_tmp from dcperioddetail where inuse=inxx;
     Dbms_Output.put_line(v_tmp);
     
end;


----------------------------------------------------------------------------
--伪列
select productseq.nextval from dual
select productseq.currval from dual
  --只有发出至少一条nextval才能在会话中访问curval

select rowid from product
select rowidtochar(rowid) from product

select prodid from product where rownum<3


SELECT contactid ,level
FROM contact 
--where contactid=100000020
START WITH contactid = (
select b.contactid 
from usr b 
where b.userid=1) 
CONNECT BY parentcontactid = PRIOR contactid

------------------------------------------------------------------------------------
--常用函数
select upper(prodcode) from product where prodcode like 'qs040089'
--substr
select substr('qs040089',0) from dual
select substr('qs040089',1) from dual
select substr('qs040089',2) from dual
select substr('qs040089',-3) from dual
select substr('qs040089',1,1.5) from dual

--instr
select instr('qs040089','04') from dual
select instr('qs040089','04',4) from dual
select instr('qs040089','04',-1) from dual
--length
select length('qs040089') from dual

--decode
select decode(prodcode,'qs040089',1,2) from product where prodcode like
 'qs040089'

--trunc
select trunc(datelastupdated),datelastupdated from product where
 prodcode like 'qs040089'

--round  
select round(datelastupdated),datelastupdated from product where
 prodcode like 'qs040089'

--to_char
select to_char(sysdate,'DD-MM-YY HH24:MI:SS') from dual

--to_date
declare 
        v_CurrentDate DATE;
begin
     
     v_CurrentDate :=to_date('11 07, 1973','MM DD, YYYY');
     Dbms_Output.put_line(v_CurrentDate);
end;

--nullif
select nullif(1,12) from dual
select nullif(12,1) from dual
select nullif(12,12) from dual

--nvl
select nvl(2,1) from dual
select nvl(null,1) from dual

select user from dual
select USERENV('TERMINAL'),USERENV('LANGUAGE') from dual


--CURSOR
 游标----------------------------------------------------------------



--sql
 游标------------------------------------------------------------------
begin 
      update product
      set prodcode='8800000000000'
      where prodcode='qs04008911111';
      
      if SQL%NOTFOUND THEN
         DBMS_OUTPUT.put_line(11111);
      end if;
end;

begin 
      update product
      set prodcode='8800000000000'
      where prodcode='qs04008911111';
      
      if SQL%ROWCOUNT=0 THEN
         DBMS_OUTPUT.put_line(11111);
      end if;
end;
 
DECLARE 
        v_tmp product%rowtype;
begin 
      select *  into v_tmp from product where prodid=-1;
      --SELECT INTO 未找到会报错！
      if SQL%notfound THEN
         DBMS_OUTPUT.put_line(222222);
      end if;
      exception
        when NO_DATA_FOUND then
               DBMS_OUTPUT.put_line(3333333);
end;




-- for update
select * from productlang a for update of productlangid 

select * from productlang a for update 
select * from productlang a for update nowait
select * from productlang a for update wait 10


declare 
  cursor c_allproduct is 
         select * from product 
         for update;--for update不能在循环中使用commit
  v_oneprd c_allproduct%rowtype;
begin
  open c_allproduct;
  fetch c_allproduct into v_oneprd;
  commit;--for update不能在循环中使用commit
  fetch c_allproduct into v_oneprd;
end;


declare 
  cursor c_allproduct is 
         select * from product ;
         
  v_oneprd c_allproduct%rowtype;
begin
  open c_allproduct;
   
  loop
  fetch c_allproduct into v_oneprd;
  exit when c_allproduct%notfound;
  commit;
  
 
  end loop;
  close c_allproduct;
  --close c_allproduct;-- INVALID_CURSOR
end;


declare 
  type t_ddd is ref cursor return product%rowtype;
  v_CursorVar t_ddd;
begin
     open v_CursorVar for select * from
 organization;--类型与游标变量返回类型不同
     close v_CursorVar;
end;


--错误处理--------------------------------------------------------------------------
declare v_NumStudents number;
begin
     select count(1) 
     into v_NumStudents
     from sstudents;--编译错误
end;



declare 
  x number:=1;
  y number:=2;
  z number:=3;
begin
     y:=x/0;--运行时异常
exception
 when others then 
   dbms_output.put_line(sqlcode||sqlerrm);
end;


declare
  type t_NumberTableType is table of number
    index by binary_integer;
  v_NumberTable t_NumberTableType;
  v_temp number;
begin
  v_temp:=v_NumberTable(1);--NO_DATA_FOUND
end;   

DECLARE 
  v_TempVar varchar2(2);
begin
  v_TempVar:='111';--NUMERIC OR VALUE ERROR
end;


declare 
 e_TooManyStudents exception;--自定义异常
 v_currentStudents number(4);
 v_Max number(4);
begin
  
    select 10,count(1)  into v_Max,v_currentStudents   from product ;
    if v_Max     raise e_TooManyStudents;
    end if; 
    exception 
      when e_TooManyStudents then
          dbms_output.put_line(sqlcode||' '||sqlerrm);
  
end;

--7.1.3
declare 
v_xxx varchar2(200);
begin
v_xxx :=sqlerrm(1);
  dbms_output.put_line('sqlerrm: '''||sqlerrm||'''');
   dbms_output.put_line('sqlerrm(0): '''||sqlerrm(0)||'''');
   dbms_output.put_line('sqlerrm(100): '''||sqlerrm(100)||'''');
   dbms_output.put_line('sqlerrm(-1): '''||sqlerrm(-1)||'''');
   dbms_output.put_line('sqlerrm(-54): '''||sqlerrm(-54)||'''');
   dbms_output.put_line('sqlerrm(10): '''||sqlerrm(10)||'''');
end;

--7.1.4
declare 
 e_missingNull exception;
 pragma exception_init(e_missingNull,-1400); --编译指示
begin
  insert into dictionary(dictionaryid) values(null);
exception
 when e_missingNull then
  dbms_output.put_line(sqlcode||' '||sqlerrm);--不显示"user-defined
 exception"
end;


--7.1.5

declare 
 e_TooManyStudents exception;--自定义异常
 v_currentStudents number(4);
 v_Max number(4);
begin
  
    select 10,count(1)  into v_Max,v_currentStudents   from product ;
    if v_Max     --raise e_TooManyStudents;
     raise_application_error(-20001,'long long ago there was an
 idiot!');
    end if; 
    exception 
      when others then
          dbms_output.put_line(sqlcode||' '||sqlerrm);
          --delete jjl;
          --commit;
          --raise;
  
end;

begin
     declare 
             e_TooManyStudents exception;--自定义异常
     begin
          raise e_TooManyStudents;
     end;
exception 
 when e_TooManyStudents then --自定义异常超出作用域
   raise;
end;


declare 
 v_Tmp number(6):='ABC';--声明中的错误直接传到最外层
begin
  null;--begin后面一定要有东西
  exception
   when others then
     dbms_output.put_line(sqlcode||' '||sqlerrm);
end;


begin
  declare 
          v_Tmp number(6):='ABC';--声明中的错误直接传到最外层
  begin
       null;--begin后面一定要有东西
        exception
                 when others then
                 dbms_output.put_line('2222');
  end;
  exception
   when others then
     dbms_output.put_line(sqlcode||' '||sqlerrm);
end;





--集合--------------------------------------------------------------------------------
declare 
 type NumberTab is table of number index by binary_integer;
 v_Numbers NumberTab;
begin
 for v_Count in 1..10 loop
     v_Numbers(v_Count):=v_Count;
 end loop;
 
 for v_Count in 1..10 loop
      dbms_output.put_line('number['||to_char(v_count)||']='||'
 '||v_Numbers(v_Count));
 end loop;
 
 dbms_output.put_line('number['||to_char(11)||']='||'
 '||v_Numbers(11));
 
 exception 
  when no_data_found then
    dbms_output.put_line(sqlcode||' '||sqlerrm);
end;




declare 
 type ProdTab is table of product%rowtype index by binary_integer;
 v_Prods ProdTab;
begin
 if v_Prods is null then
  dbms_output.put_line('v_Prods is null');
 end if;
 select * 
 into v_Prods(2000001160)
 from product
 where prodid=2000001160; 
 
 dbms_output.put_line('the code of prod['||to_char(2000001160)||']='||'
 '||v_Prods(2000001160).prodcode);
 
 exception 
  when no_data_found then
    dbms_output.put_line(sqlcode||' '||sqlerrm);
end;

--嵌套表构造器初始化
declare 
 type NumberTab is table of number;
 v_Tab1 NumberTab:=NumberTab();
 v_Tab2 NumberTab:=NumberTab(2);
 v_Tab3 NumberTab;
begin
   if v_Tab1 is null then
     dbms_output.put_line('v_Tab1 is Null');
   else 
      dbms_output.put_line('v_Tab1 is not Null');
   end if;
   --v_Tab1(1):=1;--wrong 元素不存在  subscript beyond count
   if v_Tab2 is null then
     dbms_output.put_line('v_Tab2 is Null');
   else 
      dbms_output.put_line('v_Tab2 is not Null ' || v_Tab2(1));
   end if;
   
   if v_Tab3 is null then
     dbms_output.put_line('v_Tab3 is Null');
   else 
      dbms_output.put_line('v_Tab3 is not Null');
   end if;
end;



declare 
  type Numbers is array(20) of number(3);--可变数组
  
  v_NullList Numbers;
  v_List1 Numbers:=Numbers(1,2);--数组大小由构造器决定
  v_List2 Numbers:=Numbers(null);
begin
  if v_NullList is null then
    dbms_output.put_line('v_NullList is Null');
  end if;
  
  if v_List1(1) is null then
    dbms_output.put_line('v_List1(1) is Null');
  end if;
  
  if v_List2(1) is null then
    dbms_output.put_line('v_List2(1) is Null');
  end if;
  
  --v_List1(3):=1;--  subscript beyond count 数组大小由构造器决定
  v_List1.extend;
  v_List1(3):=1;
  
end;
  
  
  
  --多层集合
declare
  type t_Numbers is table of number index by binary_integer;
  type t_MultiNumbers is table of t_Numbers index by binary_integer;
  
  type t_MultiArray is varray(10) of t_Numbers;
  type t_MultiNested is table of t_Numbers;
  
  v_MultiNumbers t_MultiNumbers;
begin
  v_MultiNumbers(1)(1):=1;
end;



-- 过程，函数，包
create or replace procedure ModeTest(p_InParam in number,p_OutParam out
 number
                  ,p_InOutParam in out number)is
v_localVariable number :=0;
begin
     dbms_output.put_line('Inside ModeTest');
     if(p_InParam is null) then
       dbms_output.put_line('p_InParam is null');
     else
       dbms_output.put_line('p_InParam is '||p_InParam);
     end if;
     
     if(p_OutParam is null) then
       dbms_output.put_line('p_OutParam is null');
     else
       dbms_output.put_line('p_OutParam is '||p_OutParam);
     end if;
     
     if(p_InOutParam is null) then
       dbms_output.put_line('p_InOutParam is null');
     else
       dbms_output.put_line('p_InOutParam is '||p_InOutParam);
     end if;
     
     v_localVariable := p_InParam; --legal
     --p_InParam:=7;--illegal
     p_OutParam:=7;
     v_localVariable:=p_OutParam;--possibly illegal,illegal prior to
 7.3.4
     v_localVariable:=p_InOutParam;
     p_InOutParam:=8;
     
     dbms_output.put_line('at the end of ModeTest');
     if(p_InParam is null) then
       dbms_output.put_line('p_InParam is null');
     else
       dbms_output.put_line('p_InParam is '||p_InParam);
     end if;
     
     if(p_OutParam is null) then
       dbms_output.put_line('p_OutParam is null');
     else
       dbms_output.put_line('p_OutParam is '||p_OutParam);
     end if;
     
     if(p_InOutParam is null) then
       dbms_output.put_line('p_InOutParam is null');
     else
       dbms_output.put_line('p_InOutParam is '||p_InOutParam);
     end if;
     
end ModeTest;

declare 
  v_a number :=1;
  v_b number :=2;
begin
 ModeTest(1,v_a,v_b);
end;

drop procedure ModeTest;

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

create or replace procedure ParamLength(p_param1 in out varchar2,
                          p_param2 in out number)is
begin
  p_param1:='abcdefghijklmno';
  p_param2:=12.3;
end;

declare 
  v_a varchar(40);
 --v_a varchar(10);--形参约束从实际参数获得
 v_b number(7,3);
begin
 ParamLength(v_a,v_b);
end;
 
drop procedure ParamLength;
-------------------------

create or replace procedure RaiseError(
       p_Raise in boolean,
       p_ParamA out number)as
begin
     p_ParamA:=7;
     
     if p_Raise then
        raise dup_val_on_index;--当存储过程发生错误时,out
 inout形式参数值不会返回给实际参数
     else
      return;
     end if;
end RaiseError;


create or replace procedure RaiseError(
       p_Raise in boolean,
       p_ParamA out nocopy number)as--传引用,即使报错,值也会被修改
begin
     p_ParamA:=7;
     
     if p_Raise then
        raise dup_val_on_index;
     else
      return;
     end if;
end RaiseError;


declare v_tmp number:=1;
--declare v_tmp number(2):=1;--实际参数受精度可读或not
 null约束，nocopy无效
begin
  dbms_output.put_line('initial value: '||v_tmp);
  raiseError(false,v_tmp);
  dbms_output.put_line('after false: '||v_tmp);
  v_tmp:=2;
  dbms_output.put_line('before true: '||v_tmp);
  raiseError(true,v_tmp);
  
exception 
  when others then
    dbms_output.put_line('after unsuccessful: '||v_tmp);
end;

drop procedure RaiseError;

------------------------------
create or replace procedure DefaultTest(
  p_ParameterA number default 10,
  p_ParameterB varchar2 default 'abcdef',
  p_ParameterC date default sysdate)as
begin
  dbms_output.put_line(
    'A: '|| p_ParameterA||
    ' B: '||p_ParameterB||
    'C:'||to_char(p_ParameterC,'DD-MON-YYYY')
    );
end;

begin
  DefaultTest(p_ParameterA=>7,p_ParameterC =>
 to_date('30-11-2005','DD-MM-YYYY'));
end;--命名符

begin
  DefaultTest(7);--定位符
end;




--9.1.3 call语句
call DefaultTest(10);
call DefaultTest();

begin
 --call DefaultTest();
 execute immediate 'call DefaultTest()';
end;



drop procedure DefaultTest;


------------------------------------
create or replace function CallFunc(p1 in varchar2)
  return varchar2 as
begin
  dbms_output.put_line('callfunc called with '||p1);
  return p1;
end;


declare 
 v_Result varchar2(50);
begin
  execute immediate 
    'call CallFunc(''hello from pl/sql'')into :v_Result '
    using out v_Result;
end;

drop function CallFunc;


---------------------------------------
create or replace package packA as
  procedure xxxx1(p_var1 in number);
end packA;
create or replace package body packA as
  procedure xxxx2(p_var1 in number) is
  begin
    dbms_output.put_line('xxxx2 '||p_var1);
  end;--xxxx2必须在xxxx1之前，xxxx1才能调用到xxxx2
  
  procedure xxxx1(p_var1 in number) is
  begin
    dbms_output.put_line('xxxx1 '||p_var1);
    dbms_output.put_line('xxxx1 call xxxx2');
    xxxx2(2);
  end;
  
end packA;



begin
packA.xxxx1(1);
--packA.xxxx2(1);--not visible from outside 
end;

drop package packA;



-------------------------------------------------------------------
--chapter 10
--10.1.1
create or replace procedure Simple as 
 v_Counter number;
begin
 v_Counter:=7;
end Simple;

select *
from user_objects
where object_name='SIMPLE'--存储在数据字典中的都是大写

select * 
from user_source--源代码
where name='SIMPLE' order by line


create or replace procedure Simple as 
 v_Counter number;
begin
 v_Counter:=7--;
end Simple;


select * 
from user_errors 
where name='SIMPLE'

begin
  Simple;
end;
drop procedure Simple;

--------------------------------
--10.1.2
create or replace procedure Simple as 
 
 v_Counter number;
 
 function formatName(p_FirstName in varchar2,p_LastName in
 varchar2)--只能放在声明最后
   return varchar2 is
 begin
   dbms_output.put_line(p_FirstName||' '||p_LastName);
 end formatName;
begin
 v_Counter:=7;
end Simple;


create or replace procedure Simple2 as
  procedure BBB;--预先声明
  procedure AAA is 
  begin
    BBB;
  end AAA;
  
  procedure BBB is 
  begin
    AAA;
  end BBB;
  
begin
  null;
end Simple2;





------------------------------------------------------------------------------------------
begin
dbms_shared_pool.sizes(1);
end;



-------------------------------------------------------------------------------------------
--charter 12
--绑定变量
declare
 v_Type dictionary.type%type;
 v_Name dictionary.valuename%type;
 v_Sql varchar(200);
begin
 v_Type:='Status';
 v_Sql := 'select valuename  from dictionary where rownum=1 and
 type=:type and languagecode=''cn''';
 execute immediate  v_Sql into v_Name using v_Type;
 dbms_output.put_line(v_Name);
 
 
 
end;



--集体绑定
declare 
  type t_Table is table of varchar(20) index by binary_integer;
  v_Table t_Table;
begin
  for v_Count in 1..100 loop
    v_Table(v_Count):=to_char(v_Count);
  end loop;
  
  forall v_Count in 1..100
    insert into jjl values(v_Table(v_Count));
  dbms_output.put_line(sql%rowcount);
  commit;
  forall v_Count in 1..100
    delete jjl where a1=(v_Table(v_Count));
  dbms_output.put_line(sql%rowcount);
  commit;
end;

select * from jjl

--bulk collect

declare
  type t_Table is table of jjl.a1%type index by binary_integer;
  v_Table t_Table;
  v_var jjl.a1%type;
begin
  select a1 
    bulk collect into v_Table
    from jjl;
  --for v_count in 1..v_Table.count loop
  dbms_output.put_line(v_Table.count);
 -- end loop;
  
  for v_count in 1..6 loop
   dbms_output.put_line(substr(v_Table(v_count)));
  end loop;
end;












declare 
v_xxx number(10):=1;
begin
 dbms_output.put_line('v_xxx is '||v_xxx);
 v_xxx:=null;
 dbms_output.put_line('v_xxx is '||to_char(v_xxx));
end;



declare
 type t_cur is ref cursor;
 v_cur t_cur;
 v_usr usr%rowtype;
 v_sql varchar2(100):='select userid,username from usr';
 v_userid usr.userid%type;
 v_username usr.username%type;
 --'select userid,username from usr' 报错数量不一致
begin
  open v_cur for v_sql;
  loop
    fetch v_cur into v_userid,v_username;
    exit when v_cur%notfound;
    dbms_output.put_line(to_char(v_userid));
  end loop;
  close v_cur;
  
end;


select instr('aaa','b') from dual
declare
  v_str varchar2(1000):='aaa,bbb,ccc,ddd,eee,fff';
  v_tmpstr varchar2(1000);
  v_dest varchar2(1000);
begin
  v_str := ''''||v_str||'''';
  v_str := replace(v_str,',',''',''');
  dbms_output.put_line(v_str);
end;



create or replace function xjp3addquote(p_str in varchar2) return
 varchar2 as
  v_desc varchar2(2000);
begin
  v_desc := ''''||p_str||'''';
  v_desc := replace(v_desc,',',''',''');
  return v_desc;
end;


declare
 v_aa number(3):=2;
 v_bb number(3):=0;
 v_cc number(4,2); 
begin
  v_cc := v_aa/v_bb;

  --dbms_output.put_line(substr(sqlerrm,1,128));
end;

妖人 2007-08-23 12:31 发表评论

临时表temporary table

妖人 — Thu, 23 Aug 2007 04:15:00 GMT

临时表temporary table

===========================================================

作者: xsb(http://xsb.itpub.net)
发表于:2005.08.19 09:22
分类: Oracle
出处：http://xsb.itpub.net/post/419/38485
---------------------------------------------------------------

a
8i以上版本。
Oracle 的临时表与MSSQL的不同，临时表需要先创建，不建议在运行时使用DDL语句创建！
临时表可以看作是一张普通的物理表，在其上可以建索引、建视图，建触发器等！但它的数据是会话隔离的。
区别之处:
l 向表中插入数据只在会话或事务期间存在
l 表中的数据只对插入数据的会话是可见的
l 可用ON COMMIT指导定数据是会话专用还是事务专用
临时表的限定:
l 临时表不能被分区
l 不能指定约束
l 不包括含嵌套表的列或VARRAY类型
l 不能指定TABLESPACE, STORAGE_CLAUSE, LONGGING, NOLOGGING, MONITORING, LOB_INDEX_CLAUSE等
l 不能指定SEGMENT_ATTRIBUTES_CLAUSE,NESTED_TABLE_COL_PROPERTIES或PARALLEL_CLAUSE
l 分布事务不支持临时表

临时表的创建：
create global temporary tablename(column list)
on commit preserve rows; --提交保留数据会话临时表
on commit delete rows; --提交删除数据事务临时表
临时表是相对于会话的，别的会话看不到该会话的数据。
oracle的临时表和sql server不一样，在使用完成以后，oracle临时表中的纪录可以被定义为自动删除（分session方式和transaction方式），而表结构不会被自动删除；sql server中的临时表在使用后会被完全删除。
所以，如果是常用的临时表，你不妨一开始就建好表。
在使用的时候，不同对话之间的纪录互相不干扰，所以不会给使用带来任何问题。

对偶尔使用的临时表，也可以在过程中用动态SQL来建立（但不建议，DDL语句有较大的开销！）：
CREATE OR REPLACE PROCEDURE myProc(...) AUTHID current_user IS
...
BEGIN
EXECUTE IMMEDIATE 'CREATE GLOBAL TEMPORARY ....';
...
END;
建议：
不得已的情况下（比较复杂的数据处理）才使用临时表，否则尽可能使用子查询代替或使用游标。

妖人 2007-08-23 12:15 发表评论

oracle临时表

妖人 — Thu, 23 Aug 2007 03:53:00 GMT

oracle临时表

在Oracle8i或以上版本中，可以创建以下两种临时表：
1。会话特有的临时表
    CREATE GLOBAL TEMPORARY ()
    ON COMMIT PRESERVE ROWS；

2。事务特有的临时表
    CREATE GLOBAL TEMPORARY ()
    ON COMMIT DELETE ROWS；
   CREATE GLOBAL TEMPORARY TABLE MyTempTable
所建的临时表虽然是存在的，但是你试一下insert 一条记录然后用别的连接登上去select，记录是空的，明白了吧，我把下面两句话再贴一下：
--ON COMMIT DELETE ROWS 说明临时表是事务指定，每次提交后ORACLE将截断表（删除全部行）
--ON COMMIT PRESERVE ROWS 说明临时表是会话指定，当中断会话时ORACLE将截断表。
冲突的问题更本不用考虑.

临时表只是保存当前会话(session)用到的数据，数据只在事务或会话期间存在。

通过CREATE GLOBAL TEMPORARY TABLE命令创建一个临时表，对于事务类型的临时表，
数据只是在事务期间存在，对于会话类型的临时表，数据在会话期间存在。

会话的数据对于当前会话私有。每个会话只能看到并修改自己的数据。DML锁不会加到
临时表的数据上。下面的语句控制行的存在性。

● ON COMMIT DELETE ROWS 表名行只是在事务期间可见
● ON COMMIT PRESERVE ROWS 表名行在整个会话期间可见

可以对临时表创建索引，视图，出发器，可以用export和import工具导入导出表的
定义，但是不能导出数据。表的定义对所有的会话可见。

Temporary Tables临时表
1简介
   ORACLE数据库除了可以保存永久表外，还可以建立临时表temporary tables。这些临时表用来保存一个会话SESSION的数据，
   或者保存在一个事务中需要的数据。当会话退出或者用户提交commit和回滚rollback事务的时候，临时表的数据自动清空，
   但是临时表的结构以及元数据还存储在用户的数据字典中。
   临时表只在oracle8i以及以上产品中支持。
2详细介绍
   Oracle临时表分为会话级临时表和事务级临时表。
会话级临时表是指临时表中的数据只在会话生命周期之中存在，当用户退出会话结束的时候，Oracle自动清除临时表中数据。
事务级临时表是指临时表中的数据只在事务生命周期中存在。当一个事务结束（commit or rollback），Oracle自动清除临时表中数据。
临时表中的数据只对当前Session有效，每个Session都有自己的临时数据，并且不能访问其它Session的临时表中的数据。因此，
临时表不需要DML锁.当一个会话结束(用户正常退出用户不正常退出 ORACLE实例崩溃)或者一个事务结束的时候，Oracle对这个会话的
表执行 TRUNCATE 语句清空临时表数据.但不会清空其它会话临时表中的数据.
你可以索引临时表和在临时表基础上建立视图.同样,建立在临时表上的索引也是临时的,也是只对当前会话或者事务有效.
临时表可以拥有触发器.
3建立临时表
   临时表的定义对所有会话SESSION都是可见的,但是表中的数据只对当前的会话或者事务有效.
   建立方法:
1) ON COMMIT DELETE ROWS 定义了建立事务级临时表的方法.
CREATE GLOBAL TEMPORARY TABLE admin_work_area
        (startdate DATE,
         enddate DATE,
         class CHAR(20))
      ON COMMIT DELETE ROWS;
EXAMPLE:
SQL> CREATE GLOBAL TEMPORARY TABLE admin_work_area
  2          (startdate DATE,
  3           enddate DATE,
  4           class CHAR(20))
  5        ON COMMIT DELETE ROWS;
SQL> create table permernate( a number);
SQL> insert into admin_work_area values(sysdate,sysdate,'temperary table');
SQL> insert into permernate values(1);
SQL> commit;
SQL> select * from admin_work_area;
SQL> select  * from permernate;
A
1
2)ON COMMIT PRESERVE ROWS 定义了创建会话级临时表的方法.
CREATE GLOBAL TEMPORARY TABLE admin_work_area
        (startdate DATE,
         enddate DATE,
         class CHAR(20))
     ON COMMIT PRESERVE ROWS;
EXAMPLE:

会话1:
SQL> drop table admin_work_area;
SQL> CREATE GLOBAL TEMPORARY TABLE admin_work_area
  2          (startdate DATE,
  3           enddate DATE,
  4           class CHAR(20))
  5       ON COMMIT PRESERVE ROWS;
SQL> insert into permernate values(2);
SQL> insert into admin_work_area values(sysdate,sysdate,'session temperary');
SQL> commit;
SQL> select * from permernate;

         A
----------
         1
         2

SQL> select * from admin_work_area;

STARTDATE  ENDDATE    CLASS
---------- ---------- --------------------
17-1?? -03 17-1?? -03 session temperary

会话2:

SQL> select * from permernate;

         A
----------
         1
         2

SQL> select * from admin_work_area;

未选择行.

会话2看不见会话1中临时表的数据.

妖人 2007-08-23 11:53 发表评论