vc 连接oracle数据库 - VC/MFC / 数据库

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;
}
这是连接函数,

C/C++ code:

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(tr