存储过程openfor

1. 啥叫“存储过程”啊

存储过程
存储过程是保存在数据库中的专门进行数据操作的代码过程。存储过程通常与触发器结合使用，来控制数据的完整性。在打开数据库时，存储过程被自动加载到内存中，可以象其他过程文件一样进行调用。

1．建立存储过程
可以在项目管理器中选择建立或修改存储过程。在项目管理器的Data选项卡中选定Stored Proceres节点，然后单击New、Add或Modify按钮都将打开存储过程文本编辑器，如图7-12所示。

也可以在首先打开数据库的情况下，执行MODIFY STRUCTURE命令打开存储过程文本编辑器。如：

OPEN DATABASE dbMyData
MODIFY STRUCTURE

一个数据库的所有存储过程包含在一个文件中，过程使用PROCEDURE语句声明，这与一般的过程文件是完全一样的。

例如，下面为数据库建立了一个名为NewStuId的存储过程，该过程为学生档案表的StuId字段根据当前StuId中的最大值自动生成一个编号，并保存到StuId字段中中，如图7-13所示。

图7-12 可以在项目管理器选择建立或修改存储过程

图7-13 NewStuId存储过程

执行下面的代码，将在学生档案表中添加一条新记录，并为StuId字段赋值。

APPEND BLANK

NewStuId() &&执行存储过程

需要注意的是，如果准备存储过程用于表的触发器，则不能包含如图7-13中所示的CALCULATE、GO和REPLACE这些引起记录移动的命令。

2．从文本文件中导入存储过程
可以使用APPEND PROCEDURES命令将文本文件中的存储过程以编程的方式添加到当前数据库中，其语法格式如下：

APPEND PROCEDURES FROM FileName [AS nCodePage] [OVERWRITE]

其中，FileName指定保存存储过程的文本文件名称；AS nCodePage指定要追加其存储过程的文本文件要转换的代码页；OVERWRITE指定用文本文件中的过程改写数据库中的当前存储过程，如果不包含此参数，文本文件中的存储过程将追加到当前存储过程中。

需要注意的是，在使用该命令前，数据库必须以独占方式打开并设置为当前数据库。

3．将存储过程导出到文本文件中
可以使用COPY PROCEDURES命令将当前数据库中的存储过程导出到文本文件，其语法格式如下：

COPY PROCEDURES TO FileName [AS nCodePage] [ADDITIVE]

其中，FileName指定文本文件名，存储过程将被复制到此文本文件中；AS nCodePage指定文本文件的代码页；ADDITIVE指定将存储过程追加到指定文本文件尾，如果若省略该参数，则覆盖文本文件的内容。

4．查看数据库中的存储过程
可以使用DISPLAY PROCEDURES或LIST PROCEDURES命令显示当前数据库中的存储过程名称，二者的功能基本相同。其中，DISPLAY PROCEDURES命令的语法格式如下：

DISPLAY PROCEDURES [TO PRINTER [PROMPT] | TO FILE FileName] [NOCONSOLE]

其中，TO PRINTER [PROMPT]指定将显示结果输出到打印机中，包含PROMPT子句可以在打印开始前显示一个打印对话框；TO FILE FileName指定将显示结果输出到FileName指定的文件中；NOCONSOLE指定不向Visual FoxPro主窗口或活动的用户自定义窗口输出。

例如，下面的代码将显示dbMyData数据库中的存储过程名称。

OPEN DATABASE dbMyData

DISPLAY PROCEDURES

7.3.6 设置触发器
触发器是绑定在表上的表达式，当表中的任何记录被指定的操作命令修改时，触发器被激发。当数据修改时，触发器可执行数据库应用程序要求的任何其他操作。

触发器作为特定表的属性来创建和存储。如果从数据库中移去一个表，则同时删除和该表相关联的触发器。从前面的表7-7可以看出，触发器是在进行了其他所有检查之后（如有效性规则、主关键字的实施，以及NULL值的实施）被激活，位于所有约束的最后面。并且与字段级规则和记录级规则不同，触发器不对缓冲数据起作用。

