VC执行存储过程

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\n"), 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\n"), 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;

你可能感兴趣的:(VC执行存储过程)