VB调用ORACLE存储过程返回多记录集

一直没有写原创的习惯，每次都是从别的贴子拷贝过来。实在是不好意思。最近想把自己做的一个项目中所解决的问题和大家共享一下。希望对遇见这种情况的朋友有所帮助。
程序中要用到VB调用ORACLE的存储过程，存储过程返回的是多记录集。要是在C#中这种情况很好解决。但是到了VB中。情况就不一样了。在CSDN上也查了。都没有人说出完整的解决的解决方案。经过几天的摸索。终于搞定。下面是存储过程和相应的VB调用代码。
存储过程如下：大家只需关心返回的记录集

存储过程
1

CREATE OR REPLACE PACKAGE BODY REPORT AS
2

PROCEDURE p_Report_Yysc_Zyq(strDate in date,v_result1 out t_cursor,v_result2 out t_cursor)
3

is
4

nCount int;
5

d_date date;
6

begin
7

open v_result1 for SELECT SSDW,sum(nvl(ZJS,0)) ZJS,sum(nvl(KJS,0)) KJS,sum(nvl(RCY,0)) RCY,sum(nvl(RC_Y,0)) RC_Y,sum(nvl(YLBH,0)) YLBH,sum(nvl(Y_LBH,0)) Y_LBH,sum(nvl(YCYL,0)) YCYL,sum(nvl(NCYL,0)) NCYL,round((1- (sum(nvl(RC_Y,0))/0.823/sum(nvl(RCY,0)))),3)*100 HS FROM REPORT_YYSC_ZYQ where TRUNC(rq)=TRUNC(d_date) and HZLX='1' group by SSDW;
9

open v_result2 for select * from REPORT_YYSC_ZYQ where trunc(RQ)=trunc(strDate) and HZLX='1';
10

end p_Report_Yysc_Zyq;

VB调用的代码如下：用下面的两种方式都可以调用：

VB调用存储过程1
2

Public Function ExecProcByODBC()Function ExecProcByODBC(ByVal ProcName As String, ByVal sDate As Date) As Variant
3

Dim mycmd As ADODB.Command
4

Set mycmd = New ADODB.Command
5

Dim rs As New ADODB.Recordset
8

mycmd.CommandText = "{call " + ProcName + "(?,{resultset 1, v_result1,v_result2})}"
9

Set param = mycmd.CreateParameter("sDate", adDate, adParamInput, 16, sDate)
11

mycmd.Parameters.Append param
14

mycmd.CommandType = adCmdText
15

rs.CursorType = adOpenStatic
17

rs.LockType = adLockReadOnly
18

Set mycmd.ActiveConnection = MyCnt
20

Set rs.Source = mycmd
21

rs.Open
22

Set ExecProcByODBC = rs
23

Set rs = Nothing
24

Set mycmd = Nothing
25

End Function

VB调用存储过程2
2

Public Function ExecProc()Function ExecProc(ByVal ProcName As String, ByVal sDate As Date) As Variant
3

Dim mycmd As ADODB.Command
4

Set mycmd = New ADODB.Command
5

Dim rs As New ADODB.Recordset
6

Dim rs1 As New ADODB.Recordset
7

Set mycmd.ActiveConnection = MyCnt
8

mycmd.CommandType = adCmdStoredProc
9

mycmd.CommandText = ProcName
10

mycmd.Parameters.Append mycmd.CreateParameter("sDate", adDate, adParamInput, 16, sDate)
13

Set rs = mycmd.Execute
25

Set ExecProc = rs
26

Set rs = Nothing
27

Set mycmd = Nothing
28

End Function

最后还要强调一点的时候，在写连接字符串的时候。务必如下。否则在用VB的NEXTRECORDSET会调用不成功。
strCnt = "Provider=OraOLEDB.Oracle.1;Password=1;Persist Security Info=True;User ID=1;Data Source=ORA92;PLSQLRSet=1"

转载于:https://www.cnblogs.com/chinhr/archive/2007/05/21/754040.html

VB调用ORACLE存储过程返回多记录集相关推荐

VB6：通过ADO访问Oracle存储过程返回的结果集
微软的MDAC中oledb for oracle 驱动--对过程参数:估计:位置绑定该驱动最新支持到Oracle8i的水平,且不再更新了使用该驱动.只能使用ODBC的存储过程调用方式: " ...
Java(CallableStatement)调用Oracle存储过程返回结果集(ResultSet)
一:无返回值的存储过程调用存储过程: CREATE OR REPLACE PROCEDURE PRO_1(PARA1 IN VARCHAR2,PARA2 IN VARCHAR2) AS BEGIN ...
C#调用ORACLE存储过程返回结果集及函数
ORACLE段: 首先在ORACLE建立PACKAGE和PACKAGE BODY,将在这里面定义函数和存储过程返回结果集. 1:建立PACKAGE: CREATE OR REPLACE package ...
vb.net调用oracle存储过程,今天搞好了VB.NET调用Oracle存储过程返回游标的问题
代码: Public Function GetData(ByVal procDate As String) As ArrayListTry Dim conn As New Oracle.DataAcc ...
Java 调用 Oracle 存储过程返回结果集
1. 建立 ref cursor 类型和过程 Sql代码 CREATE OR REPLACE PACKAGE types AS TYPE ref_cursor IS REF CURSOR; END; ...
Oracle 9i 返回一个记录集的方法
1.首先要创建一个包 Codecreate or replace package listdata is type MyCURSOR is REF CURSOR; PROCEDURE GetList( ...
java调用ORACLE 存储过程返回值22
存储过程代码如下: create or replace package mysp is type refcursor is ref curs ...
spring+springMvc+mybatis 调用oracle 存储过程
最近在项目中遇到在mybatis中调用oracle存储过程的问题,网上各种查询,最终解决了问题,在我们项目中我只需要oracle 的存储过程返回一个字符串用来存入数据库作为表数据的主键, 接下来整理代 ...
oracle java存储过程返回值_java程序调用Oracle 存储过程获取返回值(无返回，非结果集，结果集)...
java程序调用Oracle 存储过程获取返回值(无返回,非结果集,结果集) oracle中procedure是不能有返回值的,要想返回值,就得有输出参数,同样要想返回记录集,可以把游标类型作为 ...

VB调用ORACLE存储过程返回多记录集

VB调用ORACLE存储过程返回多记录集相关推荐

最新文章

热门文章