1．建立触发器
可以使用表设计器或CREATE TRIGGER命令来创建触发器。对于每个表，可为插入、更新及删除3个事件各创建一个触发器。在任何情况下，一个表最多只能有3个触发器。触发器必须返回“真”（.T.）或“假”（.F.），只有返回“真”时操作才能继续进行。能够激发触发器的命令如表7-9所示。

表7-9 能够激发触发器的命令

触发器
命令

删除触发器
DELETE命令

插入触发器
APPEND FROM、APPEND FROM ARRAY、APPEND BLANK、IMPORT、INSERT-sql和RECALL命令

序表

触发器
命令

更新触发器
GATHER、REPLACE、REPLACE FROM ARRAY和UPDATE SQL命令

需要注意的是，不能对有触发器的表使用INSERT命令，但是可以使用INSERT-SQL命令；发出PACK或ZAP不会激发任何触发器；如果更新具有删除标记的记录，不会激发触发器；如果表使用了缓冲模式，只有当使用TABLEUPDATE( )函数进行发送更新时，才激发更新触发器。

下面是在dbMyData数据库中建立的4个存储过程。其中，InsertData用于在添加记录时显示一个“新增记录…”提示；UpdateData用于在记录更新时自动将更新记录写入到一个日志表tblStudent2中，来记录用户对学生档案表所做的修改；DeleteData用于在删除记录时显示一个信息框，询问用户是否确认删除记录；WriteLog用于写入日志，该过程可以接收来自UpdateData过程的参数传入值。

PROCEDURE WriteLog

PARAMETERS lcStuId,lcStuName,lcClassName,ldEnterDate,lnChinese,lnMaths,lnTotal

*!* 将变动写入到日志表tblStuden2中

INSERT INTO tblStudent2 (StuId,StuName,ClassName,EnterDate,Chinese,Maths,Total) ;

VALUES (lcStuId,lcStuName,lcClassName,ldEnterDate,lnChinese,lnMaths,lnTotal)

PROCEDURE InsertData

WAIT WINDOW "新增记录..." NOWAIT TIMEOUT 2

RETURN .T.

PROCEDURE UpdateData

WAIT WINDOW "正在将变动写入日志表..." NOWAIT TIMEOUT 2

WriteLog(StuId,StuName,ClassName,EnterDate,Chinese,Maths,Total)

RETURN .T.

PROCEDURE DeleteData

IF MESSAGEBOX("确认删除该记录吗？",4+32," 提示")=6

RETURN .T.

ELSE

RETURN .F.

ENDIF

打开表设计器，在Table选项卡的Insert trigger、Update trigger和Delete trigger文本框中分别输入InsertData()、UpdateData()和DeleteData()，如图7-14所示。

图7-14 为表建立触发器

也可以使用CREATE TRIGGER命令为表建立触发器表达式，该命令的语法格式如下：

CREATE TRIGGER ON TableName FOR DELETE | INSERT | UPDATE AS lExpression

其中，TableName是要建立触发器的表名称，lExpression是触发器表达式。例如，下面使用该命令为学生档案表建立了与图7-14同样的触发器表达式。

OPEN DATABASE dbMyData

CREATE TRIGGER ON 学生档案表 FOR INSERT AS InsertData() &&建立插入触发器

CREATE TRIGGER ON 学生档案表 FOR UPDATE AS UpdateData() &&建立更新触发器

CREATE TRIGGER ON 学生档案表 FOR DELETE AS DeleteData() &&建立删除触发器

2．删除触发器
可以在表设计器的Table选项卡中删除触发器或使用DELETE TRIGGER命令从数据库表中删除触发器。其中，DELETE TRIGGER命令的语法格式如下：

DELETE TRIGGER ON TableName FOR DELETE | INSERT | UPDATE

其中，TableName是要删除触发器的表名称。

例如，下面的代码将删除学生档案表中的插入触发器。

DELETE TRIGGER ON 学生档案表 FOR INSERT

3．修改触发器
可以在表设计器的Table选项卡中或者使用CREATE TRIGGER命令来修改触发器。使用命令修改触发器与建立触发器时相同。

2. 怎么写存储过程

