调用不带参数 ADODB 的 oracle 存储过程

Question

我还没有找到关于如何在 Excel 中使用 ADODB 调用 Oracle 存储过程的任何地方，其中存储过程没有输入参数。

假例子说明缺少输入参数：

CREATE OR REPLACE PROCEDURE Get_Data
(OUTPUT OUT SYS_REFCURSOR) IS

******************************************************************************/
BEGIN

OPEN OUTPUT FOR 

SELECT DISTINCT
       B.ITEM_ID
       B.ITEM_DESC
    FROM ITEM_FILE B
WHERE ITEM_ID IS NOT NULL
 ORDER BY B.ITEM_ID
; 

END Get_Data;
/

哦，存储过程是必需的，因为我们不想让用户访问 SQL 来创建他们想要的任何 SQL。

这甚至可能吗？如果是这样，调用它需要什么样的代码？

谢谢， 丹

Answer 1

将您的过程转换为函数：

CREATE OR REPLACE FUNCTION Get_Data RETURN SYS_REFCURSOR IS
res SYS_REFCURSOR;

BEGIN

OPEN OUTPUT FOR 
SELECT DISTINCT
       B.ITEM_ID
       B.ITEM_DESC
    FROM ITEM_FILE B
WHERE ITEM_ID IS NOT NULL
ORDER BY B.ITEM_ID;  
RETURN res;

END Get_Data;
/

在 VBA 中的调用是这样的：

cmd.CommandText = "{CALL Get_Data()}"
cmd.Properties("PLSQLRSet") = True
Set Rst1 = cmd.Execute 
cmd.Properties("PLSQLRSet") = False

注意，默认情况下使用 OUT 参数如下：

cmd.Parameters.Append cmd.CreateParameter("OUTPUT", adVarChar, adParamOutput, 100)

但是，对于 RefCursor 参数，您不得使用 cmd.Parameters.Append 声明它们。

看看Provider for OLE DB Developer's Guide，它包含几个例子。章节Stored Procedures and Functions Returning Rowsets应该是最适合你的。