mfc oracle数据库编程,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