adooracle存储过程

‘壹’ 如何查看oracle的存储过程

使用tode或者Navicat 或者navigtor等连接oracle的工具

找到procere的选项即可查看所有的存储过程，点击某个名字可以看到其中的定义

‘贰’ oracle 存储过程

create or replace procere sp_add_emp2( --创建名为sp_add_emp2存储过程
v_empno emp.empno%type, --------- 传入存储过程中的参数
v_ename emp.ename%type,
v_deptno dept.deptno%type,
v_dname dept.dname%type,

num out number ----------存储过程执行完毕后返回的值
)as
num1 number; ------自定义变量
num2 number;
begin
--查询dept表中的数据总共有多少行，赋值给num1，
--条件是字段deptno等于v_deptno(传进来的参数)
select count(*) into num1 from dept where deptno=v_deptno;
if(num1=0) then --如果没数据
--则给dept表的deptno 和dname列插入一条数据，值为v_deptno,v_dname
insert into dept(deptno,dname) values(v_deptno,v_dname);
end if; --If语句结束语
---同上。
select count(*) into num2 from emp where empno=v_empno;
if(num2=0)then
insert into emp(empno,ename,deptno) values(v_empno,v_ename,v_deptno);
else --如果查询到有数据则提示错误信息，员工ID重复，不插入数据
raise_application_error(-202021,'员工id 重复！！！');
end if;

num:=num1; --定义的输出参数等于num1。
commit; --结束存储过程。

‘叁’ 如何调用一个Oracle存储过程返回一个或多个REF游标，使用ADO从C

代码如下:
CREATE OR REPLACE PROCEDURE P_TESTB
AS

VARCURSOR SYS_REFCURSOR;
R USERS%ROWTYPE;
BEGIN

P_TESTA(VARCURSOR);
LOOP
FETCH VARCURSOR INTO R;
EXIT WHEN
VARCURSOR%NOTFOUND;
DBMS_OUTPUT.PUT_LINE(R.NAME);
END LOOP;
END
P_TESTB;

