[入门书籍]

首先看一些oracle基础方面的书,比如oracle管理基础等,然后学习一些oracle中sql,pl/sql等的语法知识,oracle数据库的高级开发方面的书和资料.同时要多练习,多想,多看. 推荐书:

《完全接触 Oracle》
Oracle PL_SQL高级程序设计
Oracle 数据库管理员技术指南
Oracle8i Designing and Tuning for Performance
Oracle9i SQL Reference
oracle初学指南
PL_SQL用户指南与参考(推荐)

论坛
csdn
itpub
cnoug

oracle视频下载
ftp://202.96.64.144/

http://www.oradb.net/


、哪里下载Oracle软件,Oracle的文档
  otn.oracle.com,需要注册一个帐号，不过是免费的
2、初学者应该看些什么Oracle方面的书？
  《ORACLE9i 初学者指南》
　《ORACLE9i DBA手册》
　《ORACLE9i DBA 基础教程》
　或到www.china-pub.com中，在搜索栏中敲入oracle,便可以见到各样的oracle书，且有介绍　
3、有什么好的Oracle软件工具？
  a、toad,在www.quest.com,注册码在论坛中就可以搜到
  b、pl/sql developer在www.51delphi.com可以down到

Oracle 的入门心得－－>强烈推荐

oracle的体系太庞大了，对于初学者来说，难免会有些无从下手的感觉，什么都想学，结果什么都学不好，所以把学习经验共享一下，希望让刚刚入门的人对oracle有一个总体的认识，少走一些弯路。 
  
一、定位 
oracle分两大块，一块是开发，一块是管理。开发主要是写写存储过程、触发器什么的，还有就是用Oracle的Develop工具做form。有点类似于程序员，需要有较强的逻辑思维和创造能力，个人觉得会比较辛苦，是青春饭J；管理则需要对oracle数据库的原理有深刻的认识，有全局操纵的能力和紧密的思维，责任较大，因为一个小的失误就会down掉整个数据库，相对前者来说，后者更看重经验。 
  
因为数据库管理的责任重大，很少公司愿意请一个刚刚接触oracle的人去管理数据库。对于刚刚毕业的年轻人来说，可以先选择做开发，有一定经验后转型，去做数据库的管理。当然，这个还是要看人个的实际情况来定。

二、学习方法  
我的方法很简单，就是：看书、思考、写笔记、做实验、再思考、再写笔记 
  
     看完理论的东西，自己静下心来想想，多问自己几个为什么，然后把所学和所想的知识点做个笔记；在想不通或有疑问的时候，就做做实验，想想怎么会这样，同样的，把实验的结果记下来。思考和做实验是为了深入的了解这个知识点。而做笔记的过程，也是理清自己思路的过程。 
  
     学习的过程是使一个问题由模糊到清晰，再由清晰到模糊的过程。而每次的改变都代表着你又学到了一个新的知识点。 
  
     学习的过程也是从点到线，从线到网，从网到面的过程。当点变成线的时候，你会有总豁然开朗的感觉。当网到面的时候，你就是高手了 
  
     很多网友，特别是初学的人，一碰到问题就拿到论坛上来问，在问前，你有没有查过书，自己有没有研究过，有没有搜索一下论坛？这就叫思维惰性。由别人来回答你的问题，会让你在短时间内不费劲地弄懂这个知识点，然而通过自己的努力去研究它，不但会更深入的了解这个知识点，更重要的是在研究的过程会提高你解决问题和分析问题的能力。总的来说，没有钻研的学习态度，不管学什么东西，都不会成功的。 
  
     当然，初学的人很多时候是因为遇到问题时，无从下手，也不知道去哪里找资料，才会到论坛上提问题的。但我认为，在提问的时候，是不是可以问别人是如何分析这个问题？从哪里可以找到相关的资料？而不是这个问题的答案是什么？授人以鱼不如授人以渔。

   下面我讲下我处理问题的过程

   首先要知道oracle的官方网站：www.oracle.com 这里有oracle的各种版本的数据库、应用工具和权威的官方文档。其次，还要知道http://metalink.oracle.com/这里是买了oracle服务或是oracle的合作伙伴才可以进去的，里面有很多权威的解决方案和补丁。然后就是一些著名网站：asktom.oracle.com www.orafaq.net, www.dbazine.com。这里有很多经验之谈。

    遇到问题了。如果是概念上的问题，第一时间可以找tahiti.oracle.com，这里会给你最详细的解释。如果在运行的过程中出了什么错误。可以去metalink看看。如果是想知道事务的处理的经验之谈。可以去asktom。当然。这里只是相对而言。
