vc里如何调用存储过程

vc里如何调用存储过程

_ConnectionPtr m_pConnection;
_CommandPtr m_pCommand;
// .cpp中在函数中执行
// 建立ado连接
HRESULT hr;
hr
= m_pConnection.CreateInstance(__uuidof(Connection));
try
{
    
if(SUCCEEDED(hr))
    
{
        hr
=m_pConnection->Open(_bstr_t(L"Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Viper;Data Source=Viper"),_bstr_t (L"sa"),_bstr_t (L""),adModeUnknown);
    }

}

catch (_com_error  &  err)
{
    AfxMessageBox(err.Description(),MB_OK,
0);
    AfxMessageBox(err.ErrorMessage(),MB_OK,
0);
    AfxMessageBox(
"无法连接SQL SERVER 服务器,程序将退出。请检查网络设备",MB_OK,0);
    exit(
0);
}


// 执行储存过程
CString cvar1,cvar2;
int  cvar3;
cvar1
= ”ddd”;
cvar2
= " ;
cvar3 = 0 ;
try
{
    m_pCommand.CreateInstance(__uuidof(Command));
    m_pCommand
->ActiveConnection=app->m_pConnection;
    m_pCommand
->CommandType=adCmdStoredProc;
    m_pCommand
->CommandText=_bstr_t(”pr_zs_dzdy”);
    
    _variant_t vvar1,vvar2,vvar3;
    vvar1
=_variant_t(_bstr_t(cvar1));
    vvar2
=_variant_t(_bstr_t(cvar2));
    vvar3
=_variant_t(cvar3);
    _ParameterPtr mp_var1,mp_var2,mp_var3;
    mp_var1.CreateInstance(__uuidof(Parameter));
    mp_var2.CreateInstance(__uuidof(Parameter));
    mp_var3.CreateInstance(__uuidof(Parameter));
    
    mp_var1
=m_pCommand->CreateParameter
        (
        _bstr_t(”var1″),
        adVarChar,
        adParamInput,
        
3,
        vvar1
        );
    m_pCommand
->Parameters->Append(mp_var1);
    
    mp_var2
=m_pCommand->CreateParameter
        (
        _bstr_t(”var2″),
        adVarChar,
        adParamOutput,
        
3,
        vvar2
        );
    m_pCommand
->Parameters->Append(mp_var2);
    
    mp_var3
=m_pCommand->CreateParameter
        (
        _bstr_t(”var3″),
        adIntger,
        adParamOutput,
        
9,
        vvar3
        );
    m_pCommand
->Parameters->Append(mp_var3);
    
    _variant_t vNull;
    vNull.vt
=VT_ERROR;
    vNull.scode
=DISP_E_PARAMNOTFOUND;
    m_pCommand
->Execute(&vNull,&vNull,adCmdStoredProc);
    cvar2
=mp_var2->Value.bstrVal;
    cvar3
=mp_var3->Value;
}

catch (_com_error  & error)
{
    MessageBox(error.ErrorMessage(),”ADO错误
!”);
    MessageBox(error.Description(),”ADO错误
!”);
}

你可能感兴趣的:(vc里如何调用存储过程)