本人新手，這幾天照著書用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=https://bbs.csdn.net/topics/_variant_t(strKCH); //課程號引數
pCmd->Parameters->Append(pParam);
pParam=pCmd->CreateParameter("@ZY",adVarChar,adParamInput,16);
GetDlgItemText(IDC_COMBOZY,TempZY); //專業引數
pParam->Value=https://bbs.csdn.net/topics/_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); //彈出錯誤提示
}
}
uj5u.com熱心網友回復：
代碼不長， 設定個斷點單步運行，看看是哪一步導致了例外uj5u.com熱心網友回復：
現在就是加了斷點一步步走，莫名其妙就走到catch里面去了，我也是小白，找不出問題uj5u.com熱心網友回復：
讓程式彈出錯誤提示看具體是啥內容。uj5u.com熱心網友回復：
是這樣
uj5u.com熱心網友回復：
百度搜對應錯誤提示資訊。uj5u.com熱心網友回復：
百度上并沒有。。是不是我陳述句順序錯了 大神們HELP
uj5u.com熱心網友回復：
看看資料庫是不是例外了uj5u.com熱心網友回復：
資料庫正常 運行其他跟資料庫相關的函式不會報錯，就這一個函式uj5u.com熱心網友回復：
SQL陳述句是否正常？SQL正確的話看看是不是取數值對應的欄位正確uj5u.com熱心網友回復：
除錯一步步走了，都正常，但就莫名其妙跳到catch陳述句里面去了uj5u.com熱心網友回復：
預估是兩個close方法那里例外了。把pRs->Close()屏蔽掉試試看。
uj5u.com熱心網友回復：
搜“ADO 等待費時操作完成后再關閉”轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/115484.html
標籤：數據庫