oracle存储过程返回码为999,Oracle 存储过程返回结果集_oracle

1.返回数组 (作者:enhydraboy(乱舞的浮尘) )

在oracle后台创建一个程序包或者存储过程

connect scott/tiger;

CREATE OR REPLACE PACKAGE ado_callpkg AS

TYPE eid IS TABLE of NUMBER(4) INDEX BY BINARY_INTEGER;

TYPE ename IS TABLE of VARCHAR2(40) INDEX BY BINARY_INTEGER;

PROCEDURE getEmpNames (empid OUT eid,empname OUT ename);

end ado_callpkg;

CREATE OR REPLACE PACKAGE BODY ado_callpkg  AS

PROCEDURE getEmpNames (empid OUT eid,empname OUT ename) IS

CURSOR c1 IS select employee_id,first_name||','||Middle_Initial||','||last_name as name from employee;

cnt NUMBER DEFAULT 1;

c c1%ROWTYPE;

BEGIN

open c1;

LOOP

FETCH c1 INTO c;

empname(cnt):=c.name;

empid(cnt):=c.employee_id;

EXIT WHEN c1%NOTFOUND;  -- process the data

cnt :=cnt+1;

END LOOP;

close c1;

END;

end ado_callpkg;

2 前台vb程序调用

Dim cn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim cmd As New ADODB.Command

Dim str As String

str = "{call ado_callpkg.getEmpNames({resultset 100,empid,empname})}"

cn.Open "Provider=MSDAORA.1;Password=tiger;User ID=scott;Data Source=ORACLE;Persist Security Info=True"

With cmd

.CommandText = str

.ActiveConnection = cn

.CommandType = adCmdText

End With

rs.CursorLocation = adUseClient

rs.Open cmd

Do While Not rs.EOF

Debug.Print rs.Fields(0).Value & vbTab & rs.Fields(1).Value

rs.MoveNext

Loop

------------

总结

1 oracle的后台存储过程，应该通过一个类似数组并且带有数字索引的变量返回，有多少个列，就有对应多少个变量

2 前台，调用的sql语句写法要注意，

{call .(,,....,{resultset ,,,...})}

注意的细节，

(1) 要自己指定一个数字，表示接受的行数大小，如果太小，而实际返回的记录大于这个数字，会出错

(2) 如果有输入参数，应该在command中创建输入参数,对应的地方用?替代，如

{call ado_callpkg.getEmpNames(?,{resultset 100,empid,empname})}

(3) output和你存储函数的定义一致，参数名要一样，次序也一样，否则也会出错。

欢迎大家阅读《Oracle 存储过程返回结果集_oracle》,跪求各位点评,若觉得好的话请收藏本文，by 搞代码

微信 赏一包辣条吧~

支付宝 赏一听可乐吧~