一、PL/SQL 的数据类型和用法
PL/SQL可以使用变量和常量。变量赋值用两种方式：一种是 := 还有一种是 select .. into [变量]，变量声明语法：
变量名 [constraint] 数据类型 [NOT NULL] [ ：= | DEFAULT 表达式]
创建表，初始化表
drop table salary_tbl;
create table salary_tbl(
employer_nm varchar(20),
department varchar(20) not null,
salary number not null,
leader_nm varchar(20)
);
truncate table salary_tbl;
declare
totalnum number := 130000;
begin
for i in 1..totalnum
loop
insert into salary_tbl values('雇佣者'||i,'部门'||Mod（i,50）,100+sqrt(i),'雇佣者'||Mod（i,20）);
if Mod(i,1000)=0 then
commit;
end if;
end loop;
end;
/
commit;
当过程写错时，可以show error 来看编译错误信息
PL/SQL支持的内置数据类型有三种：标量类型、LOB类型、属性类型；
标量类型 包含了:日期时间、数字、字符、布尔型。
日期类型包括了：DATE类型、TIMESTEMP类型
数字类型包括了BINARY_INTEGER类型(表示一个有符号整数，表示的范围为-2的31次方到2的31次方)，此类型中的子类型有：SIGNTYPE(正负符号，只能取-1,,0,1)、POSITIVEN(非空正整数)，POSITIVE(正整数)、NATURALLN(非空自然数)、NATURAL(自然数)；数字类型包括了NUMBER类型，子类型包括了 DECIMAL(精确的小数,可存储 38 个数字)，FLOAT(单精度浮点型采用四舍五入的方法近似)、INTEGER(可以简写为INT,和NUMBER(38)相同)、REAL(实数，双精度浮点型采用四舍五入的方法近似);数字类型包括了PLS_INTERGER类型，(有符号的整数，适用于复杂的运算)。SIMPLE_INTEGER 是11g的新的数据类型(直接作用于硬件的数据类型，大大提高性能可存值 -2^31 ~2^31-1)
字符类型包括了char类型、varchar2、long(最多2GB的字符数据)类型、raw(最多4KB二进制数据)、long raw(最多2GB的二进制数据) 类型。
布尔类型 boolean
LOB类型 包含了:BFILE、BLOB、CLOB、NCLOB类型，用于存储大文本、图像、视频、声音可存储4GB
BLOB：存储二进制对象;CLOB存储大型字符数据；NCLOB，存储UNICODE字符数据；BFILE 存储二进制对象在操作系统文件中，数据库只存放 BFILE文件的指针。LOB类型无法通过select 语句完整的读取数据。需要通过PL/SQL才能实现
属性类型 包含了:%TYPE 表某一列的字段类型, %ROWTYPE表某一行的数据类型。
二、Oracle11g 中队LOB类型进行操作的方法,即
create table file_lobtest(
filePath varchar2(50),
clob_content clob ,
blob_content blob ,
bfile_content bfile
);
truncate table file_lobtest;
declare
content_test clob := '我与父亲不相见已二年余了，我最不能忘记的是他的背影。那年冬天，祖母死了，父亲的差使也交卸了，正是祸不单行的日子，我从北京到徐州，打算跟着父亲奔丧回家。到徐州见着父亲，看见满院狼藉的东西，又想起祖母，不禁簌簌地流下眼泪。父亲说，“事已如此，不必难过，好在天无绝人之路！”
回家变卖典质，父亲还了亏空；又借钱办了丧事。这些日子，家中光景很是惨淡，一半为了丧事，一半为了父亲赋闲。丧事完毕，父亲要到南京谋事，我也要回北京念书，我们便同行。
到南京时，有朋友约去游逛，勾留了一日；第二日上午便须渡江到浦口，下午上车北去。父亲因为事忙，本已说定不送我，叫旅馆里一个熟识的茶房陪我同去。他再三嘱咐茶房，甚是仔细。但他终于不放心，怕茶房不妥帖；颇踌躇了一会。其实我那年已二十岁，北京已来往过两三次，是没有甚么要紧的了。他踌躇了一会，终于决定还是自己送我去。我两三回劝他不必去；他只说，“不要紧，他们去不好！”
我们过了江，进了车站。我买票，他忙着照看行李。行李太多了，得向脚伕行些小费，才可过去。他便又忙着和他们讲价钱。我那时真是聪明过分，总觉他说话不大漂亮，非自己插嘴不可。但他终于讲定了价钱；就送我上车。他给我拣定了靠车门的一张椅子；我将他给我做的紫毛大衣铺好坐位。他嘱我路上小心，夜里警醒些，不要受凉。又嘱托茶房好好照应我。我心里暗笑他的迂；他们只认得钱，托他们直是白托！而且我这样大年纪的人，难道还不能料理自己么？唉，我现在想想，那时真是太聪明了！
我说道，“爸爸，你走吧。”他望车外看了看，说，“我买几个橘子去。你就在此地，不要走动。”我看那边月台的栅栏外有几个卖东西的等着顾客。走到那边月台，须穿过铁道，须跳下去又爬上去。父亲是一个胖子，走过去自然要费事些。我本来要去的，他不肯，只好让他去。我看见他戴着黑布小帽，穿着黑布大马褂，深青布棉袍，蹒跚地走到铁道边，慢慢探身下去，尚不大难。可是他穿过铁道，要爬上那边月台，就不容易了。他用两手攀着上面，两脚再向上缩；他肥胖的身子向左微倾，显出努力的样子。这时我看见他的背影，我的泪很快地流下来了。我赶紧拭干了泪，怕他看见，也怕别人看见。我再向外看时，他已抱了朱红的橘子望回走了。过铁道时，他先将橘子散放在地上，自己慢慢爬下，再抱起橘子走。到这边时，我赶紧去搀他。他和我走到车上，将橘子一股脑儿放在我的皮大衣上。于是扑扑衣上的泥土，心里很轻松似的，过一会说，“我走了；到那边来信！”我望着他走出去。他走了几步，回过头看见我，说，“进去吧，里边没人。”等他的背影混入来来往往的人里，再找不着了，我便进来坐下，我的眼泪又来了。
近几年来，父亲和我都是东奔西走，家中光景是一日不如一日。他少年出外谋生，独力支持，做了许多大事。那知老境却如此颓唐！他触目伤怀，自然情不能自已。情郁于中，自然要发之于外；家庭琐屑便往往触他之怒。他待我渐渐不同往日。但最近两年的不见，他终于忘却我的不好，只是惦记着我，惦记着我的儿子。我北来后，他写了一信给我，信中说道，“我身体平安，惟膀子疼痛利害，举箸提笔，诸多不便，大约大去之期不远矣。”我读到此处，在晶莹的泪光中，又看见那肥胖的，青布棉袍，黑布马褂的背影。唉！我不知何时再能与他相见！';
begin
insert into file_lobtest values('F:\\sqllobtest',content_test,null,null);
end;
/
commit;
select * from file_lobtest 查看结果如下
可以看见，除了在PL/SQL develop点击"..."查看。select 是不能看到完整内容的。查询完整的CLOB需要用过程或者函数来实现。
在SQL命令窗口或者SQLPLUS下
select to_char(Clob_content) from file_lobtest; 或者
set serveroutput on;
declare
clob_var clob;
amount INTEGER :=5000;
offset INTEGER :=1;
output_var varchar2(5000);
begin
select clob_content into clob_var from file_lobtest where filepath='F:\c.txt';
dbms_lob.read(clob_var,amount,offset,output_var);
dbms_output.put_line(output_var );
--不用缓存时直接 dbms_output.put_line(clob_var );
end;
/
就能看见全部值了,如果缓存区太小就增加些
插入BFILE 和BLOB需要用到存储过程来插入，示例如下
create or replace procedure insertBlob(ifilepath in varchar2,ifilename in varchar2 )
authid current_user is
img_file bfile;
img_blob blob;
lob_length number;
sqlcommand varchar2(500);
isexit number;
begin
----动态SQL,需要相应权限 create table read,write on directory等 ---
--设置虚拟路径
sqlcommand :='create or replace directory PHOTOPATH as ''' ||ifilepath ||'''' ;
execute immediate sqlcommand;
--获取bfile文件
img_file := bfilename('PHOTOPATH',ifilename);
--打开文件
dbms_lob.open(img_file);
--获取文件长度
lob_length := dbms_lob.getlength(img_file);
--判断文件是否存在,先把blob设成empty_blob()
select count(1) into isexit from file_lobtest t1 where t1.filepath = ifilepath;
if isexit = 0 then
insert into file_lobtest values(ifilepath,null,empty_blob(),img_file);
else
update file_lobtest t1 set bfile_content=img_file,blob_content=empty_blob() where t1.filepath = ifilepath;
end if ;
--然后赋值blob变量
select blob_content into img_blob from file_lobtest t1 where t1.filepath = ifilepath;
--加载blob
dbms_lob.loadfromfile(img_blob,img_file,lob_length);
--关闭文件
dbms_lob.close(img_file);
commit;
end;
编译完后，在本地文件路径上放个照片
调用存储过程
begin
insertBlob ('F:\\sqllobtest','aaa.jpg');
end;
/
查看得到