三、oracle的体系 
oracle的体系很庞大，要学习它，首先要了解oracle的框架。在这里，简要的讲一下oracle的架构，让初学者对oracle有一个整体的认识。 
  
1、物理结构（由控制文件、数据文件、重做日志文件、参数文件、归档文件、密码文件组成） 
控制文件：包含维护和验证数据库完整性的必要信息、例如，控制文件用于识别数据文件和重做日志文件，一个数据库至少需要一个控制文件 
数据文件：存储数据的文件 
重做日志文件：含对数据库所做的更改记录，这样万一出现故障可以启用数据恢复。一个数据库至少需要两个重做日志文件 
参数文件：定义Oracle 例程的特性，例如它包含调整SGA 中一些内存结构大小的参数 
归档文件：是重做日志文件的脱机副本，这些副本可能对于从介质失败中进行恢复很必要。 
密码文件：认证哪些用户有权限启动和关闭Oracle例程 
  
2、逻辑结构（表空间、段、区、块） 
表空间：是数据库中的基本逻辑结构，一系列数据文件的集合。 
段：是对象在数据库中占用的空间 
区：是为数据一次性预留的一个较大的存储空间 
块：ORACLE最基本的存储单位，在建立数据库的时候指定 
  
3、内存分配（SGA和PGA） 
SGA：是用于存储数据库信息的内存区，该信息为数据库进程所共享。它包含Oracle 服务器的数据和控制信息, 它是在Oracle 服务器所驻留的计算机的实际内存中得以分配，如果实际内存不够再往虚拟内存中写。 
PGA：包含单个服务器进程或单个后台进程的数据和控制信息，与几个进程共享的SGA 正相反PGA 是只被一个进程使用的区域，PGA 在创建进程时分配在终止进程时回收 
  
4、后台进程（数据写进程、日志写进程、系统监控、进程监控、检查点进程、归档进程、服务进程、用户进程） 
数据写进程：负责将更改的数据从数据库缓冲区高速缓存写入数据文件 
日志写进程：将重做日志缓冲区中的更改写入在线重做日志文件 
系统监控：检查数据库的一致性如有必要还会在数据库打开时启动数据库的恢复 
进程监控：负责在一个Oracle 进程失败时清理资源 
检查点进程：负责在每当缓冲区高速缓存中的更改永久地记录在数据库中时,更新控制文件和数据文件中的数据库状态信息。 
归档进程：在每次日志切换时把已满的日志组进行备份或归档 
服务进程：用户进程服务。 
用户进程：在客户端，负责将用户的SQL 语句传递给服务进程，并从服务器段拿回查询数据。 
  
5、oracle例程：Oracle 例程由SGA 内存结构和用于管理数据库的后台进程组成。例程一次只能打开和使用一个数据库。 
  
6、SCN(System Change Number)：系统改变号，一个由系统内部维护的序列号。当系统需要更新的时候自动增加，他是系统中维持数据的一致性和顺序恢复的重要标志。

四、深入学习  
管理：可以考OCP证书，对oracle先有一个系统的学习，然后看Oracle Concepts、oracle online document,对oracle的原理会有更深入的了解，同时可以开始进行一些专题的研究如：RMAN、RAS、STATSPACT、DATAGUARD、TUNING、BACKUP&RECOVER等等。 
  
开发：对于想做Oracle开发的，在了解完Oracle基本的体系结构之后，可以重点关注PL/SQL及Oracle的开发工具这一部分。 PL/SQL主要是包括怎么写SQL语句，怎么使用Oracle本身的函数，怎么写存储过程、存储函数、触发器等。 Oracle的开发工具主要就是Oracle自己的Developer Suite（Oracle Forms Developer and Reports Developer这些），学会如何熟练使用这些工具。

