Return 输出参数值到 VBScript

Question

下面是尝试到 return PL/SQL 输出参数到 VBScript 的值的示例。

我的实际需求要复杂得多，但为了简化并让我能够学习，我只是想 return hello world Proc 的值。

参见下面的示例。

在我本地笔记本电脑上创建的数据库

CREATE OR REPLACE PROCEDURE procOneOUTParameter(outParam1 OUT VARCHAR2)
IS
BEGIN
    outParam1 := 'Hello World OUT parameter';
END;
/

VBScript 我正在尝试 - 但收到 "wrong type" 错误：

Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Oracle in XE};Dbq=localhost:1521/xe;User Id=xxx;Password=xxx;"
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cmd.CommandType = 4
cmd.CommandText = "procOneOUTParameter"
cmd.Parameters.Append cmd.CreateParameter("outParam1", adVarChar, adParamOutput, , outParam1)
cmd.Execute

Answer 1

Const adVarChar = 200
Const adParamOutput= 2
Const adCmdStoredProc= 4

Set cn = CreateObject("ADODB.Connection")
cn.Open "Driver={Oracle in XE};Dbq=localhost:1521/xe;User Id=XXX;Password=XXX;"
Set cmd = CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "procOneOUTParameter"
cmd.Parameters.Append cmd.CreateParameter("@outParam1",adVarChar,adParamOutput,200)
cmd.Execute
getParam = cmd.Parameters("@outParam1").Value
WScript.Echo getParam

Return 输出参数值到 VBScript

Return Out Param value to VBScript

oracle

vbscript

plsql