CREATE OR REPLACE PROCEDURE  "GetDBParamsById"  (ParamId IN number)
AS BEGIN
  EXECUTE IMMEDIATE 'SELECT * FROM "TDBParams" WHERE F_PARAMID = ParamId';
END;

EXECUTE  "GetDBParamsById"  ( 234 );

ошибка в строке  1 :
ORA- 00904 :  "PARAMID" : недопустимый идентификатор
ORA- 06512 : на   "TESTUSR.GETDBPARAMSBYID" , line  3 
ORA- 06512 : на  line  1 

CREATE OR REPLACE PROCEDURE  "GetDBParamsById"  (PARAMID IN number)
AS
CURSOR cur_tdbparams IS SELECT * FROM  "TDBParams"  WHERE F_PARAMID = PARAMID;
BEGIN
FOR cur_tdbparams IN cur_tdbparams LOOP
  DBMS_OUTPUT.put_line(cur_tdbparams.F_PARAMID);
END LOOP;
CLOSE cur_tdbparams;
END;

Line # =  5  Column # =  22  Error Text = PLS- 00364 : недопустимое использование циклической индексной переменной 'CUR_TDBPARAMS'

CREATE OR REPLACE PROCEDURE  "GetDBParamsById"  (PARAMID IN number)
AS
CURSOR cur_tdbparams IS SELECT * FROM  "TDBParams"  WHERE F_PARAMID = PARAMID;
BEGIN
FOR var_tdbparams IN cur_tdbparams LOOP
  DBMS_OUTPUT.put_line(var_tdbparams.F_PARAMID);
END LOOP;
END;

EXECUTE  "TDBParams"  ( 245 )
пишет  "Процедура PL/SQL успешно завершена." 

\r
CREATE OR REPLACE PACKAGE MyPack AS\r
TYPE TCursor IS REF CURSOR;\r
PROCEDURE GetData (Cur TCursor);\r
END MyPack;\r

\r
CREATE OR REPLACE PROCEDURE GetDBParamsData (ParamId IN number,Cur OUT MyPack.TCursor)\r
AS\r
BEGIN\r
OPEN Cur FOR \r
SELECT * FROM  "TDBParams"  WHERE F_PARAMID=ParamId;\r
END;\r

\r
set serverout on\r
DECLARE \r
v_cursor MyPack.TCursor; \r
v_name  "TDBParams" .F_NAME%TYPE; \r
v_paramid  "TDBParams" .F_PARAMID%TYPE;\r
BEGIN \r
GetDBParamsData ( 245 ,v_cursor); \r
LOOP \r
FETCH v_cursor \r
INTO v_name; \r
EXIT WHEN v_cursor%NOTFOUND; \r
DBMS_OUTPUT.PUT_LINE(v_name || \' | \' || v_paramid); \r
END LOOP; \r
CLOSE v_cursor; \r
END;\r

\r
pRecordset->Open(_btsr_t( "BEGIN GETDBPARAMSDATA (245 ,CUR); END;"),\\\r
vConnection,adOpenKeyset, adLockBatchOptimistic, adCmdText));\r

\r
 "{ call GETDBPARAMSDATA(?)}:PARAMID=245 ,"\r

set serverout on
var result refcursor;  -- For Oracle9i only
 
 --var result MyPack.TCursor; -- For old Oracle version
 
exec GetDBParamsData( 245 ,:result);
print :result;

set serverout on;
set serveroutput on;
set serveroutput on  1000000 ;  -- так тоже было в одном из постингов
 

считать CommandText 
 "{ call GETPARAMSDATA (?)}: PARAMID=245 ,"
и заменить его на 
 "{ call GETPARAMSDATA (?,{resultset 0 ,CUR}) }: PARAMID= 245 ,"

 "{ call { call GETPARAMSDATA (?,{resultset 0 ,CUR}) }: PARAMID= 245 ,}: 
PARAMID= 245 , "

pCommand->Prepared = VARIANT_TRUE;
pCommand->Parameters->Refresh();

 "{ call GETDATA(?)}: CUR=NULL, " 

 "{ call GETDATA }: CUR=NULL, " 

при pRecordset = pCommand->m_pCommand->Execute(&vtMissing,&vtMissing,adCmdStoredProc);
ошибка: "ошибочно число или типы аргументов при обращении к 'GETDATA'

pCommand->CommandType = adCmdText;
pCommand->Properties->GetItem( "PLSQLRSet" )->Value = VARIANT_TRUE;