Visual Basic с Oracle 11g с использованием REF CURSOR НЕ работает - PullRequest
Новая
       28

Visual Basic с Oracle 11g с использованием REF CURSOR НЕ работает

1 голос
/ 28 октября 2011

Я использую Visual Basic 6 для подключения к Oracle 11g. Да, я могу успешно подключиться к базе данных. Проблема заключается в получении наборов записей из базы данных. Я создал пакет Oracle, как показано ниже:

Пакет: 

CREATE OR REPLACE PACKAGE PKG_BASECODE AS

TYPE T_CURSOR IS REF CURSOR;

--// customer
PROCEDURE CustomerCode (
    I_CUST_CODE          IN VARCHAR2
    , I_CUST_NAME        IN VARCHAR2
    , customer_cursor    OUT T_CURSOR
);

END PKG_BASECODE;
/

Body: 

CREATE OR REPLACE PACKAGE BODY PKG_BASECODE AS

--// customer
PROCEDURE CustomerCode (
    I_CUST_CODE          IN VARCHAR2
    , I_CUST_NAME        IN VARCHAR2
    , customer_cursor    OUT T_CURSOR
)
IS
    BEGIN
    OPEN customer_cursor FOR
    SELECT  CUST_CODE      AS KEYVALUE
            , CUST_NAME    AS DATAVALUE
    FROM    CUSTOMER_MASTER
    WHERE   CUST_CODE      LIKE I_CUST_CODE || '%'
    AND     CUST_NAME      LIKE I_CUST_NAME || '%'
    ORDER BY CUST_NAME ASC
    ;
    END CustomerCode;


END PKG_BASECODE;
/

Отлично работает с C #. Я уже проверил.

Теперь у меня есть исходные коды Visual Basic 6 ниже: 

Dim rst As ADODB.Recordset
Dim cmd As ADODB.Command
Dim input1 As ADODB.Parameter
Dim input2 As ADODB.Parameter
Dim output1 As ADODB.Parameter
Set cmd = CreateObject("ADODB.Command")
With cmd
    .ActiveConnection = tmpDB_Total

    .CommandText = "PKG_BASECODE.CustomerCode"
    .CommandType = adCmdStoredProc

    .Parameters.Append .CreateParameter("I_CUST_CODE", adVarChar, adParamInput, 10, "")
    .Parameters.Append .CreateParameter("I_CUST_NAME", adVarChar, adParamInput, 50, "")
    .Parameters.Append .CreateParameter("CustomerCode", adVarChar, adParamReturnValue)
    Set rst = .Execute
End With

If Not rst.BOF And Not rst.EOF Then
    Do Until rst.EOF
        Debug.Print rst.Fields(1).Value & "," & rst.Fields(0).Value
        rst.MoveNext
    Loop
End If

И источник подключения ниже: 

tmpDB_Total.Open "Provider=OraOLEDB.Oracle;" _
                 & "Password=mes123;" _
                 & "User ID=mes;" _
                 & "Persist Security Info=True;" _
                 & "Data Source=stmdev;"

И я получаю ошибку что-то о параметрах. Сообщение об ошибке написано на корейском языке, поэтому я не могу написать сразу. Прошу понять меня. Может ли кто-нибудь помочь мне с этой проблемой?

1 Ответ

2 голосов
/ 28 октября 2011

У вас есть дополнительный параметр. Только не пытайтесь добавить что-либо к этому третьему параметру, и он должен работать. Обратите внимание, что вам нужно будет установить Cmd.Properties("PLSQLRSet") = TRUE

...