VC执行存储过程(3)

3.VC执行一个带参数的存储过程,返回单个值:

 CString retu;
 m_pCommand.CreateInstance("ADODB.Command");
 #ifdef _DEBUG
 if (m_pCommand == NULL)
 {
  AfxMessageBox("Command 对象创建失败! 请确认是否初始化了COM环境.");
 }
 #endif
 ASSERT(m_pCommand != NULL);
 //输入参数 Member
 _ParameterPtr pParamMember;
 pParamMember.CreateInstance("ADODB.Parameter");
 pParamMember->Name="member";  //所用存储过程参数名称
 pParamMember->Type=adChar; //参数类型
 pParamMember->Size=32;  //参数大小
 pParamMember->Direction=adParamInput;//表明是输入参数
 pParamMember->Value=_variant_t(member);
 m_pCommand->Parameters->Append(pParamMember);
 //返回值
 _ParameterPtr pParamOk;  
 pParamOk.CreateInstance("ADODB.Parameter");
 pParamOk->Name="welcome";  //参数2名称
 pParamOk->Type=adChar;  //字符串
 pParamOk->Size=70;   //大小为70个字节
 pParamOk->Direction=adParamOutput; //声明是输出参数
 m_pCommand->Parameters->Append(pParamOk);
  //执行存储过程
 m_pCommand->ActiveConnection=m_pConnection;
 m_pCommand->CommandText="GetWelcome";  //存储过程名称
 m_pCommand->CommandType=adCmdStoredProc;//表示为存储过程adCmdStoredProc
 m_pCommand->Execute(NULL, NULL, adCmdStoredProc);
 retu=(char*)_bstr_t(pParamOk->Value);
 pParamMember->Release();
 return retu;