使用VB6調用Oracle 11g存儲過程

Question

我有一個簡單的Oracle過程，如下所示。我正在嘗試使用VB6調用該過程並從過程中提取輸出。

CREATE OR REPLACE PROCEDURE EXTRACTTXN (reportdate IN DATE, p_recordset OUT SYS_REFCURSOR) AS 
BEGIN 
OPEN p_recordset FOR 
SELECT 
    TXN_ID, 
    TXN_ACTION, 
    TXN_STATUS, 
    TXN_DATE, 
    TXN_AMOUNT 
FROM TRANSACTIONS 
WHERE 
    TRUNC(TXN_DATE) = TRUNC(reportdate) 
END EXTRACTTXN; 

VB代碼是這樣的;

Sub FetchTransactions(ByVal ReportDate As Date, cnnMine as ADODB.Connection) 
    On Error GoTo TrapErr 
    Dim cmdMine As ADODB.Command, rsMine As ADODB.Recordset 

    cmdMine.ActiveConnection = cnnMine 
    cmdMine.CommandTimeout = 300 
    cmdMine.CommandType = adCmdStoredProc 
    cmdMine.CommandText = "EXTRACTTXN" 

    cmdMine.Parameters.Append cmdMine.CreateParameter("reportdate", adDate, adParamInput, , Format(ReportDate, "DD-MMM-YYYY")) 
    cmdMine.Parameters.Append cmdMine.CreateParameter("p_recordset", adVariant, adParamOutput) 
    Set rsMine = cmdMine.Execute 

    Do While rsMine.EOF 
     Debug.Print rsMine!TXN_ID, rsMine!TXN_ACTION, rsMine!TXN_STATUS, rsMine!TXN_DATE, rsMine!TXN_AMOUNT 
     rsMine.MoveNext 
    Loop 
    rsMine.Close 

    Exit Sub 
TrapErr: 
    MsgBox Err.Number & " - " & Err.Description, vbExclamation, App.ProductName 
End Sub 

運行代碼時，我收到以下錯誤：

ORA-06550：第1行，第7列： PLS-00306：在調用 'EXTRACTTXN' 錯號碼或類型的參數ORA-06550：第1行第7列： PL/SQL：語句被忽略

我的代碼有什麼問題嗎？感謝幫助。 Niz

Answer 1

我設法得到這個排序。這主要是因爲我對Oracle及其複雜性有所瞭解。

以下是我所做的更改;

1. 存儲過程更改。請注意，我在Where子句中更改了TRUNC（reportdate，'DD'）。

   CREATE OR REPLACE PROCEDURE EXTRACTTXN (reportdate IN DATE, p_recordset OUT SYS_REFCURSOR) AS 
   BEGIN 
   OPEN p_recordset FOR 
   SELECT 
       TXN_ID, 
       TXN_ACTION, 
       TXN_STATUS, 
       TXN_DATE, 
       TXN_AMOUNT 
   FROM TRANSACTIONS 
   WHERE 
       TRUNC(TXN_DATE) = TRUNC(reportdate, 'DD') 
   END EXTRACTTXN; 
   

2. VB代碼更改（請注意，我有一個呼叫括號內改變CommandText中，除去參數名稱，更改的日期格式DD/MMM/YYYY並取消了輸出參數）

   Sub FetchTransactions(ByVal ReportDate As Date, cnnMine as ADODB.Connection) 
       On Error GoTo TrapErr 
       Dim cmdMine As ADODB.Command, rsMine As ADODB.Recordset 
   
       cmdMine.ActiveConnection = cnnMine 
       cmdMine.CommandTimeout = 300 
       cmdMine.CommandType = adCmdStoredProc 
       cmdMine.CommandText = "{ call EXTRACTTXN}" 
   
       cmdMine.Parameters.Append cmdMine.CreateParameter(, adDate, adParamInput, , Format(ReportDate, "DD/MMM/YYYY")) 
       Set rsMine = cmdMine.Execute 
   
       Do While rsMine.EOF 
        Debug.Print rsMine!TXN_ID, rsMine!TXN_ACTION, rsMine!TXN_STATUS, rsMine!TXN_DATE, rsMine!TXN_AMOUNT 
        rsMine.MoveNext 
       Loop 
       rsMine.Close 
   
       Exit Sub 
       TrapErr: 
       MsgBox Err.Number & " - " & Err.Description, vbExclamation, App.ProductName 
       End Sub 
   

以上工作完美。

Regards，Niz

Answer 2

問題是您的VB代碼中指定的參數類型與PL/SQL代碼中指定的參數類型不匹配。問題最可能的原因是VB6中的Format函數返回Variant類型，而不是Date類型，並且Variant類型設置爲String類型。有關Format函數的更多信息，請參閱this。

如果你不知道，Variant變量的設置方式是保留8個字節來告訴世界實際變量類型是什麼。因此，如果在將Format函數應用到它後傳遞了ReportDate，它將是一個Variant，它告訴世界這是一個字符串。 ADO Parameter對象可能對此感到滿意（畢竟，SQL Server很樂意將正確格式化的字符串解析爲Date字段），而Oracle則不然。在我與Oracle有限的經驗中，我發現它比SQL Server更爲驚險。

嘗試丟失格式功能，看看你是否至少得到不同的錯誤。