介绍几本oracle入门的好书

oracle官方文档：《concept》上面讲了oracle的体系和概念，很适合初学者看。

OCP的教学用书，也就是STUDY GUIDE(SG)。
Oracle8i 备份恢复手册
Oracle8高级管理与优化
Oracle8i PLSQL程序设计
Oracle8数据库管理员手册
以上书本都是机械工业出版社出版。
  
介绍几个网站 
http://tahiti.oracle.com oracle的官方文档 
http://metalink.oracle.com/ oracle的技术支持网站。需要购买Oracle服务才能有一个帐号，才能登陆，有大量的Knowledge Base，大量问题解决经验。 
http://www.oracle.com oracle的官方网站，可以在这里down oracle的软件、官方文档和获得最新的消息 
http://www.dbazine.com/ Oracle的杂志 
http://asktom.oracle.com  
http://www.orafaq.net/  
http://www.ixora.com.au/ 
http://www.oracle-base.com 
http://www.dba-oracle.com/oracle_links.htm

第一楼
谢谢楼主！

[使用游标：]

1:最基本的游标
declare 
  wldm erp.itm_m.itm_wldm%type;
  wlpm erp.itm_m.itm_wlpm%type;
  cursor cur is
    select itm_wldm,itm_wlpm from erp.itm_m  where itm_wldm = '10001';
begin
  open cur;
  fetch cur into wldm,wlpm;
  close cur;
  dbms_output.put_line(wldm||wlpm);

end;

2: 加参数的游标
declare 
  wldm erp.itm_m.itm_wldm%type;
  wlpm erp.itm_m.itm_wlpm%type;
  cursor cur(v_wldm varchar2) is
    select itm_wldm,itm_wlpm from erp.itm_m  where itm_wldm = v_wldm;
begin
  open cur('10001');
  fetch cur into wldm,wlpm;
  close cur;
  dbms_output.put_line(wldm||wlpm);
end;

3:循环
set serveroutput on;
declare 
  wldm erp.itm_m.itm_wldm%type;
  wlpm erp.itm_m.itm_wlpm%type;
  cursor cur is
    select itm_wldm,itm_wlpm from erp.itm_m  ;
begin
 /* 以下为 Loop ... End Loop循环 */
  open cur;
  loop
    fetch cur into wldm,wlpm;
    exit when cur%notfound or cur%notfound is null;
    dbms_output.put_line(cur%rowcount ||' '||wldm||' '||wlpm);
  end loop;
  close cur;

/* 以下为while 循环*/
  open cur;
  fetch cur into wldm,wlpm;
  while cur%found loop
    dbms_output.put_line(cur%rowcount ||' '||wldm||' '||wlpm);
    fetch cur into wldm,wlpm;
  end loop;
  close cur;  
/* 以下为For 循环*/  
  for c_cur in cur loop
     dbms_output.put_line(cur%rowcount ||' '||wldm||' '||wlpm);
  end loop;  
end;

4: 使用bulk collect
declare
  type tp1 is table of erp.itm_m.itm_wlpm%type;
  type tp2 is table of erp.itm_m.itm_wlgg%type;
  v1 tp1;
  v2 tp2;
  cursor cur is
    select itm_wlpm,itm_wlgg from erp.itm_m;
begin
  open cur;
  fetch cur bulk collect into v1,v2;
  close cur;
  for i in 1..v1.count loop
    dbms_output.put_line(v1(i)||' ' ||v2(i));
  end loop;
end;

5: for Update
set serveroutput on;
declare 
  wldm erp.itm_m.itm_wldm%type;
  wlpm erp.itm_m.itm_wlpm%type;
  cursor cur is
    select itm_wldm,itm_wlpm from erp.itm_m for update ;
begin
  for c_cur in cur loop
    update erp.itm_m set itm_wlpm = itm_wlpm || '1'
      where current of cur;
  end loop;
end;