一、整体格式。存储过程的格式如下：
CREATE PROCEDURE [creator.]"proc_name" ( /* parameters,... */ )
/* RESULT ( column-name,... ) */
BEGIN
;
END
其中creator是用户名，比如dba；proc_name是你自己起的过程名；后面的参数可有可无，视自己情况定，如果有格式如(a integer,b char(50))；再下面的RESULT应该是返回值，这个没用过不知道怎么回事！
二、内容。把这些都写好了可能是这样：
CREATE PROCEDURE dba.myProcere ( @a integer,@b char(50))
BEGIN
;
END
但是这样子还是不能编译的，因为整个过程体是空的，而我学习的结果是过程中至少要有一个SQL语句。所以要这样写才不会出错：
CREATE PROCEDURE dba.myProcere ( a integer,b char(50))
BEGIN
SELECT * FROM MyTable
END
三、语法。
1、分号。在写的过程中最郁闷的问题是分号！最后发现好像是这样：
每一句都要加分号，不管是SQl语句还是其它的什么语句，但是最后保存后最后一句的分号会被自动删除！（我用的是Sybase的Sybase Central）。
2、定义变量。
格式为Declare @varName integer;(注意有分号！)“@”号好像可有可无！
3、SELECT语句。
格式为：
SELECT Count(*) INTO @varName FROM MyTable WHERE id = @a;
4、if语句。
格式为：
if(varName > 0) then
return
end if;(注意还有分号！)
5、循环语句。
格式为：
loop
……
end loop;(注意分号！)
6、设置变量值。
格式为：
set @varName = 10;
set @varName = @varName2;
7、字符串。
Declare myString char(50);
set @myString = 'Hello!';
要用单引号！
8、定义游标。
格式为：
declare MyCursor dynamic scroll cursor for
select …… from …… where ……;
9、打开、使用和关闭游标。
Open MyCursor;
fetch next MyCursor into ……;
Close MyCursor;
10、调用方法。
string ls_name="test"
DECLARE ProcName1 PROCEDURE FOR ProcName2
@wg_wellid=2,@wg_wgid=1,@wg_stringsid=1,@bha_wellid=2,@bha_name=:ls_name;
execute ProcName1 ;
close ProcName1 ;
其中ProcName1 是调用程序中自定义的过程名，ProcName2是数据库中存储过程的名字，下面的传入的参数。

3. Java数据库程序中的存储过程设计

本文阐述了怎么使用DBMS存储过程 阐述了使用存储过程的基本的和高级特性 比如返回ResultSet 本文假设你对DBMS和JDBC已经非常熟悉 也假设你能够毫无障碍地阅读其它语言写成的代码（即不是Java的语言） 但是 并不要求你有任何存储过程的编程经历

存储过程是指保存在数据竖拿库并在数据库端执行的程序 你可以使用特殊的语法在Java类中调用存储过程 在调用时 存储过程的名称及指定的参数通过JDBC连接发送给DBMS 执行存储过程并通过连接（如果有）返回结果

使用存储过程拥有和使用基于EJB或CORBA这样的应用服务器一样的好处 区别是存储过程可以从很多流行的DBMS中免费使用 而应用服务器大都非常昂贵 这并不只是许可证费用的问题 使用应用服务器所需要花费的管理 编写代码的费用 以及客户程序所增加的复杂性 都可以通过DBMS中的存储过程所整个地替代

你可以使用Java Python Perl或C编写存储过程 但是通常使用你的DBMS所指定的特定语言 Oracle使用PL/SQL PostgreSQL使用pl/pgsql DB 使用Proceral SQL 这些语言都非常相似 在它们之间移植存储过程并不比在Sun的EJB规范不同实现版本之间移植Session Bean困难 并且 存储过程是为嵌入SQL所设计 这使得它们比Java或C等语言更加友好地方式表达数据库的机制

因为存储过程运行在DBMS自身 这可以帮助减少应用程序中的等待时间 不是在Java代码中执行 个或 个SQL语句 而只需要在服务器端执行 个存储过程 网络上的数据往返次数的减少可以戏剧性地优化性能

使用存储过程

