vba 调用plsql package中的procedure

 

public oraSS as OraSession
public oraDB as OraDatabase
public oraDS as OraDynaset
public oraSql as OraSqlStmt

set oraSS = CreatObject("OracleInProcServer.XoraSession")
set oraDB = oraSS.OpenDatabase(DBNAME,USERID & "/" & PASSWD,ORADB_DEFAULT)
IF oraSS.LastServerErr <> 0 then
    Err.Number = oraSS.LastServerErr
    Err.Description = oraSS.LastServerErrText
end if
With oraDB
    strsql = "begin " & PASSWD & ".PKG_ANARULE2401.PRO_ANARULE2401(" & _
   ":IN_KijituFrom," & _
   ":IN_KijituTo," & _
   ":OUT_Cnt," & _
   ":IO_Cur," & _
   ");end;"
    .Parameters.Add("IN_KijituFrom",Format(txtDateFrom,"YYYYMM"),ORAPARM_INPUT)
    .Parameters("IN_KijituFrom").serverType = ORATYPE_VARCHAR2;

    .Parameters.Add("IN_Kij