[if-else-endif]
set serveroutput on;
declare a int :=5;
 v1 erp.itm_m%rowtype;
begin
  select * into v1 from erp.itm_m where itm_wldm = '10001';
  if a<3 then
    dbms_output.put_line(v1.itm_wlpm);
  elsif a<5 then                                -- 是elsif 不是 elseif
    dbms_output.put_line(v1.itm_wlgg);
  else
    dbms_output.put_line(v1.itm_wldm);
  end if;
end;

[loop]

declare i int:=0;
begin 
loop 
  i :=i+1;
  dbms_output.put_line(i);
  if i>=3 then
    exit;
  end if;
end loop;

loop
  i:=i-1;
  dbms_output.put_line(i);
  exit when i<=0;
end loop;

while i<=3 loop
  i:=i+1;
  dbms_output.put_line(i);
end loop;
dbms_output.put_line('i='||i);

for i in 1..3 loop
--  此处不能赋值i:=i+1;
  dbms_output.put_line(i);
end loop;
dbms_output.put_line('i='||i);

for i in reverse 1..3 loop
--  此处不能赋值i:=i+1;
  dbms_output.put_line(i);
end loop;
dbms_output.put_line('i='||i);
end;











[goto]
declare i int:=0;
begin 
  dbms_output.put_line(i);
  loop
    i:=i+1;
    dbms_output.put_line(i);
    exit when i>=5;
    if i=3 then
      goto xxx;
    end if;
  end loop;
  return;
    <<xxx>>
  begin
    dbms_output.put_line('end  '||i);
  end xxx;

  dbms_output.put_line('end  '||i);
end;

[decode]

decode(column1,value1,output1,value2,output2,output3)
对column1列执行DECODE函数，如果column1有一个值为value1,那么将会用output1来代替当前值，如果column1有一个值为value2,那么将会用output2来代替当前值，如果column1中哪两个值都不是，那么就会用OUTPUT3来代替当前值。

eg:
create table test(depID varchar2(1),Name varchar2(10));
insert into test values('A',      '一');
insert into test values('A' ,     '二');
insert into test values('A' ,     '三');
insert into test values('B'  ,    '四');
insert into test values('B'   ,   '五');
insert into test values('B' ,     '六');
insert into test values('C'    ,  '七');
insert into test values('C'     , '八');
insert into test values('C' ,     '九');

select decode(depid,'A',name||'aaa','B','bbb'||name,'ccc') from test;
/*
DECODE(DEPID,
-------------
一aaa
二aaa
三aaa
bbb四
bbb五
bbb六
ccc

已选择7行。
*/






[exception]
-- Exception
declare x numeric:=10;y numeric:=0;z numeric;
begin
  z:=x/y;
  dbms_output.put_line(z);
  exception
    when others then
    dbms_output.put_line('不能被0除');
end;


-- Raise 自定义Exception
declare my_exception exception;
 x numeric:=10;y numeric:=20;z numeric;
begin
  if  x<y then
    raise my_exception;
  end if;
  z:=x/y;
  dbms_output.put_line(z);
  exception
    when my_exception then
      dbms_output.put_line('被除数太小');
    when zero_divide then
      dbms_output.put_line('不能被0除');
end;





[top]
-- 我們想把最先進入公司的5個人找出來
SELECT * FROM emp WHERE ROWNUM <= 5 ORDER BY hiredate;
或
SELECT * FROM (SELECT * FROM emp ORDER BY hiredate)
   WHERE ROWNUM <= 5;

-- 我們想把最先進入公司的6~10個人找出來!!!!!!!!!!!!!!
SELECT * FROM (SELECT * FROM emp ORDER BY hiredate)
   WHERE ROWNUM <= 10 
MINUS
SELECT * FROM (SELECT * FROM emp ORDER BY hiredate)
   WHERE ROWNUM <= 5;


