VC执行存储过程(3)

王朝vc·作者佚名  2006-01-10
窄屏简体版  字體: |||超大  

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;

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航