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

最新推荐文章于 2025-08-13 17:42:51 发布

weixin_34416649

最新推荐文章于 2025-08-13 17:42:51 发布

阅读量218

点赞数

文章标签：数据库 c#

本文介绍如何使用VB调用Oracle存储过程并处理多记录集的返回结果，提供了两种不同的实现方法及其代码示例。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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