--测试：
create table test(depID varchar2(1),Name varchar2(10));
insert into test values('A',      '一');
insert into test values('A' ,     '二');
insert into test values('A' ,     '三');
insert into test values('B'  ,    '四');
insert into test values('B'   ,   '五');
insert into test values('B' ,     '六');
insert into test values('C'    ,  '七');
insert into test values('C'     , '八');
insert into test values('C' ,     '九');
--语句：
select * from test a
where rowid in (select rowid from test where depid = a.depid and rownum<3);
/*结果
D NAME
- ----------
A 一
A 二
B 四
B 五
C 七
C 八

已选择6行。
*/




rownum是随着结果集生成的，一旦生成，就不会变化了；
同时,生成的结果是依次递加的，没有1就永远不会有2!  
rownum 是在 查询集合产生的过程中产生的伪列，并且如果where条件中存在 rownum 条件的话，则:  
1： 假如 判定条件是常量，则：  
只能 rownum = 1, <= 大于1 的自然数， = 大于1 的数是没有结果的， 大于一个数也是没有结果的  
即 当出现一个 rownum 不满足条件的时候则 查询结束

[transaction]

set serveroutput on;
declare n int;
begin
  savepoint sp1;
  update erp.inv_m set inv_kcsl = inv_kcsl+10;
  n:=SQL%rowcount;
  dbms_output.put_line(n);
  
  savepoint sp2;
  update erp.inv_m set inv_kcsl = inv_kcsl+10;
  n:=SQL%rowcount;
  dbms_output.put_line(n);
  
  rollback to savepoint sp2;  
end;




[trigger]
简单的：
create or replace trigger t_itm_m
after insert on erp.itm_m
for each row
begin
  insert into erp.inv_m select :new.itm_wldm,100 from dual; 
end;

create or replace trigger t_inv_m
before update on erp.inv_m
for each row
begin
  dbms_output.put_line(:old.inv_wldm||' 更改前：':old.inv_kcsl||' 更改后:'||:new.inv_kcsl);  
end;


系统触发器：
create table erp.log_table
(
  log_user varchar2(30),
  database_name varchar2(30),
  event_name varchar2(20),
  log_time date
);
1:登录
create or replace trigger user_logon
after logon on database
begin
  insert into erp.log_table (log_user,database_name,event_name,log_time)
    values(sys.login_user,sys.database_name,sys.sysevent,sysdate);
end;

2：退出登录
create or replace trigger user_logoff
before logoff on database
begin
  insert into erp.log_table (log_user,database_name,event_name,log_time)
    values(sys.login_user,sys.database_name,sys.sysevent,sysdate);
end;

3：启动数据库
create or replace trigger db_startup
after startup on database
begin
  insert into erp.log_table (log_user,database_name,event_name,log_time)
    values(sys.login_user,sys.database_name,sys.sysevent,sysdate);
end;


4:关闭数据库
create or replace trigger db_startup
before shutdown on database
begin
  insert into erp.log_table (log_user,database_name,event_name,log_time)
    values(sys.login_user,sys.database_name,sys.sysevent,sysdate);
end;

5: 记录创建表时的各类信息
create table erp.object_created
(
  object_owner varchar2(30),
  object_name varchar2(30),
  object_type varchar2(20),
  create_user varchar2(30),
  create_time date
);

create or replace trigger t_create_object
after create on erp.schema
begin
  insert into erp.object_created(
    object_owner,object_name,object_type,create_user,create_time)
  values(sys.dictionary_obj_owner,sys.dictionary_obj_name,sys.dictionary_obj_type,sys.login_user,sysdate);
end;




[function]
create or replace function f_getSum(wldm varchar2)
return numeric as
  v_num numeric(10);
begin
  select sum(inv_kcsl) into v_num
    from erp.inv_m where inv_wldm like wldm || '%';
  return v_num;
end;


--调用1：
set serveroutput on;
declare v_nm numeric(10);
begin
  v_nm := f_getsum('101');
  dbms_output.put_line(v_nm);
end;

--调用2：
select f_getSum('101') from dual;



[procedure]
create or replace procedure sp_inv_sl(v_sl in out numeric, v_flag in numeric :=0)
as
begin
  if v_flag = -1 then
    v_sl := -v_sl;
  else
    v_sl := v_sl;
  end if;
  update erp.inv_m set inv_kcsl = inv_kcsl + v_sl;
