PCmd- Parameters- Count fails when there's no parameter

Question

Hello,
With ORAOLEDB 8.1.7, MDAC 2.5, IIS 4.0 and COM : we have problems with pCmd->Parameters->Count.
When my program raise an exception before i add parameters to my _CommandPtr object, I try to delete the parameters ( for security ) and the count property of the Parameters object fails.
Does anybody know why ?
Thanks.
Sample code :
try
// creation of the connection object
_ConnectionPtr pConn= NULL;
pConn.CreateInstance(__uuidof(Connection));
if ( pConn != NULL )
pConn.Open( strConnectionString, CHAINE_VIDE, CHAINE_VIDE, adConnectUnspecified);
if ( pConn->State == adStateOpen )
// creation of the command object
_CommandPtr pCmd = NULL;
pCmd.CreateInstance(__uuidof(Command));
pCmd->ActiveConnection = pConn;
pCmd->CommandType = adCmdText;
pCmd->CommandTimeout = 15;
pCmd->PutPrepared(true);
Funtion_who_fail( param1, param2 ); // raising of an exception
AppendParameter( pCmd, param3, adParamInput, adBSTR );
AppendParameter( pCmd, param4, adParamInput, adBSTR );
_RecordsetPtr pRst = pCmd->Execute( NULL, NULL, adCmdText );
DeleteParameters(pCmd);
catch(_com_error& oErr)
DeleteParameters(pCmd); // catch of the exception
catch(...)
DeleteParameters(pCmd);
void DeleteParameters( _CommandPtr& pCmd )
if ( pCmd != NULL )
while ( pCmd->Parameters->Count > 0 ) // count property fails.
pCmd->Parameters->Delete(long(0));

Answer 1

Write your procedure like the following and it will work.
PROCEDURE mk_adr(klant NUMBER, receiver NUMBER) IS
BEGIN
INSERT INTO lea_adr (
oid, object, streetname,
housenumber, housealpha, ponumber,
postcode, cityname, locationdesc,
province, kind, country_id,
relation_id, offerrec_id,
h_trans_van,
h_geldig_van,
h_gebruiker
SELECT lea_adr_seq.NEXTVAL, lea_adr_seq.NEXTVAL, streetname,
housenumber, housealpha, ponumber,
postcode, cityname, locationdesc,
province, kind, country_id,
null, receiver,
To_Date('01-01-2000'),
To_Date('01-01-2000'),
'conv'
FROM lea_adr
WHERE relation_id = klant
EXCEPTION
WHEN Others THEN
conv_algemeen.debugMessage('mk_adr :: '||SQLERRM);
END;
Using the lea_adr_seq.NEXTVAL more then once in the SAME select will return the same value for both calls.
SQL> create sequence test
2 ;
Sequence created.
SQL> select test.nextval,test.nextval from dual;
NEXTVAL NEXTVAL
1 1
SQL>