vc 连接oracle数据库

Question

bool CMcchangeportApp::ConnectDateBase()
{
try                 
{ m_pConnection.CreateInstance(__uuidof(Connection));
m_pConnection->Open("Provider=MSDAORA.1;Data Source=WE8;","hj","014",adModeUnknown);
}
catch(_com_error &e)
{
CString err;
err.Format("%s", (char*)(e.Description()) );
AfxMessageBox(err);
return false;
}
catch(...)
{
AfxMessageBox("Unknown Error...");
return false;
}
return true;
}
这是连接函数,
bool CMcchangeportApp::p_delJDK_exes(_RecordsetPtr &ADOSet,_variant_t &tran_no,_variant_t &exestypid,_variant_t &tranexesno,_variant_t &exec_re)
{
if ( ADOSet->State == adStateOpen) ADOSet->Close();
try
{
_CommandPtr    pCmdChange = NULL;  
_ParameterPtr  param;
param.CreateInstance(__uuidof(Parameters));
pCmdChange.CreateInstance(__uuidof(Command));  
pCmdChange->CommandType  =  adCmdStoredProc;  
pCmdChange->CommandText  =  "commpackages.p_delJDK_exes"; 
//adVarChar,adInteger,adNumeric
//sizeof(double)
param=pCmdChange->CreateParameter((_bstr_t)"tran_no",adVarChar,adParamInput,11,_variant_t(tran_no));
pCmdChange->Parameters->Append(param);
param=pCmdChange->CreateParameter((_bstr_t)"exestypid",adVarChar,adParamInput,2,_variant_t(exestypid));
pCmdChange->Parameters->Append(param);
param=pCmdChange->CreateParameter((_bstr_t)"tranexesno",adVarChar,adParamInput,20,_variant_t(tranexesno));
pCmdChange->Parameters->Append(param);
param=pCmdChange->CreateParameter((_bstr_t)"exec_re",adVarChar,adParamInputOutput,10,_variant_t(exec_re));
pCmdChange->Parameters->Append(param); pCmdChange->ActiveConnection   =   m_pConnection;  
ADOSet->CursorType=adOpenStatic;  
ADOSet->LockType=adLockPessimistic;  
ADOSet   =   pCmdChange->Execute(NULL,NULL,adCmdStoredProc);    

exec_re=pCmdChange->Parameters->GetItem("exec_re")->GetValue();

}  
catch  (_com_error   e)  
{  
// AfxMessageBox(e.Description()); 

CString err,er2;
err.Format("ADO Error: %s",(char*)e.Description());
    exec_re=_variant_t(err);
er2.Format("ADO Error: %d",e.WCode);

return   false; 
} return true;
}这个是执行过程,如果在执行过程的时候,机子与数据库之间的连接出现了问题时,我得重新连接数据库后,在执行过程,这个程序应该怎么改呀,还有就是,与数据库的连接断开了,e.wcode的值是多少