end;

--调用:
declare sl numeric(10) ;
begin
sl :=10;
sp_inv_sl(sl,-1);
end;

[package]

/*包头*/

create or replace package my_pack
as
function f_test(n integer) return integer;
end my_pack;

/*包主体*/
create or replace package body my_pack as

function f_test(n integer) return integer is
begin
  return 1;
end f_test;

end my_pack;
/*  注意： 包头和包主体需分开编译*/


eg:
create or replace package my_pack as
  type staff is table of varchar2(10);
  procedure proc1(members in staff);
end my_pack;

create or replace package body my_pack as
  procedure proc1(members in staff) is
  begin
    if members.count > 10 then
      dbms_output.put_line('第一个为' || members(members.first));
    else
      dbms_output.put_line('最后一个为' || members(members.last));
    end if;
  end;
end my_pack;

declare
  my_staff my_pack.staff;
  begin
    my_staff :=my_pack.staff('张三','李四','王五');
    my_pack.proc1(my_staff);
  end;

[嵌套表]


1:定义
create or replace type student as object
(
  vid number(4),
  vname varchar2(10),
  vsex varchar2(2),
  vaddress varchar2(40)
);

create type studentlist as table of student;

create table nest_table1
(
  vid number(4),
  vbj varchar2(14),
  students studentlist
)
nested table students store as students_tab;

2: Insert
declare v_student studentlist :=studentlist(student(12,'张学友','男','深圳'));
begin
  insert into nest_table1 values(1002,'歌星',v_student);
  insert into nest_table1 values(1003,'球星',studentlist(student(13,'贝利','男','巴西')));
end;

3: Update
update nest_table1 set students = studentlist(student(12,'张学友','男','香港'))
where vid = 1002;

update the(select students from nest_table1 where vid = 1001)
set vaddress = '香港';

4: Select
select * from nest_table1;

select  the(select students from nest_table1 where vid = 1001)
from dual;

[索引表]
1:基本索引表 
set serveroutput on;
declare 
  type my_table is table of varchar(6) index by binary_integer;
  v_mytable my_table;
begin
  v_mytable(1) := 'a';
  v_mytable(2) := 'b';
  v_mytable(3) := 'c';
  dbms_output.put_line(v_mytable(1)||v_mytable(2)||v_mytable(3));
end;

2：
declare
  type my_table is table of erp.itm_m%rowtype index by binary_integer;
  v_mytable my_table;
begin
  select itm_wldm,itm_wlpm,itm_wlgg into v_mytable(1)
    from erp.itm_m where itm_wldm = '10001';
  dbms_output.put_line(v_mytable(1).itm_wldm ||v_mytable(1).itm_wlpm||v_mytable(1).itm_wlgg);  
end;

3:
declare
  type my_table is table of erp.itm_m%rowtype index by binary_integer;
  v_mytable my_table;
begin
  select itm_wldm,itm_wlpm,itm_wlgg into v_mytable(1)
    from erp.itm_m where itm_wldm = '10001';
  if v_mytable.exists(1) then
    dbms_output.put_line(v_mytable(1).itm_wldm ||v_mytable(1).itm_wlpm||v_mytable(1).itm_wlgg);  
  else
    dbms_output.put_line('不存在');
  end if;
end;

4:
declare
  type my_table is table of erp.itm_m%rowtype index by binary_integer;
  v_mytable my_table;
begin
  select itm_wldm,itm_wlpm,itm_wlgg into v_mytable(2)
    from erp.itm_m where itm_wldm = '10001';
  if v_mytable.exists(1) then
    dbms_output.put_line(v_mytable(1).itm_wldm ||v_mytable(1).itm_wlpm||v_mytable(1).itm_wlgg);  
  else
    dbms_output.put_line('不存在');
  end if;
    
  dbms_output.put_line(v_mytable(1).itm_wldm ||v_mytable(1).itm_wlpm||v_mytable(1).itm_wlgg);  
  exception
    when no_data_found then
      dbms_output.put_line('找不到');
end;