㈠ oracle 存储过程 包
表名：test
字段名：id
序列名称：TEST_ID
create or replace package TEST as
begin ;
procudre insertdate() ;
function getSum() return number;
function getAve() return number;
end TEST ;
create or replace package body TEST as
begin ;
procudre insertdate() is
begin
for (i=1;i<=3:i++}
loop
insert into TEST (ID) values (TEST_ID.nextval) ;
end loop ;
exception
when others
null ;
end insertdate;
function getSum() return number is
v_return number ;
begin
select sum(id) intov_return from TEST ;
rerturn v_return;
end ;
function getAve() return number is
v_return number ;
begin
select AVG(id) into v_return from TEST ;
rerturn v_return;
end ;
end TEST ;
㈡ oracle怎样创建样例数据库
Oracle数据库实例的创建、删除、修改
以SUSE10SP2、Oracle10gR2为例。
本文中的数据库实例这一称谓应该换做数据库更为准确，数据库可以理解为是一个物理的静态概念，主要包括一些物理存在的数据库文件，而数据库实例则是一个动态概念，包括一些内存区域以及若干进程，数据库实例是对数据库进行操作的执行者。（20090714修改）
安装完Oracle数据库系统的安装后，需要创建数据库实例才能真正开始使用Oracle数据库服务。
总结起来，Oracle有三种创建数据库实例的方法。
第一种，最常用也最简单，那就是通过DBCA(Database Configuration Assistant)，这是Oralce提供的一个图形界面的数据库实例配置工具，通过它可以创建、删除和修改数据库实例，它的使用也比较简单、易懂，交互式的图形界面操作，非常准确有效的提示与配置，是一个比较方便的创建数据库实例的方式。
按照DBCA给出的提示，很容易创建一个新数据库实例。
在创建数据库的时候，DBCA还提供了两个选项，让你可以根据刚刚设置好的参数生成一个数据库实例模板和一份数据库实例创建脚本。这两个东西是非常好，非常有用的东西，数据库模板由Oracle自己管理维护，已经创建好的数据库实例模板可以在DBCA图形程序新建数据库实例时作为模板来使用，另外在DBCA使用responseFile文件或者命令行参数创建数据库时也需要用到（见后面介绍）；数据库创建脚本是一组脚本，包括shell脚本和sql脚本，这些脚本共同实现一个功能，那就是按照你之前在DBCA中设置好的那样创建一个数据库实例（后面也会有介绍），你需要做的只是将这些脚本在你的代码中调用起来。当然，你也可以选择只生成数据库模板或者数据库脚本，而不用去创建一个真的数据库（这通常很费时间）。
Oracle数据库实例的创建、删除、修改
DBCA是一个非常强大的工具，上面看到的只是DBCA最常用的创建一个数据库实例的使用，其实DBCA还提供另外两种使用方法，分别是responseFile和命令行带参调用。
先说DBCA的responseFile使用方法，responseFile这个东东并不陌生，前文讲的Oracle自动安装就是使用responseFile完成的，DBCA的responseFile使用方法和Oracle安装程序的responseFile使用方法基本一致。但DBCA的responseFile的来源只能是Oracle安装包中提供的模板文件，而不能向Oracle安装程序的responseFile一样，先自己record一个，然后再用这个record去指导Oracle的自动安装。从Oracle安装包中获取到DBCA的responseFile模板文件后，你可以根据自己的需要编辑修改该模板文件，以完成对数据库实例的某些参数设置（DBCA图形界面所提供的参数设置，responseFile中都可以设置，而且该responseFile模板文件的注释写的很好，你完全不用担心无法搞定那些繁杂的数据库实例参数设置，赞Oralce一个！）。该模板文件在Oracle安装包中的位置一般在${ORACLE_PACKAGE}/response目录下。
有了responseFile之后，你只需在调用DBCA的时候指定responseFile的位置和另外一些参数：
dbca [-silent|-progressOnly] -responseFile responseFile名称
其中-silent|-progressOnly选项意义和Oracle安装程序命令行参数中的同名选项一样，表示完全字符界面自动安装或者带图形提示界面的半自动化安装。
responseFile名称当然就是responseFile的具体位置了。
但是，有一点不是很好，那就是使用DBCA的responseFile方式创建Oracle数据库实例，需要事先已经存在一个数据库实例模板了，在responseFile中再指定该数据库实例模板名，然后DBCA再依据这个已有的数据库实例模板完成新数据库实例的创建，所以就会有前面讲到的DBCA图形界面创建数据库实例时提供生成数据库实例模板的选项（数据库实例模板也可以从一个已有数据库实例生成），就是在这要用到的。
从上面调用DBCA使用responseFile的命令中，应该已经看到了DBCA是提供一些命令行参数选项的，其实DBCA提供的命令行参数选项远比你想象的强大，甚至可以这么说，所有DBCA图形界面和responseFile能够办到的事，通过DBCA丰富的命令行参数选项都可以办到。你在DBCA图形界面上设置的参数或者在responseFile中指定的参数值都可以通过DBCA的命令行参数选项来进行设置，所以你完全可以只通过DBCA的命令行带参调用来完成一个数据库实例的创建（当然也包括删除、修改数据库实例等所有DBCA图形界面所能提供的功能）。其实，我更愿意这样认为，DBCA的responseFile应用也是一种DBCA命令行带参调用的使用。需要注意的是，当DBCA的命令行参数和responseFile同时设置一个参数时，命令行参数的优先级是比responseFile要高的。另外，使用DBCA命令行带参调用新建数据库实例和使用responseFile新建数据库实例一样，也是需要事先已经存在一个数据库实例模板，才能完成新数据库实例的创建。一份非常详细的DBCA所有命令行参数选项列表，你可以通过执行dbca -help获得。
到现在你可能已经发现，DBCA图形界面、DBCA的responseFile使用以及DBCA的命令行带参调用，其实是三个分别具备完全数据库实例设置功能的工具或者接口，分别对应不同的应用场景，它们可以满足你几乎所有的应用需求（使用这样的工具来帮助构建自己的软件真是非常惬意的一件事情，再赞Oracle一个！）。
第二种是通过脚本（是否称为命令行方式更合适，下文描述的脚本方式其实都是命令行方式的非交互式方法，或者说命令行的自动化方式，但其实所有脚本方式都可以将shell脚本或sql脚本中的shell命令、sqlplus命令拆分出来，手工在shell中或者sqlplus界面中进行交互式的输入执行，这可以称为命令行的手工方式）来完成数据库实例的代码中自动创建。这里说的脚本包括shell脚本和sql脚本，这种方式可以说是最适合与编程结合的，因为这些shell脚本或者sql脚本都可以直接在shell命令中调用执行，所以可以很好与shell编程相结合。而这其实是基于一个非常重要的事实，即Oracle提供了一个交互式的命令行工具sqlplus（类似与DB2的db2cmd），这个工具可以认为是一个Oracle数据库管理工具，通过它可以执行一些Oracle的数据库管理命令，来完成一些数据库管理工作（这当然就包括数据库实例的创建），同时你也可以把它当作一个SQL语句执行器，直接在里边执行你想要执行的SQL语句或者存储过程等，并获取执行结果。并且，更重要的是，sqlplus可以直接在shell命令行中进行非交互式的调用执行（通常是调用执行一段sqlplus语句，或者是一个由一些sqlplus语句组成的sql脚本，我所说的sqlplus语句包括Oracle数据库管理维护命令、SQL语句和存储过程等），这就为在shell编程中使用sqlplus完成数据库实例自动创建工作提供了可能。
shell命令行中非交互式调用sqlplus执行一段sqlplus语句是利用shell编程中重定向命令的一个特性，即分隔符重定向输入。一般用法如下：
command<<任意自定义分隔符
>（换行）内容
>（换行）内容
>自定义分隔符
shell中遇到<<则会自动将下一个单词认作分隔符，并将分隔符后面的文本当作command命令执行的内容传递给command依次全部执行直至遇到下一个分隔符单词才结束。这里的分隔符可以是任意自定义的单词，通常使用EOF，举例：
sqlplus / as sysdba<<EOF
startup nomount;
select * from v$version;
shutdown immediate;
exit;
EOF
这段shell程序调用sqlplus执行了若干sqlplus语句，用来启动数据库实例，查询数据库版本信息，然后关闭数据库实例，退出sqlplus。
shell命令行中非交互式调用sqlplus执行一个sql脚本是利用sqlplus本身提供的命令行参数。在sqlplus界面中可以通过start命令和@命令来执行一个sql脚本，两者功效相同，用法如下：
SQL>start sql脚本绝对路径；
SQL>@sql脚本绝对路径；
而在shell命令行中可以使用@来完成sqlplus对sql脚本的调用执行，举例：
sqlplus / as sysdba @./MySQL.sql
以上命令会调用sqlplus执行当前目录下的MySQL.sql脚本。
使用脚本来完成数据库实例的创建工作，也分为两种情况。
一种是诚如前文所述的那样，在使用DBCA图形工具创建数据库实例的同时生成一份数据库实例创建脚本（包括若干shell脚本和sql脚本），那么你就可以使用这份脚本，在shell中进行调用，完成数据库实例的代码自动创建。使用这份数据库实例创建脚本创建的新数据库实例和原数据库实例是完全一样，当然，你可以将生成的脚本进行修改，以完成你对数据库实例的某些设置，但是请在你对脚本内容已经足够了解，并且知道你自己在干什么的情况下修改脚本，否则你很有可能使用修改后的脚本无法正确创建数据库实例。这种方法中shell脚本对sqlplus的使用，更多的是使用sqlplus来执行一些Oracle生成的sql脚本（这些sql脚本的内容是就是一些sqlplus语句的集合，它们的任务就是完成数据库实例的创建以及设置）。
另一种情况则是不依靠DBCA生成的脚本，完全由自己来编写实现一份shell脚本，在脚本中你可以调用sqlplus执行一段sqlplus语句或者其它一些sql脚本，以完成数据库实例的创建和设置，这完全取决于你的实现；而最常用的用来创建数据库实例的一个方法就是在sqlplus中使用create database语句，create database语句提供了许多丰富的选项和参数设置，确保你能完全创建一个自己所需要的数据库实例。当然，还有一些其它方法可以创建数据库实例，比如调用执行oracle提供某些存储过程等。
至于create database语句的详细介绍可以参考oracle的sql reference。
第三种严格来说不能算作一种创建Oracle数据库实例的方法，它是通过已有的数据库实例为基础来完成新数据库实例的创建的。这种方法是首先通过第一种或者第二种方法来创建好一个数据库实例，然后将该数据库实例的物理文件进行备份，然后直接使用备份的物理文件恢复出一个与原数据库实例完全一样新的数据库实例，所以这种方法需要和第一、二种方法相配合才能使用。这种方法其实已经属于Oracle数据备份与恢复的范畴了，就是Oracle数据备份恢复方式中的物理备份恢复，所以这种方法可以叫做物理恢复法。
简单介绍物理恢复法，首先将一个已经存在数据库实例（最好已关闭）进行物理备份，所谓物理备份其实就是复制该数据库实例所使用的操作系统文件，这些文件主要包括DataFiles、RedoLogs、ControlFiles和UndoFiles（这些文件一般存在于$ORACLE_HOME/oradata目录下），进行数据库实例恢复的时候只需将备份的操作系统文件复制到新的oradata目录下即可，可以直接启动使用恢复后的该数据库实例。不难看出，这种备份恢复是依赖于操作系统平台的。
详细的物理备份和恢复介绍可以参考oracle的backup and recovery basics以及backup and recovery advanced user's guide。
说完了数据库实例的创建，现在来说说数据库实例的删除和修改。其实介绍完了数据库实例的创建，数据库实例的删除和修改就非常简单了。基本和前文数据库实例创建的内容相一致，且比较而言更简单。
数据库实例的删除从上文中数据库实例的创建不难得到，大致有两种方法，DBCA工具和命令行方式。
DBCA工具除了能够用来创建数据库实例，当然也能够用来删除数据库实例了，且同样可以用使用responseFile或者命令行带参调用等方法来完成数据库实例的删除，请参考数据库实例创建部分。
命令行删除数据库实例的方式，严格来讲，是使用一组sqlplus命令来完成数据库实例的删除，这组sqlplus命令可以组织在一个sql脚本中，然后在shell命令行中调用sqlplus程序来执行该sql脚本，或者直接在shell命令行中利用shell程序重定向特性调用sqlplus依次完全执行这组sqlplus命令，再或者使用手工的交互式输入执行，使用方法请参考数据库实例创建部分。
其中涉及到的sqlplus命令参考以下：
SQL>startup restrict mount;
SQL>drop database;
使用sqlplus命令删除数据库实例，必须先以restrict mount方式将数据库实例加载（但不打开），然后使用drop database语句删除该数据库实例。
数据库实例的修改和数据库实例的创建，情况类似，DBCA方式或者命令行方式。只要是DBCA方式能够修改的数据库实例参数，命令行方式也都能办到。
㈢ 如何使用Oracle存储过程的一个简单例子
楼主您好
---创建表
create table TESTTABLE
(
id1 VARCHAR2(12),
name VARCHAR2(32)
)
select t.id1,t.name from TESTTABLE t
insert into TESTTABLE (ID1, NAME)
values ('1', 'zhangsan');
insert into TESTTABLE (ID1, NAME)
values ('2', 'lisi');
insert into TESTTABLE (ID1, NAME)
values ('3', 'wangwu');
insert into TESTTABLE (ID1, NAME)
values ('4', 'xiaoliu');
insert into TESTTABLE (ID1, NAME)
values ('5', 'laowu');
---创建存储过程
create or replace procere test_count
as
v_total number(1);
begin
select count(*) into v_total from TESTTABLE;
DBMS_OUTPUT.put_line('总人数：'||v_total);
end;
--准备
--线对scott解锁：alter user scott account unlock;
--应为存储过程是在scott用户下。还要给scott赋予密码
---alter user scott identified by tiger;
---去命令下执行
EXECUTE test_count;
----在ql/spl中的sql中执行
begin
-- Call the procere
test_count;
end;
create or replace procere TEST_LIST
AS
---是用游标
CURSOR test_cursor IS select t.id1,t.name from TESTTABLE t;
begin
for Test_record IN test_cursor loop---遍历游标，在打印出来
DBMS_OUTPUT.put_line(Test_record.id1||Test_record.name);
END LOOP;
test_count;--同时执行另外一个存储过程（TEST_LIST中包含存储过程test_count）
end;
-----执行存储过程TEST_LIST
begin
TEST_LIST;
END;
---存储过程的参数
---IN 定义一个输入参数变量，用于传递参数给存储过程
--OUT 定义一个输出参数变量，用于从存储过程获取数据
---IN OUT 定义一个输入、输出参数变量，兼有以上两者的功能
--这三种参数只能说明类型，不需要说明具体长度 比如 varchar2(12)，defaul 可以不写，但是作为一个程序员最好还是写上。
---创建有参数的存储过程
create or replace procere test_param(p_id1 in VARCHAR2 default '0')
as v_name varchar2(32);
begin
select t.name into v_name from TESTTABLE t where t.id1=p_id1;
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----执行存储过程
begin
test_param('1');
end;
default '0'
---创建有参数的存储过程
create or replace procere test_paramout(v_name OUT VARCHAR2 )
as
begin
select name into v_name from TESTTABLE where id1='1';
DBMS_OUTPUT.put_line('name：'||v_name);
end;
----执行存储过程
DECLARE
v_name VARCHAR2(32);
BEGIN
test_paramout(v_name);
DBMS_OUTPUT.PUT_LINE('name：'||v_name);
END;
-------IN OUT
---创建存储过程
create or replace procere test_paramINOUT(p_phonenumber in out varchar2)
as
begin
p_phonenumber:='0571-'||p_phonenumber;
end;
----
DECLARE
p_phonenumber VARCHAR2(32);
BEGIN
p_phonenumber:='26731092';
test_paramINOUT(p_phonenumber);
DBMS_OUTPUT.PUT_LINE('新的电话号码：'||p_phonenumber);
END;
-----sql命令下，查询当前用户的存储过程或函数的源代码，
-----可以通过对USER_SOURCE数据字典视图的查询得到。USER_SOURCE的结构如下：
SQL> DESCRIBE USER_SOURCE ;
Name Type Nullable Default Comments
---- -------------- -------- -------
-------------------------------------------------------------------------------------------------------------
NAME VARCHAR2(30) Y Name of the object
TYPE VARCHAR2(12) Y Type of the object: "TYPE", "TYPE BODY", "PROCEDURE", "FUNCTION",
"PACKAGE", "PACKAGE BODY" or "JAVA SOURCE"
LINE NUMBER Y Line number of this line of
source
TEXT VARCHAR2(4000) Y Source text
SQL>
---查询出存储过程的定义语句
select text from user_source WHERE NAME='TEST_COUNT';
----查询存储过程test_paramINOUT的参数
SQL> DESCRIBE test_paramINOUT;
Parameter Type Mode Default?
------------- -------- ------ --------
P_PHONENUMBER VARCHAR2 IN OUT
SQL>
---查看当前的存储过程的状态是否正确，
---VALID为正确，INVALID表示存储过程无效或需要重新编译
SELECT STATUS FROM USER_OBJECTS WHERE OBJECT_NAME='TEST_COUNT';
-----如果要检查存储过程或函数的依赖性，可以通过查询数据字典USER_DENPENDENCIES来确定，该表结构如下：
SQL> DESCRIBE USER_DEPENDENCIES;
Name Type Nullable Default Comments
-------------------- ------------- -------- ------- ----------------------------------------------------------
NAME VARCHAR2(30) Name of the object
TYPE VARCHAR2(17) Y Type of the object
REFERENCED_OWNER VARCHAR2(30) Y Owner of referenced object (remote owner if remote object)
REFERENCED_NAME VARCHAR2(64) Y Name of referenced object
REFERENCED_TYPE VARCHAR2(17) Y Type of referenced object
REFERENCED_LINK_NAME VARCHAR2(128) Y Name of dblink if this is a remote object
SCHEMAID NUMBER Y
DEPENDENCY_TYPE VARCHAR2(4) Y
SQL>
---查询存储过程TEST_COUNT的依赖关系
SELECT REFERENCED_NAME,REFERENCED_TYPE FROM USER_DEPENDENCIES WHERE NAME='TEST_COUNT';
㈣ oracle中的存储过程怎么写
Oracle存储过程写法实例
总结项目中写的存储过程例子：
Oracle存储过程基本语法 存储过程
1 CREATE OR REPLACE PROCEDURE 存储过程名
2 IS/AS
3 BEGIN
4 NULL;
5 EXCEIPTION;
6 END;
1、创建存储过程，后面可用is或者as：
create or replace procere PRO_COMPLAIN_TEMPLATE as
2、定义变量，此处用到了%TYPE和%ROWTYPE，参考 /database/201211/168564.html ，另外定义了一个游标，TEM_INSTANCE TEMPLATE_CUR%ROWTYPE这个类型定义必须要在游标定义之后：
NEED_DO_FOR_ZL INTEGER;
CURRENT_MAX_ID MEMO_TEMPLET.TEMPLET_ID%TYPE;
CURSOR TEMPLATE_CUR IS SELECT TEMPLET_NAME, TEMPLET_CONTENT FROM SYS_COMPLAINT_TEMPLET;
TEM_INSTANCE TEMPLATE_CUR%ROWTYPE;
3、begin开始块：
begin
4、该插入语句使用了DBLINK，还有使用DBMS_OUTPUT.put_line('打印信息')进行信息输出：
insert into MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT, TEMPLET_TYPE, TEMPLET_MEMO) (SELECT * FROM MEMO_TEMPLET@COMPANY);
SELECT COUNT(*) INTO NEED_DO_FOR_ZL FROM SYS_COMPLAINT_TEMPLET;
IF(NEED_DO_FOR_ZL > 0) THEN
DBMS_OUTPUT.put_line('打印信息');
SELECT MAX(TEMPLET_ID)+1 INTO CURRENT_MAX_ID FROM MEMO_TEMPLET;
DBMS_OUTPUT.put_line('MEMO_TEMPLET最大ID' || CURRENT_MAX_ID);
FOR TEM_INSTANCE IN TEMPLATE_CUR LOOP
INSERT INTO MEMO_TEMPLET (TEMPLET_ID, TEMPLET_CONTENT,
TEMPLET_TYPE, TEMPLET_MEMO) VALUES (CURRENT_MAX_ID,
TEM_INSTANCE.TEMPLET_CONTENT, '7', NULL);
CURRENT_MAX_ID := CURRENT_MAX_ID + 1;
DBMS_OUTPUT.put_line(TEM_INSTANCE.TEMPLET_CONTENT);
END LOOP;
END IF;
COMMIT;
www.2cto.com
4、exception块，使用WHEN OTHERS THEN，其中用raise可显示错误信息：
exception
WHEN OTHERS THEN
DBMS_OUTPUT.put_line('sqlcode : ' ||sqlcode);
raise;
ROLLBACK;
IF TEMPLATE_CUR%ISOPEN THEN
CLOSE TEMPLATE_CUR;
END IF;
DBMS_OUTPUT.put_line('打印信息');
end;
注：关于游标的使用，如果像本例中使用for循环去遍历游标的话则不需要显式的去用open/close
cursor打开和关闭游标，此处会自己处理，如果使用fetch
into的话就需要显式开关游标，另外任意执行一个update操作，用隐式游标sql的属性%found,%notfound,%rowcount,%isopen观察update语句的执行情况，也可以使用来判断游标状态，如IF
TEMPLATE_CUR%ISOPEN THEN。
㈤ oracle 如何在包里创建一个简单的函数和存储过程
25、包
（1）定义包头
语法：
CREATE [OR REPLACE] PACKAGE [schame_name.]<包名>
IS | AS
包描述
包描述：可以是变量、常量及数据类型定义和游标定义，也可以是存储过程、函数定义和参数列表返回值类型。
例：
CREATE OR REPLACE PACKAGE employeePackage
AS
--类型定义
Type empRecType is record(
Empno number(4),
Salary number
)
--变量定义
p1 varchar2(20);
type t_departmentNo table is table of dept.deptno%type
index by binary_integer;
--游标定义
Cursor order_sal retrurn EmpRecType;
--聘用员工过程
Procere HireEmployee(p_EmpNo emp.empno%type);
End employeePackage;
例：
CREATE OR REPLACE PACKAGE scott.pkg_displayproct
IS
procere prc_getproctinfo
(
pid scott.proct.prodid%type,
pname out scott.proct.prodname%type,
ctname out scott.proct.CATEGORYID%type,
dscp out scott.proct.description%type
);
function fun_getstock
(
pid scott.proct.prodid%type
)
return number;
END pkg_displayproct;
（2）定义包体
语法：
CREATE OR REPLACE PACKAGE BODY [schame_name.]<包名>
IS | AS
包体描述；
END 包名;
包名：将要创建的包名称，该名称可以和包头所在的包名相同，也可以不同。
包体描述：游标、存储过程或者函数的定义
包体是可选的，如果在包头中没有声明任何存储过程或者函数，则包体就不存在，即使在包头有变量、游标或者类型的声明
（3）引用包中对象
BEGIN
[schame_name.][包名.]对象名;
END;
㈥ ORACLE如何创建存储过程，详细例子。
--创建存储过程 IN_SHEETID 为输入参数CREATE OR REPLACE <a class="-highlight" href="https://www..com/s?wd=PROCEDURE&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">PROCEDURE</a> ST_RECEIPT(IN_SHEETID VARCHAR2) ISBEGIN--将 receipt0表中数据插入 receiptINSERT INTO RECEIPTSELECT * FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;--更新receipt表中Flag值UPDATE RECEIPT SET FLAG = 100 WHERE SHEETID = IN_SHEETID;--INSERT INTO RECEIPTITEMSELECT * FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--删除ReceiptItem0表数据DELETE FROM RECEIPTITEM0 WHERE SHEETID = IN_SHEETID;--删除 receipt0表数据DELETE FROM RECEIPT0 WHERE SHEETID = IN_SHEETID;<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--调用存储过程BEGINST_RECEIPT('ys141128');<a class="-highlight" href="https://www..com/s?wd=END&tn=44039180_cpr&fenlei=-EUBtkP1n1n1RdPjTvP1bvrH6kP10L" target="_blank">END</a>;--或者EXEC ST_RECEIPT('ys141128');
㈦ 急求！怎么建立oracle存储过程(实例)
create or replace PROCEDURE st_receipt(p_sheetid varchar2(16))
AS
BEGIN
insert into receipt select * from receipt0 where sheetid=p_sheetid ; --将 receipt0表中数据插入 receipt
update receipt set Flag=100 wheresheetid=p_sheetid; --更新receipt表中Flag值
insert into ReceiptItem select * from ReceiptItem0 where sheetid=p_sheetid ;
delete from ReceiptItem0 where sheetid=p_sheetid ;--删除ReceiptItem0表数据
delete from receipt0 where sheetid=p_sheetid ; --删除 receipt0表数据
end ;
exec st_receipt('ys141128')
㈧ oracle数据库存储过程实例
创建存储过程的语句如下：
CREATE[OR REPLACE] PROCEDURE＜过程名＞
＜参数1>，“方式l]＜数据类型1>，
＜参数2>，[ 方式2]＜数据类型2>，
……)
IS|AS （is或as完全等价）
BEGIN
PL/SQL过程体
END＜过程名＞
例如，下面是一个删除表的存储过程：
--参数：tableName 要删除的表名
create or replace procere del_table(tableName varchar2) as
--定义变量
sql_del_table long;
begin
--构造sql语句
sql_del_table := 'drop table ' || tableName;
--执行
EXECUTE IMMEDIATE sql_del_table;
end del_table;
㈨ Oracle如何创建存储过程和如何调用存储过程
【delphi+oracle报表解决方案(一)】delphi中调用oracle的存储过程(分带返回游标，不返回值两种)
关键字: delphi ,oracle存储过程，游标,返回数据集,报表注：delphi 6+ oracle 8.1.6一.创建包与包体1.附：建表aaclass为下面作测试用create table aaclass(CID VARCHAR2(50), CNAME VARCHAR2(50), pnumber NUMBER(10,0) );INSERT INTO aaclass values('c1', 'cn1', 10 ) ;
INSERT INTO aaclass values('c2', 'cn2', 40 ) ;
INSERT INTO aaclass values('c1', 'cn3', 30 ) ;
commit;2.建包:CREATE OR REPLACE PACKAGE PKG_JCCTEST1
AS type rc_class is ref cursor;
--求p1,p2的和与差，返回的多个值通过游标返回
procere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class);
--查询满足条件的数据集，返回数据集通过游标返回
procere GetClass2(a in number,ResultCursor out rc_class ) ; --往表中插一条记录，不返回结果集时，本人用AdoQuery调用(adodataset好象要求必须返回结果集)
procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number) ;
end PKG_JCCTEST1; 3.建包体CREATE OR REPLACE PACKAGE BODY PKG_JCCTEST1
ASprocere GetSubAndSum2(p1 number,p2 number ,
ResultCursor out rc_class)
IS
BEGIN
open ResultCursor for
select p1-p2 as "sum", p1+p2 as "sub" from al;
END ;
procere GetClass2(a in number,ResultCursor out rc_class )
is
begin open ResultCursor for
select aaclass.* from aaclass where pnumber >a;end ;procere InsertClass( p_cid varchar2 ,p_cname varchar2 ,
p_pnumber number)
is
begin
insert into aaclass values(p_cid,p_cname,p_pnumber) ;
-- commit;
end ; 二.在delphi中利用AdoDataSet调用上述第一个存储过程
1.利用AdoConnection1连接数据库(驱动为 oracle Provider for OLE DB)，
**并在连接字符串中加入这一节: PLSQLRSet=1; 如下所示：
Provider=OraOLEDB.Oracle.1;Password=KXD;Persist Security Info=True;User ID=KXD;Data Source=TEST3;PLSQLRSet=12.在窗体上加AdoDataSet1 指明连接为上述AdoConnection1,下面可以放一个按钮，单击按钮就能调用第一步中创建的包过程，并返回数据集。代码如下所示：
procere TForm1.Button1Click(Sender: TObject);
var
AResult , BResult : integer;
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法调用oracle过程时，参数必须由?来传， 即使你要传的参数为常理
//输出游标的参数不需要指定!!!!!!，本来此函数带三个参数，我们这里只需要传两个参数.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetSubAndSum2(?,?)}' ; //***C 顺序有关，createparam必须放在commandtext赋值语句之后. // 创建第一个参数，对应call中的第一个?,ftinteger为类型,10为长度，45为传入的实参值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,45);
//创建第二个参数，根据createparameter的顺序 自动与call中的第二个参数对应
ADODataSet1.Parameters.CreateParameter('p2',ftinteger,pdinput,10,4); //下面调用ADODataSet1 的open方法，返回数据集(对应包过程的游标)
ADODataSet1.Open ; //根据存储过程，数据集只有一条记录，所以不需要用while do 来遍历数据集，直接取数据了 //此处的字段名根据包过程中的返回游标 对应的字段名来取
//定义的存储过程返回游标如： open ResultCursor for
// select p1-p2 as "sum", p1+p2 as "sub" from al;
//把对应的字段值取出来即可
AResult := ADODataSet1.Fields.FieldByName('sub').Value ;
BResult := ADODataSet1.Fields.FieldByName('sum').Value ; //显示结果
showmessage(inttostr(AResult)) ;
showmessage(inttostr(BResult)) ;end;
三.在delphi中利用AdoDataSet调用上述第二个存储过程
还是利用上述的AdoDataSet1来调用第二个存储过程，无需任何改动,加第二个按钮，单击时代码如下：procere TForm1.Button2Click(Sender: TObject);
begin
ADODataSet1.Close ;
ADODataSet1.CommandType := cmdText ;
ADODataSet1.Parameters.Clear ; //***利用call方法调用oracle过程时，参数必须由?来传， 即使你要传的参数为常理
//输出游标的参数不需要指定!!!!!!，本来此函数带两个参数，我们这里只需要传一个参数.
ADODataSet1.CommandText := '{call PKG_JCCTEST1.GetClass2(?)}' ; //***C 顺序有关，createparam必须放在commandtext赋值语句之后. // 创建第一个参数，对应call中的第一个?,ftinteger为类型,10为长度，20为传入的实参值
ADODataSet1.Parameters.CreateParameter('p1',ftinteger,pdinput,10,20);
//下面调用ADODataSet1 的open方法，返回数据集(对应包过程的游标)
ADODataSet1.Open ; while not ADODataSet1.Eof do
begin
showmessage('CID : '+string(ADODataSet1.FieldByName('CID').Value) +
'--CNAME :' + string(ADODataSet1.FieldByName('CNAME').Value) +
'--PNUMBER :' + string(ADODataSet1.FieldByName('PNUMBER').Value)
) ;
ADODataSet1.Next ;
end ;
end; 四 利用adoquery调用第三个过程，不返回数据集的procere TForm1.Button3Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftstring,pdinput, 50,'c11') ;
AdoQuery1.Parameters.CreateParameter('P2',ftstring,pdinput, 50,'cn11') ;
AdoQuery1.Parameters.CreateParameter('P3',ftinteger,pdinput, 50,25) ; AdoQuery1.ExecSQL ;
end;
五 利用adoquery调用第一个过程，返回数据集的.
procere TForm1.Button4Click(Sender: TObject);
begin
AdoQuery1.Close ;
AdoQuery1.Parameters.Clear ; AdoQuery1.SQL.Clear ; AdoQuery1.SQL.Add('{call PKG_JCCTEST1.GetSubAndSum2(?,?)}') ;
AdoQuery1.Parameters.CreateParameter('P1',ftinteger,pdinput, 50,25) ;
AdoQuery1.Parameters.CreateParameter('P2',ftinteger,pdinput, 50,22) ; AdoQuery1.Open ; Showmessage(string( AdoQuery1.FieldByName('sub').Value)+'-'+
string( AdoQuery1.FieldByName('sum').Value));
end;六.关于三层体系的此类问题两层的解决了，三层类似.
中间层用tadodataset 或tadoquery (+tdatasetprovider),中间层的adoconnection的连接字符串加上plsqlRset=1;
客户端用clientdataset ,大同小异，举例如下: begin
//调用相应的过程
ClientDataSet1.Close ;
ClientDataSet1.Params.Clear ; ClientDataSet1.CommandText := '{call PackageName.ProcereName(?,?)}' ;
ClientDataSet1.Params.CreateParam(ftInteger , 'ParamName1', ptInput) ;
ClientDataSet1.Open ;
end ;
本文来自CSDN博客，转载请标明出处： http://blog.csdn.net/yzsind/archive/2005/01/20/261176.aspx