‘肆’ ADO.Net(C#)中怎么执行Oracle的存储过程

sqlConnection conn=new SqlConnection ();
SqlCommand cmd = conn.CreateCommand();
cmd.CommandType = CommandType.StoredProcere; //命令类型是存储过程
cmd.CommandText = "存储过程的名字";

‘伍’ oracle 数据库 怎么执行存储过程

一。 概述Oracle存储过程开发的要点是：
1; 使用Notepad文本编辑器，用Oracle PL/SQL编程语言写一个存储过程;
2; 在Oracle数据库中创建一个存储过程;
3; 在Oracle数据库中使用SQL*Plus工具运行存储过程;
4; 在Oracle数据库中修改存储过程;
5; 通过编译错误调试存储过程;
6; 删除存储过程;二。环境配置
包括以下内容：
1; 一个文本编辑器Notepad;
2; Oracle SQL*Plus工具，提交Oracle SQL和PL/SQL 语句到Oracle database。
3; Oracle 10g express数据库，它是免费使用的版本;
需要的技巧：
4; SQL基础知识，包括插入、修改、删除等
5; 使用Oracle's SQL*Plus工具的基本技巧;
6; 使用Oracle's PL/SQL 编程语言的基本技巧;三。写一个存储过程
在Notepad, 写下：
CREATE OR REPLACE PROCEDURE skeletonISBEGINNULL;END;把文件存为skeleton.sql.
让我们一行行遍历这个存储过程：
1 CREATE OR REPLACE PROCEDURE skeleton2 IS3 BEGIN
4 NULL;5 END;行1:CREATE OR REPLACE PROCEDURE 是一个SQL语句通知Oracle数据库去创建一个叫做skeleton存储过程， 如果存在就覆盖它;行2:IS关键词表明后面将跟随一个PL/SQL体。
行3:BEGIN关键词表明PL/SQL 体的开始。
四。创建一个存储过程
SQL语句CREATE OR REPLACE PROCEDURE在Oracle数据库中创建、编译和保存一个存储过程。
从Window打开SQL*Plus并且从SQL*Plus 登录到你的数据库;打开skeleton.sql文件。
在SQL命令提示符下输入以下命令：
SQL@skeletonSQL/SQL*Plus装载skeleton.sql文件的内容到 SQL*Plus缓冲区并且执行SQL*Plus语句;SQL*Plus 会通知你存储过程已经被成功地创建。

‘陆’ ADO下怎么通过调用存储过程获取结果集

******************************
晕,有上面这么麻烦吗?
1\打开企业管理器
2\展开左边的树结构,直到看到database
3\右击database,在弹出菜单中找一个项,最后是(K)的,后面还有个三角形的.
4\鼠标指向这一项,又出现一个菜单,其中有一个项,最后是(A)的,点击它,就打开附加数据库的窗口了.
5\在这个窗口内附加数据库,就OK了

‘柒’ oracle 存储过程

create [or replace] procere procere_name (varible {IN|OUT|IN OUT} type) {IS|AS}

[varible { in | out | in out }] type;
[varible { in | out | in out }] type;
......

[cursor curor_name IS select subclause]

begin

body

end [procere_name];

for example:

create or replace procere sp_login_error_count(user_name_var varchar2) IS
--创建名为sp_login_error_count的存储过程，并定义传参
--informix的语法（drop procere sp_login_error_count；create procere sp_login_error_count(user_name_var varchar(50))）

error_count_var integer;
--变量定义
--informix语法（define error_count_var integer;）

begin
--程序开始
--informix语法不用begin，直接开始

select error_count into error_count_var from users where user_name=user_name_var;
--select语句，找到的值放到变量中
--informix语法一样

error_count_var :=error_count_var+1;
--变量加1，这是pl/sql的变量赋值运算。
--informix语法（let error_count_var=error_count_var+1;）

update users set error_count= error_count_var where user_name =user_name_var ;
--更新统计数
--informix语法一样

commit;
--提交
--informix不需要提交

end sp_login_error_count;
--结束存储过程
--informix语法（end procere;）

ORACLE存储过程执行为execute procere_name或exec procere_name
INFORMIX存储过程执行为execute procere procere_name

pl/sql程序由三个块组成：声明部分、执行部分、异常处理部分
declare
/* 声明部分: 在此声明PL/SQL用到的变量,类型及光标 */
begin
/* 执行部分: 过程及SQL语句 , 即程序的主要部分 */
Exception
/* 执行异常部分: 错误处理 */
End;

其中 执行部分是必须的。

‘捌’ VB程序如何用ADO向Oracle存储过程传递数组参数

何苦如此呢，要达到最高效率，当然不能再去解析字符串了，建一张临时表tab,把你要传递的参数插入tab中,存储过程中直接关联下tab不就获取到你要的数据了么

‘玖’ Oracle 的存储过程怎么写。

oracle 存储过程的基本语法

1.基本结构
CREATE OR REPLACE PROCEDURE 存储过程名字
(
参数1 IN NUMBER,
参数2 IN NUMBER
) IS
变量1 INTEGER :=0;
变量2 DATE;
BEGIN

END 存储过程名字

2.SELECT INTO STATEMENT
将select查询的结果存入到变量中，可以同时将多个列存储多个变量中，必须有一条
记录，否则抛出异常(如果没有记录抛出NO_DATA_FOUND)
例子：
BEGIN
SELECT col1,col2 into 变量1,变量2 FROM typestruct where xxx;
EXCEPTION
WHEN NO_DATA_FOUND THEN
xxxx;
END;
...

3.IF 判断
IF V_TEST=1 THEN
BEGIN
do something
END;
END IF;

4.while 循环
WHILE V_TEST=1 LOOP
BEGIN
XXXX
END;
END LOOP;

5.变量赋值
V_TEST := 123;

6.用for in 使用cursor
...
IS
CURSOR cur IS SELECT * FROM xxx;
BEGIN
FOR cur_result in cur LOOP
BEGIN
V_SUM :=cur_result.列名1+cur_result.列名2
END;
END LOOP;
END;

7.带参数的cursor
CURSOR C_USER(C_ID NUMBER) IS SELECT NAME FROM USER WHERE TYPEID=C_ID;
OPEN C_USER(变量值);
LOOP
FETCH C_USER INTO V_NAME;
EXIT FETCH C_USER%NOTFOUND;
do something
END LOOP;
CLOSE C_USER;

8.用pl/sql developer debug
连接数据库后建立一个Test WINDOW
在窗口输入调用SP的代码,F9开始debug,CTRL+N单步调试

‘拾’ 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