VC执行存储过程

1.VC执行一个带参数的存储过程,返回一个记录集:

 

_RecordsetPtr m_pRecordSetTemp;
 m_pRecordSetTemp.CreateInstance( " ADODB.Recordset " );
 #ifdef _DEBUG
  if  (m_pRecordSetTemp ==  NULL)
  ... {
   AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
 }
  #endif
 _CommandPtr  m_pCommand;
 m_pCommand.CreateInstance(__uuidof(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);
    // 执行存储过程
 m_pCommand -> ActiveConnection = m_pConnection;
 m_pCommand -> CommandText = " GetreMsgFromService " ;   // 存储过程名称
 m_pCommand -> CommandType = adCmdStoredProc; // 表示为存储过程adCmdStoredProc

  int   recordcount;
  try
  ... {
  m_pRecordSetTemp=m_pCommand->Execute(NULL, NULL, adCmdStoredProc);
  while(!m_pRecordSetTemp->adoEOF)
  ...{
   AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSetTemp->GetCollect("reMsg"));
   m_pRecordSetTemp->MoveNext();
   recordcount=recordcount+1;
  }
 }
  catch (_com_error e)
  ... {
  CString temp;
  temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
  AfxMessageBox(temp);
 }
  return  m_pRecordSetTemp;
 m_pRecordSetTemp -> Close();

 在这用m_pRecordSetTemp->GetRecordCount()来获取记录条数没有用.

 

2.VC执行一个不带参数的存储过程,返回一个记录集:

 

m_pRecordSet.CreateInstance( " ADODB.Recordset " );
 #ifdef _DEBUG
  if  (m_pRecordSet  ==  NULL)
  ... {
  AfxMessageBox("RecordSet 对象创建失败! 请确认是否初始化了COM环境.");
  return;
 }
  #endif
 ASSERT(m_pRecordSet  !=  NULL);
 CString sql = " TestGet " ;
  int  i,recordcount;
  try
  ... {
  m_pRecordSet->Open((_variant_t)sql,_variant_t((IDispatch*)m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdStoredProc);
  recordcount=m_pRecordSet->GetRecordCount();//Get records total. 
  if(!m_pRecordSet->adoEOF)
  ...{
   for(i=0;i<recordcount;i++)
   ...{
    AfxMessageBox((LPCTSTR)(_bstr_t)m_pRecordSet->GetCollect("Account"));
    m_pRecordSet->MoveNext();
   }
  }
  m_pRecordSet->Close();
 }
  catch (_com_error e)
  ... {
  CString temp;
  temp.Format(_T("Warning: 打开记录集发生异常. 错误信息: %s; 文件: %s; 行: %d "), e.ErrorMessage(), __FILE__, __LINE__);
  AfxMessageBox(temp);
 }

如果不用存储过程将sql变量改成sql语句就可以了.

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;