Вернуть значение параметра в VBScript

Question

Ниже приведен пример попытки вернуть значение выходного параметра PL / SQL в VBScript.

Мое действительное требование намного сложнее, но чтобы упростить и чтобы я мог учиться, я просто пытаюсь вернуть значение Привет мир Proc.

См. Примеры ниже.

На моем локальном ноутбуке БД я создал

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

VBScript Я пытаюсь - но получаю ошибку "неправильного типа":

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