问使用ADO而不是.net和VC++的Oracle存储过程

EN

create or replace PROCEDURE GetSettings
(
  cv_1 OUT SYS_REFCURSOR
)
AS
BEGIN
   OPEN  cv_1 FOR
      SELECT KEY ,
             VALUE 
        FROM Settings;
END;

      _CommandPtr pCommand;
      _ParameterPtr pParam1;

      HRESULT hr = pCommand.CreateInstance (__uuidof (Command));

      if (FAILED (hr))
           return;

      pCommand->ActiveConnection = m_pConn;
      pCommand->CommandText = "GetSettings";
      pCommand->CommandType = adCmdStoredProc;
      _RecordsetPtr pRecordset;
      hr = pRecordset.CreateInstance (__uuidof (Recordset));
      if (FAILED (hr))
           return;

      pRecordset = pCommand->Execute(NULL,NULL,adCmdStoredProc);