vc中调用sql存储过程.txt

一个学生考试成绩管理的半成品

//.h文件中
_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");//储存过程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"),
                                adInteger,
			    	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错误!");
		}