简单的老的JDBC通过CallableStatement类支持存储过程的调用 该类实际上是PreparedStatement的一个子类 假设我们有一个poets数据库 数据库中有一个设置诗人逝世年龄的存储过程 下面是对老酒鬼Dylan Thomas（old soak Dylan Thomas 不指定是否有关典故迹灶 文化 请批评指正 译注）进行调用的详细代码

try{int age = ;String poetName = dylan thomas ;CallableStatement proc = connection prepareCall( { call set_death_age(? ?) } );proc setString( poetName);proc setInt( age);cs execute();}catch (SQLException e){// }

传给prepareCall方法的字串是存储过程调用的书写规范 它指定了存储过程的名称 ？代表了你需要指定的参数

和JDBC集成是存储过程的一个很大的便利 为了从应用中调用存储过程 不需要存根（stub）类或者配置文件 除了你的DBMS的JDBC驱动程序外什么也不需要

当这段代码执行时 数据库的存储过程就被调用 我们没有去获取结果 因为该存储过程并不返回结果 执行成功或失败将通过例外得知 失败可能意味着调用存储姿纤扮过程时的失败（比如提供的一个参数的类型不正确） 或者一个应用程序的失败（比如抛出一个例外指示在poets数据库中并不存在 Dylan Thomas ）

结合SQL操作与存储过程

映射Java对象到SQL表中的行相当简单 但是通常需要执行几个SQL语句 可能是一个SELECT查找ID 然后一个INSERT插入指定ID的数据 在高度规格化（符合更高的范式 译注）的数据库模式中 可能需要多个表的更新 因此需要更多的语句 Java代码会很快地膨胀 每一个语句的网络开销也迅速增加

将这些SQL语句转移到一个存储过程中将大大简化代码 仅涉及一次网络调用 所有关联的SQL操作都可以在数据库内部发生 并且 存储过程语言 例如PL/SQL 允许使用SQL语法 这比Java代码更加自然 下面是我们早期的存储过程 使用Oracle的PL/SQL语言编写

create procere set_death_age(poet VARCHAR poet_age NUMBER)poet_id NUMBER;beginSELECT id INTO poet_id FROM poets WHERE name = poet;INSERT INTO deaths (mort_id age) VALUES (poet_id poet_age);end set_death_age;

很独特？不 我打赌你一定期待看到一个poets表上的UPDATE 这也暗示了使用存储过程实现是多么容易的一件事情 set_death_age几乎可以肯定是一个很烂的实现 我们应该在poets表中添加一列来存储逝世年龄 Java代码中并不关心数据库模式是怎么实现的 因为它仅调用存储过程 我们以后可以改变数据库模式以提高性能 但是我们不必修改我们代码

下面是调用上面存储过程的Java代码

public static void setDeathAge(Poet dyingBard int age)throws SQLException{Connection con = null;CallableStatement proc = null;

try{con = connectionPool getConnection();proc = con prepareCall( { call set_death_age(? ?) } );proc setString( dyingBard getName());proc setInt( age);proc execute();}finally{try{proc close();}catch (SQLException e) {}con close();}}

为了确保可维护性 建议使用像这儿这样的static方法 这也使得调用存储过程的代码集中在一个简单的模版代码中 如果你用到许多存储过程 就会发现仅需要拷贝 粘贴就可以创建新的方法 因为代码的模版化 甚至也可以通过脚本自动生产调用存储过程的代码

Functions

存储过程可以有返回值 所以CallableStatement类有类似getResultSet这样的方法来获取返回值 当存储过程返回一个值时 你必须使用registerOutParameter方法告诉JDBC驱动器该值的SQL类型是什么 你也必须调整存储过程调用来指示该过程返回一个值

下面接着上面的例子 这次我们查询Dylan Thomas逝世时的年龄 这次的存储过程使用PostgreSQL的pl/pgsql

create function snuffed_it_when (VARCHAR) returns integer declarepoet_id NUMBER;poet_age NUMBER;begin first get the id associated with the poet SELECT id INTO poet_id FROM poets WHERE name = $ ; get and return the age SELECT age INTO poet_age FROM deaths WHERE mort_id = poet_id;return age;end; language pl/pgsql ;

另外 注意pl/pgsql参数名通过Unix和DOS脚本的$n语法引用 同时 也注意嵌入的注释 这是和Java代码相比的另一个优越性 在Java中写这样的注释当然是可以的 但是看起来很凌乱 并且和SQL语句脱节 必须嵌入到Java String中

下面是调用这个存储过程的Java代码

connection setAutoCommit(false);CallableStatement proc =connection prepareCall( { ? = call snuffed_it_when(?) } );proc registerOutParameter( Types INTEGER);proc setString( poetName);cs execute();int age = proc getInt( );

如果指定了错误的返回值类型会怎样？那么 当调用存储过程时将抛出一个RuntimeException 正如你在ResultSet操作中使用了一个错误的类型所碰到的一样

复杂的返回值

关于存储过程的知识 很多人好像就熟悉我们所讨论的这些 如果这是存储过程的全部功能 那么存储过程就不是其它远程执行机制的替换方案了 存储过程的功能比这强大得多

当你执行一个SQL查询时 DBMS创建一个叫做cursor（游标）的数据库对象 用于在返回结果中迭代每一行 ResultSet是当前时间点的游标的一个表示 这就是为什么没有缓存或者特定数据库的支持 你只能在ResultSet中向前移动

某些DBMS允许从存储过程中返回游标的一个引用 JDBC并不支持这个功能 但是Oracle PostgreSQL和DB 的JDBC驱动器都支持在ResultSet上打开到游标的指针（pointer）

设想列出所有没有活到退休年龄的诗人 下面是完成这个功能的存储过程 返回一个打开的游标 同样也使用PostgreSQL的pl/pgsql语言

create procere list_early_deaths () return refcursor as declaretoesup refcursor;beginopen toesup forSELECT poets name deaths ageFROM poets deaths all entries in deaths are for poets but the table might bee generic WHERE poets id = deaths mort_idAND deaths age < ;return toesup;end; language plpgsql ;

下面是调用该存储过程的Java方法 将结果输出到PrintWriter

PrintWriter:

static void sendEarlyDeaths(PrintWriter out){Connection con = null;CallableStatement toesUp = null;try{con = ConnectionPool getConnection();

// PostgreSQL needs a transaction to do this con setAutoCommit(false);

// Setup the call CallableStatement toesUp= connection prepareCall( { ? = call list_early_deaths () } );toesUp registerOutParameter( Types OTHER);getResults execute();

ResultSet rs = (ResultSet) getResults getObject( );while (rs next()){String name = rs getString( );int age = rs getInt( );out println(name + was + age + years old );}rs close();}catch (SQLException e){// We should protect these calls toesUp close();con close();}}

因为JDBC并不直接支持从存储过程中返回游标 我们使用Types OTHER来指示存储过程的返回类型 然后调用getObject（）方法并对返回值进行强制类型转换

这个调用存储过程的Java方法是mapping的一个好例子 Mapping是对一个集上的操作进行抽象的方法 不是在这个过程上返回一个集 我们可以把操作传送进去执行 本例中 操作就是把ResultSet打印到一个输出流 这是一个值得举例的很常用的例子 下面是调用同一个存储过程的另外一个方法实现

public class ProcessPoetDeaths{public abstract void sendDeath(String name int age);}

static void mapEarlyDeaths(ProcessPoetDeaths mapper){Connection con = null;CallableStatement toesUp = null;try{con = ConnectionPool getConnection();con setAutoCommit(false);

CallableStatement toesUp= connection prepareCall( { ? = call list_early_deaths () } );toesUp registerOutParameter( Types OTHER);getResults execute();

ResultSet rs = (ResultSet) getResults getObject( );while (rs next()){String name = rs getString( );int age = rs getInt( );mapper sendDeath(name age);}rs close();}catch (SQLException e){// We should protect these calls toesUp close();con close();}}

这允许在ResultSet数据上执行任意的处理 而不需要改变或者复制获取ResultSet的方法

static void sendEarlyDeaths(final PrintWriter out){ProcessPoetDeaths myMapper = new ProcessPoetDeaths(){public void sendDeath(String name int age){out println(name + was + age + years old );}};mapEarlyDeaths(myMapper);}

这个方法使用ProcessPoetDeaths的一个匿名实例调用mapEarlyDeaths 该实例拥有sendDeath方法的一个实现 和我们上面的例子一样的方式把结果写入到输出流 当然 这个技巧并不是存储过程特有的 但是和存储过程中返回的ResultSet结合使用 是一个非常强大的工具

结论

存储过程可以帮助你在代码中分离逻辑 这基本上总是有益的 这个分离的好处有

快速创建应用 使用和应用一起改变和改善的数据库模式

数据库模式可以在以后改变而不影响Java对象 当我们完成应用后 可以重新设计更好的模式

存储过程通过更好的SQL嵌入使得复杂的SQL更容易理解

编写存储过程比在Java中编写嵌入的SQL拥有更好的工具——大部分编辑器都提供语法高亮！

存储过程可以在任何SQL命令行中测试 这使得调试更加容易

并不是所有的数据库都支持存储过程 但是存在许多很棒的实现 包括免费/开源的和非免费的 所以移植并不是一个问题 Oracle PostgreSQL和DB 都有类似的存储过程语言 并且有在线的社区很好地支持

存储过程工具很多 有像TOAD或TORA这样的编辑器 调试器和IDE 提供了编写 维护PL/SQL或pl/pgsql的强大的环境

lishixin/Article/program/Java/hx/201311/25906

4. oracle存储过程的参数游标应该怎样来赋值

oracle存储过程的参数游标应该怎样来赋值
可以使用动态游标。
REF CURSOR 存储过程中使用 open cursor xxx for select xxx ;

5. 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

6. 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。

7. 6、什么是存储过程什么是游标，何时使用、何时不用游标

存储过程是一组命名了的SQL语句集合，是为了完成特定功能汇集而成的。该集合编译后存放在数据库中，可根据实际情况重新编译，可直接运行，也可远程运行且存储过程直接在服务器端运行。

游标实际上是一种能从包括多条数据记录的结果集（结果集是select查询之后返回的所有行数据的集合）中每次提取一条记录的机制充当指针的作用，遍历结果中的所有行，但他一次只指向一行。

游标在循环处理字段的时候使用

建议：尽量避免使用游标，因为游标的效率较差，如果游标操作的数据超过1万行，那么就应该考虑改写；使用基于游标的方法或临时表方法之前，应先寻找基于集的解决方案来解决问题，基于集的方法通常更有效；与临时表一样，游标并不是不可使用。

8. Sqlserver存储过程如何写循环

declare @i int

set @i = 0

while @i < 100

begin

print @i

set @i = @i + 1

end

-- 定义循环变量

declare @loopIndex int set @loopIndex = 0

--定义循环次数

declare @count int set @count=1

-- 取得循环次数

select @count=count(1) from sys_user

-- 开始循环

while @loopIndex <= @count

begin

  -- 定义接收参数

  declare @USER_NAME nvarchar(50)

-- 取得循环的数据

SELECT @USER_NAME = hh.USER_NAME

FROM (SELECT ROW_NUMBER() OVER (ORDER BY USER_NAME) 'rowindex',USER_NAME FROM sys_user)hh 

WHERE hh.rowindex = @loopIndex

-- 进行相关业务逻辑 例如输出结果 

print @USER_NAME

-- 循环自动加一

set @loopIndex = @loopIndex + 1

end

begin

  -- 定义错误返回信息

  declare @error int 

-- 定义接收参数

  declare @User_Name varchar(50)

  declare @Address varchar(50)

  set @error=0

  --定义游标

  declare demo_cursor cursor

  for (select User_Name,Address from sys_user)

  --打开游标--

  open demo_cursor

  --开始循环游标变量--

  fetch next from demo_cursor into @User_Name,@Address

  while @@FETCH_STATUS = 0  --返回被 FETCH语句执行的最后游标的状态--

    begin       

      print @User_Name+'____'+@Address

      set @error= @error + @@ERROR  --记录每次运行sql后是否正确，0正确

      fetch next from demo_cursor into @User_Name,@Address  --转到下一个游标，没有会死循环

    end  

  close demo_cursor --关闭游标

  deallocate demo_cursor  --释放游标

end

更多内容请访问： https://mxdqh.top/