MFC通过ADO连接Oracle数据库

首先在StdAfx.h头文件中加入#import "c:\program files\common files\system\ado\msado15.dll"\

no_namespace rename("EOF","adoEOF")

然后在App类的头文件中声名

public:  _ConnectionPtr m_pConnection;//连接对象指针

接着在App类的InitInstance()函数中加入下列代码：

 AfxOleInit();//初始化COM

 try//连接数据库

 {

  m_pConnection.CreateInstance(__uuidof(Connection));

  _bstr_t strConnect="Provider=MSDAORA.1;User ID='system';Password='renzh';Data Source=orcl;Persist Security Info=False;";

  m_pConnection->Open(strConnect,"system","renzh",adModeUnknown);

 }

 catch(_com_error e)

 {

  AfxMessageBox(TEXT("数据库连接出错！"));

  AfxMessageBox(e.Description());

 }

在App类响应EXITINSTANCE的消息中也可以加上：

if (m_pConnection->State)

 m_pConnection->Close();

m_pConnection->Release();

我认为也没有这一步的必要（我自己是没有加的）

 

然后数据库就打开了，在所有的类中都可以这样调用：theApp. m_pConnection->Execute((_bstr_t)sql,NULL,adCmdText);

然后在要访问记录集的地方声名一个记录集指针：

CString sql=_T("这里面是执行语句！！"):

_RecordsetPtr pRs("ADODB.RecordSet");

 pRs->Open((_bstr_t)sql,_variant_t((IDispatch *)theApp.m_pConnection,true),adOpenStatic,adLockOptimistic,adCmdText);

if (!(pRs->adoBOF))//如果记录集不空

{

……

}

取出记录集信息可以用pRs-> GetCollect_r(_T("某个属性列名")))；它的返回值是_variant_t,根据需要可以对它进行转换。如在ClistCtrl对象的插入中：

m_grd.SetItemText(0,0,(LPTSTR)(_bstr_t)(pRs-> GetCollect_r(_T("第一列的属性名"))));