這兩天需要做有關(guān)MFC連接Oracle的項(xiàng)目，上網(wǎng)搜了老半天，東拼西湊，終于搞通了MFC下ADO方式連接Oracle的程序。

下面就按我新建的項(xiàng)目來(lái)進(jìn)行一下說(shuō)明（項(xiàng)目名稱：adooracle）?

 第一步：

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

no_namespace rename("EOF","adoEOF")

//這句#import……是我見(jiàn)得最多的，可是加上了這句話，在VS3013下是沒(méi)法運(yùn)行的?

#include "UrlMon.h"

#include "Shlwapi.h"

#include "ShObjIdl.h"

?//上下頭文件之間需要有空行，沒(méi)空行，我試了會(huì)報(bào)錯(cuò)

#include

//還必須在? StdAfx.h下加上這四個(gè)頭文件，方可繼續(xù)運(yùn)行

//同時(shí)運(yùn)用了msado15.dll，會(huì)提前報(bào)錯(cuò)，提示找不到msado15.mlh等文件，按F6生成方案即可?

?在StdAfx.h中添加的情況

第二步：

在頭文件adooracle.h中聲名

public:  _ConnectionPtr m_pConnection;//連接對(duì)象指針

 第三步：

在adooracle.cpp的InitInstance()函數(shù)中加入下列代碼：

 AfxOleInit();//初始化COM

 try//連接數(shù)據(jù)庫(kù)

 {

  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("數(shù)據(jù)庫(kù)連接出錯(cuò)！"));

  AfxMessageBox(e.Description());

  exit(-1)?;

 }

第四步：

?數(shù)據(jù)庫(kù)就打開(kāi)了，在所有的類中都可以這樣調(diào)用：

theApp. m_pConnection->Execute((_bstr_t)sql,NULL,adCmdText);

然后在要訪問(wèn)記錄集的地方聲名一個(gè)記錄集指針：

CString sql=_T("這里面是執(zhí)行語(yǔ)句?。?):

_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("某個(gè)屬性列名")))；它的返回值是_variant_t,根據(jù)需要可以對(duì)它進(jìn)行轉(zhuǎn)換。如在ClistCtrl對(duì)象的插入中：

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