1

我正在尝试使用 Access / VBA 使用 ADO 命令对象从我的 Oracle 存储过程中检索结果集。

我不断收到错误：

[Oracle][ODBC][Ora]ORA-06550: line 1, column 19:
PLS-00201: identifier 'RETURNDATA' must be declared
ORA-06550: line 1, column 7:
PL/SQL: Statement ignored

我在网上阅读了许多关于它是如何完成的文章 - 并尝试了不同的方法（即使用执行而不是命令对象），但我似乎无法让它工作。

微软有一篇很好的关于如何执行此操作的知识库文章 - 但尽管遵循他们的示例 - 我似乎无法让它工作。 http://support.microsoft.com/kb/176086

当我在 Oracle SQL Developer 中运行 PL/SQL时，返回值列在“输出变量”窗口中。这告诉我存储过程都在工作，并且已授予必要的权限。

甲骨文版本：

选择 * 从 v$version

Oracle9i Enterprise Edition Release 9.2.0.8.0 - Production
PL/SQL Release 9.2.0.8.0 - Production
"CORE   9.2.0.8.0   Production"
TNS for 32-bit Windows: Version 9.2.0.8.0 - Production
NLSRTL Version 9.2.0.8.0 - Production

Oracle 包定义：

CREATE OR REPLACE
PACKAGE test AUTHID DEFINER AS
  PROCEDURE testSP (returnData OUT NUMBER);
END test;
/
CREATE OR REPLACE
PACKAGE BODY test AS
  PROCEDURE testSP (returnData OUT NUMBER) IS
    BEGIN
      returnData := 7;
    END;
END test;

MS Access VBA 代码

Public Sub testSP()
  Dim oraConn As ADODB.Connection
  Dim oraCmd As ADODB.Command
  Dim oraRetSet As ADODB.Recordset
  Dim oraNum As Integer

  Set oraConn = New ADODB.Connection

  ' Discovered I need to set this to Read/Write or the SP cannot do any INSERT operations
  oraConn.Mode = adModeReadWrite

  ' Connect to the Oracle Server
  oraConn.Open "Driver={Oracle in OraHome102};dbq=oradsn;Uid=username;Pwd=password"

  ' Set up our Command.
  Set oraCmd = New ADODB.Command
  Set oraCmd.ActiveConnection = oraConn
  oraCmd.CommandType = adCmdText
  oraCmd.Parameters.Append oraCmd.CreateParameter("returnData", adNumeric, adParamOutput)
  oraCmd.CommandText = "{CALL test.testSP({resultset 1, returnData})}"

  ' Set up our Recordset
  Set oraRetSet = New ADODB.Recordset
  oraRetSet.CursorType = adOpenStatic

  ' Attach our Recordset to our Command
  Set oraRetSet.Source = oraCmd

  ' Open our Recordset
  oraRetSet.Open

  ' Retreive our Stored Procedure Result
  oraNum = oraRetSet.Fields(0).Value

  ' Display Result to user
  Debug.Print ">>> Return Value: " & oraNum

  ' Close the Recordset & Connection Objects
  oraRetSet.Close
  oraConn.Close

  ' Clean Up
  Set oraConn = Nothing
  Set oraCmd = Nothing
  Set oraRetSet = Nothing

End Sub

我真的在画空白——这意味着它可能是我错过的一些小东西。任何帮助，将不胜感激。

8 月 29 日更新 我没有取得任何进展。我尝试从 ODBC 切换到 OLEDB 提供程序，遵循另一个 stackoverflow 问题/答案作为指导：

如何从 Excel VBA 脚本调用 Oracle 存储过程？

' Connect to the Oracle Server
oraConn.ConnectionString = "Provider=OraOLEDB.Oracle;Data Source=oradsn;" & _
                 "User ID=username;Password=password;"
oraConn.Open

Set oraCmd = New ADODB.Command
Set oraCmd.ActiveConnection = oraConn
oraCmd.Parameters.Append oraCmd.CreateParameter("returnData", adSmallInt, adParamOutput)
oraCmd.Properties("PLSQLRSet") = True
oraCmd.CommandText = "{CALL test.testSP(?)}"
Set oraRetSet = oraCmd.Execute
oraCmd.Properties("PLSQLRSet") = False

oraNum = oraRetSet.Fields(0).Value

这摆脱了未声明的标识符，但它不返回任何记录集 .. oraRetSet.Fields.Count 等于 0

4

1 回答 1

1

终于搞清楚是怎么回事了。

这个网站最终使灯亮起来： http ://www.oracle-base.com/articles/misc/using-ref-cursors-to-return-recordsets.php

我试图返回一个特定的值 - 一个错误代码。在 ADO 中使用记录集更多地是为了返回数据集。

如果您希望返回游标引用，作为记录集，您需要将 OUT 参数设置为游标引用数据类型，例如 SYS_REFCURSOR。

create or replace
PROCEDURE list_staff (r_stafflist OUT SYS_REFCURSOR) AS 
    BEGIN 
      OPEN r_stafflist FOR
        SELECT name,
               telephone,
               department
        FROM   stafflist
        ORDER BY name;
    END list_staff;

然后 ADO 将在发出命令时自动绑定到引用光标。您不要将光标添加到 ADO Command 对象参数中。

于 2013-08-29T18:51:04.187 回答