VC使用ADO连接远程oracle数据库

_ConnectionPtr pConn;//连接对像

_RecordsetPtr pRect;//记录集对象

_CommandPtr pCmd;//命令对象

pRect.CreateInstance(__uuidof(Recordset));

pConn.CreateInstance(__uuidof(Connection));//L连接对像

pCmd.CreateInstance(__uuidof(Command));//命令对象

_bstr_t strConn = "Provider=OraOLEDB.Oracle.1;User ID=%s;Password=%s;Data Source=(DESCRIPTION=(ADDRESS=(PROTOCOL=TCP)(HOST=%s)(PORT=%s))(CONNECT_DATA=(SERVICE_NAME = %s)));Persist Security Info=False"; //这个是远程

//strConn = "Provider=OraOLEDB.Oracle.1;Persist Security Info=True;DATABASE=%s;User ID=%s;Password= %s;"; //这个是本地

HRESULT rValue = pConn->Open(strConn,"","",adModeUnknown);

if (rValue == S_FALSE) { return; }

CString str = "select * from cc_bank";

pRect = pConn->Execute(_bstr_t(str),NULL,adCmdText);

pRect->MoveFirst();

while (pRect->adoEOF==VARIANT_FALSE)

{

　　CString str = LPSTR(_bstr_t(pRect->GetCollect("cnname")));

　　MessageBox(str);

　　pRect->MoveNext();

}

　　pRect->Close();

　　pConn->Close();

　　pRect.Release();

　　pConn.Release();

　　pCmd.Release();

}

catch(_com_error &e)

{

　　MessageBox(e.ErrorMessage());

}