这个问题困扰我半年，解决后，我全部送完都行，关于VC调用ORACLE存储过程问题

这是别人给我的存储过程，ORACLE817的,WIN2K平台下
(
idname in varchar2,id out integer)
as
row_count integer;
begin
  lock table t_identity in row exclusive mode;
  update t_identity
      set maxno=maxno + 1
      where name=idname;
   select maxno into id from t_identity where name=idname;
  commit;
end;
这是我调用存储过程的函数，返回值是ID值,但是再*****那一行出错
int GetNewID(char *Inputstr)
{
int ret=-1; //调用带输入和输出参数的存储过程
_CommandPtr cmd;
cmd.CreateInstance("ADODB.Command");

//输入参数
_ParameterPtr pParamRk;
pParamRk.CreateInstance("ADODB.Parameter"); //pParamRk->Name="mo07"; //存储过程的参数1
pParamRk->Type=adChar; //字符串
pParamRk->Size=20;
pParamRk->Direction=adParamInput;//表明是输入参数
pParamRk->Value=_variant_t(Inputstr);//int->CString->_variant_t后赋值
//****************************************
cmd->Parameters->Append(pParamRk);//此句执行出错？？？？？？？？
//****************************************

//输出参数
_ParameterPtr pParamOk;
pParamOk.CreateInstance("ADODB.Parameter");
//pParamOk->Name="rowcount"; //参数2名称
pParamOk->Type=adInteger; //整型
pParamOk->Direction=adParamOutput; //声明是输出参数
cmd->Parameters->Append(pParamOk);

cmd->ActiveConnection = m_pConnection;
cmd->CommandText="ADE.PROC_ALLOC_ID"; //存储过程的名字
cmd->CommandType=adCmdStoredProc;//表示为存储过程adCmdStoredProc
 
//执行,获得结果
_RecordsetPtr m_pRecordset;
    m_pRecordset = cmd->Execute(NULL, NULL, adCmdStoredProc);
printf("storeproc id is:%s\n",(char*)_bstr_t(pParamOk->Value));
//AfxMessageBox((char*)_bstr_t(pParamRk->Value));
//AfxMessageBox((char*)_bstr_t(pParamOk->Value));
ret=atoi((char*)_bstr_t(pParamOk->Value)); return ret;
}出的错是Debug error!
因为不能在服务器上调试，只能编译好了多打些打印信息找错误，执行到cmd->ActiveConnection = m_pConnection;跳出
catch说是无效指针。但是，我编写的这个函数在我自己的机器上怎么运行都正常啊！！！