VC用ADO连接oracle的方法

#import "c:/program files/common files/system/ado/msado15.dll" /no_namespace /rename ("EOF", "adoEOF")_ConnectionPtr m_pConnection;_RecordsetPtr m_pRecordset;// 初始化COM,创建ADO连接等操作AfxOleInit();连接:m_pConnection.CreateInstance(__uuidof(Connection));try //建立数据库连接{  m_pConnection.CreateInstance(__uuidof(Connection));  m_pConnection->Open("Provider=OraOLEDB.Oracle.1;Password=pzone;User ID=pzone;Data Source=zp;Persist Security Info=True","","",adModeUnknown); }catch(_com_error e){  CString errormessage;  errormessage.Format("数据库连接失败！/r/n错误信息：%s", e.ErrorMessage());  AfxMessageBox(errormessage);  //return FALSE;}  查_bstr_t sql="select name from booktype";m_pRecordset.CreateInstance(__uuidof(Recordset));m_pRecordset->Open(sql, m_pConnection->GetConnectionString(),adOpenStatic,adLockOptimistic,adCmdText);if(!m_pRecordset->BOF)//判断表内数据是否为空  m_pRecordset->MoveFirst();else{  AfxMessageBox("BookType表内数据为空");  return;}while(!m_pRecordset->adoEOF){  CString item=m_pRecordset->GetCollect("name");  m_pRecordset->MoveNext();}m_pRecordset->Close();增加:_bstr_t sql="insert into tablename values (".....;m_pConnection->Execute(sql,NULL,adCmdText);删除_bstr_t sql="delete from tablename where ...";m_pConnection->Execute(sql,NULL,adCmdText);改_bstr_t sql="update tablename set xx=...";m_pConnection->Execute(sql,NULL,adCmdText);

 

//关闭和释放连接

m_pRecordset->Close();m_pConnection->Close();m_pRecordset.Release();m_pConnection.Release();