ado连接oracle数据库6,关于ADO连接oracle数据库的有关问题

当前位置:我的异常网» VC/MFC » 关于ADO连接oracle数据库的有关问题

关于ADO连接oracle数据库的有关问题

www.myexceptions.net  网友分享于：2015-08-26  浏览：14次

关于ADO连接oracle数据库的问题

之前一直没有接触过VC，现在手头上调试一个用C++写的程序要连接数据库，用的是oracle9I的数据库客户端。

_ConnectionPtr pMyConnect=NULL;

_variant_t vtEmpty;

_bstr_t bstrCommand;

CString sQueryCommand;

_variant_t var;

int iCount;

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance(__uuidof(Recordset));

HRESULT hr=pMyConnect.CreateInstance(__uuidof(Connection));

if(FAILED(hr))

{

return -1;

}

_bstr_t strConnect="Provider=OraOLEDB.Oracle;DSN=uscmfgdb; uid=uscyr_user; pwd=useryr;";

//_bstr_t strConnect="Provider=MSDAORA;DSN=uscmfgdb; uid=uscyr_admin@uscmfgdb; pwd=adminuscyr;";//for test data

//connecting to the database server now:

sQueryCommand="select count(*) cnt from uscyr_admin.bin_desc where program_name='";

sQueryCommand+=sProgram;

sQueryCommand+="' and program_version='";

sQueryCommand+=sVersion;

sQueryCommand+="'";

bstrCommand=sQueryCommand;

iCount=-1;

try

{

pMyConnect->Open(strConnect,"","",NULL);

m_pRecordset->Open(bstrCommand, pMyConnect.GetInterfacePtr(), adOpenDynamic,adLockOptimistic, adCmdUnknown);

if(!m_pRecordset->EndOfFile)

{

var = m_pRecordset->GetCollect("cnt");

iCount=var.dblVal;

}

m_pRecordset->Close();

pMyConnect->Close();

}

catch (_com_error &e)

{

//AfxMessageBox(e.ErrorMessage());

_bstr_t aa=e.Description();

//_bstr_t aa=e.ErrorMessage();

CString sc=" ";

sc.Format("%s",FileName + "\n" +(LPCTSTR)aa+"\n");

WriteLog("text.txt",sc);

Result=1;

return false;

}

在头文件中我发现之前写这个程序的老人用的是

#import "C:\Program Files\Common Files\System\ADO\msado15.dll" no_namespace rename("EOF", "EndOfFile")

和现在在网上找到的ADO连接的代码似是非是，同时在用这种代码连接数据库时，有时正常，有时在执行pMyConnect->Open(strConnect,"","",NULL);会返回

TNS-12560: TNS:protocol adapter error和TNS-12542: TNS:address already in use这两种错误交替出现，在执行插入命令的时候也会出现同样的问题

bool CWaferSortDB::bInsertWaferSortBin(int &Result)

{

_ConnectionPtr pMyConnect=NULL;

_variant_t vtEmpty;

_bstr_t bstrCommand;

CString InsertCommand;

_variant_t var;

_RecordsetPtr m_pRecordset;

m_pRecordset.CreateInstance(__uuidof(Recordset));

//_bstr_t strConnect="Provider=MSDAORA;DSN=uscmfgdb; uid=uscyr_user; pwd=useryr;";

_bstr_t strConnect="Provider=MSDAORA;DSN=uscmfgdb; uid=uscyr_admin@uscmfgdb; pwd=adminuscyr;";//test for databace

InsertCommand="insert into uscyr_admin.wafer_bin_info values('";

InsertCommand+=sLot;

InsertCommand+="_";

InsertCommand+=sWafer;

InsertCommand+="',";

InsertCommand+=ssBin;

InsertCommand+=",";

InsertCommand+=shBin;

InsertCommand+=",";

InsertCommand+=sCount;

InsertCommand+=")";

Result=0;

try

{

HRESULT hr=pMyConnect.CreateInstance(__uuidof(Connection));

if(FAILED(hr))

{

//AfxMessageBox("Connect fail");

Result=1;

return false;

}

pMyConnect->Open(strConnect,"","",NULL);

bstrCommand=InsertCommand;

pMyConnect->Execute(bstrCommand,&vtEmpty, adCmdUnknown);

pMyConnect->Close();

}

catch (_com_error &e)

{

_bstr_t aa=e.Description();

CString sc=" ";

sc.Format("%s",FileName + "\n" +(LPCTSTR)aa+"\n");

if (MessageCount==0)

{

mailInfo.sendMail(FileName + "\n" + InsertCommand+"\n"+sc);

}

WriteLog("text.txt",sc);

Result=1;

//AfxMessageBox(InsertCommand);

文章评论