求各路大神指导，有点急！

i_am_noob 2016-12-15 09:39:16

本人新手，这几天照着书用MFC连接数据库编了个成绩管理，但有个函数一直实现不了，一直弹出错误提示，显示“关闭对象时，不允许操作”

代码在下，编译之后发现问题是try执行完之后又跳进catch语句里面去了，但本不应该这样，不知道哪错了，求各位大神指导

// TODO: 在此添加控件通知处理程序代码
CString SqlStr;

//通过课程名获得课程号
UpdateData();
_ConnectionPtr pConnection=NULL;
_CommandPtr pCmd=NULL;
_RecordsetPtr pRs=NULL;
HRESULT hr; //操作返回状态码
_variant_t varFld;
//Execute函数的参数
_variant_t vNULL;
vNULL.vt=VT_ERROR;
vNULL.scode=DISP_E_PARAMNOTFOUND; //定义为无参数
//进行连接
_bstr_t strCnn(SQLCONSTR);
pConnection.CreateInstance(__uuidof(Connection));//连接实例
pConnection->Open(strCnn,"","",NULL);//建立与服务器的连接
pCmd.CreateInstance(__uuidof(Command));//创建命令实例
pCmd->ActiveConnection=pConnection; //指向当前活动连接
SqlStr.Format("select KCH from KCB where KCM = '%s'",m_StuKCM); /l 语句
pCmd->CommandText=(_bstr_t)SqlStr; //命令文本为上一句sql语句

//pRs.CreateInstance(__uuidof(Recordset));
//CString tempSqlStr;
//tempSqlStr.Format("select KCH from KCB where KCM = '%s'",m_StuKCM);
//pRs->Open(_variant_t(tempSqlStr),_variant_t((IDispatch *)pConnection,true),adOpenDynamic,adLockOptimistic,adCmdText);

pRs=pCmd->Execute(&vNULL,&vNULL,adCmdText); //Execute 后返结果到pRs中
pRs->MoveFirst();
varFld=pRs->Fields->GetItem("KCH")->Value; //得到课程号
CString StuKCH(_T(varFld.bstrVal));
strKCH=StuKCH; //保存kch
try
{
//调用Load_CJ
_ParameterPtr pParam=NULL;
vNULL.vt=VT_ERROR;
vNULL.scode=DISP_E_PARAMNOTFOUND; //定义为无参
CString SqlStr,TempZY;
SqlStr.Format("Load_CJ");
pCmd->CommandText=(_bstr_t)SqlStr;
pCmd->CommandType=adCmdStoredProc;
pParam=pCmd->CreateParameter("@KCH",adVarChar,adParamInput,16);
pParam->Value=_variant_t(strKCH); //课程号参数
pCmd->Parameters->Append(pParam);
pParam=pCmd->CreateParameter("@ZY",adVarChar,adParamInput,16);
GetDlgItemText(IDC_COMBOZY,TempZY); //专业参数
pParam->Value=_variant_t(TempZY);

pCmd->Parameters->Append(pParam);

pRs=pCmd->Execute(&vNULL,&vNULL,adCmdStoredProc);

CString SqlCon="select XH as Stunum,XM as Name,CJ as Grade from tempCJB";
m_ScoreADODC.put_RecordSource(SqlCon);
m_ScoreADODC.Refresh();
m_ScoreDATAGRID.ReBind();
m_ScoreDATAGRID.Refresh();
pCmd->Parameters->Delete(_variant_t((long)0)); //清除参数
pCmd->Parameters->Delete(_variant_t((long)0));
pRs->Close();
pConnection->Close();
}
catch(_com_error &e)
{
_bstr_t bstrSource(e.Source());
_bstr_t bstrDescription(e.Description());
//格式化错误提示字符串
CString sError;
sError.Format("Source:%sDescription:%s",(LPCSTR)bstrSource,(LPCSTR)bstrDescription);
AfxMessageBox(sError); //弹出错误提示

}

}

...全文