MFC中利用ADO对数据库进行简单操作的实例

目标：实现对数据库中的数据进行简单地操作，包括增、删、改、查。

第一步，创建一个基于对话框的应用程序，命名为TestAdo

第二步，按照图1的界面布局添加控件

图1 程序界面示意图

第三步，代码实现
     首先，要用#import语句来引用支持ADO的组件类型库(*.tlb)，其中类型库可以作为可执行程序(DLL、EXE等)的一部分被定位在其自身程序中的附属资源里，如：被定位在msado15.dll的附属资源中，只需要直接用#import引用它既可。可以直接在stdafx.h文件中加入下面语句来实现： 

// 加入ADO支持库, shufac#import "C:\program files\common files\system\ado\msado15.dll" \no_namespace \rename ("EOF", "adoEOF")      

其中路径名可以根据自己系统安装的ADO支持文件的路径来自行设定。当编译器遇到#import语句时，它会为引用组件类型库中的接口生成包装类，#import语句实际上相当于执行了API涵数LoadTypeLib()。#import语句会在工程可执行程序输出目录中产生两个文件，分别为*.tlh(类型库头文件)及*.tli(类型库实现文件)，它们分别为每一个接口产生智能指针，并为各种接口方法、枚举类型，CLSID等进行声明，创建一系列包装方法。语句no_namespace说明ADO对象不使用命名空间，rename ("EOF", "adoEOF")说明将ADO中结束标志EOF改为adoEOF，以避免和其它库中命名相冲突。 

在 class CTestAdoApp 中定义ADO连接对象指针 再添加一个函数用于退出后处理这个ADO对象智能指针。

代码如下： 

class CTestAdoApp : public CWinApp{public:CTestAdoApp(); // 定义ADO连接对象指针 shufac_ConnectionPtrm_pConnection;//shufac 退出时清除工作virtual int ExitInstance(); // 重写public:virtual BOOL InitInstance();// 实现DECLARE_MESSAGE_MAP()};

ADO连接对象指针需要进行初始化。在初始化函数

BOOL CTestAdoApp::InitInstance()中添加代码：

// --------------------------------------------------------------------------------------------------- // 此程序只能运行一次，用互斥量来判断程序是否已运行HANDLE m_hMutex=CreateMutex(NULL,TRUE, m_pszAppName); if(GetLastError()==ERROR_ALREADY_EXISTS) { return FALSE; } // 设置对话框背景和文本颜色//SetDialogBkColor(RGB(160,180,220),RGB(0,0,0)); // ------------------------------------------------------------------------------------------------// 初始化COM,创建ADO连接等操作AfxOleInit();m_pConnection.CreateInstance(__uuidof(Connection)); // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，// 因为它有时会经常出现一些想不到的错误try                 {// 打开本地Access库Demo.mdbm_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Demo.mdb","","",adModeUnknown); }catch(_com_error& e){//调用在CAdoRWAccessDlg中打印错误信息的静态函数CTestAdoDlg::dump_com_error(e);return FALSE;} // ---------------------------------------------------------------------------------------------------

注意：关于初始化的工作，参见代码中的注释。另外，这里打开本地Access数据库文件Demo.mdb，这里需要有这个文件，文件目录和当前的文件（头文件和源文件置于同一个目录即可）。如果没有，会提示如图2所示的错误提示框

图2 没有找到数据库文件的提示框

退出时清除工作的函数代码：

int CTestAdoApp::ExitInstance() {// 关闭ADO连接状态if(m_pConnection->State)m_pConnection->Close();m_pConnection= NULL; return CWinApp::ExitInstance();}

接着，就可以直接使用ADO连接对象对本地的数据库进行操作了。

先看看头文件中添加的对于数据库操作支持的变量和函数。

public:CListBox m_AccessList;//列表框控件afx_msg void OnRead();//姓名控件添加变量CString m_strName;//年龄控件添加变量CString m_strAge;//执行按钮左边的编辑框CString m_strCommand;//添加记录afx_msg void OnAdd();//修改记录afx_msg void OnModify();//删除记录afx_msg void OnDelete();//退出程序afx_msg void OnExit();//给列表框添加消息响应事件//功能：当每次选择新的记录时，都会移动指针到新的记录位置并将值显示出来afx_msg void OnLbnSelchangeListaccess();//执行数据库操作语句afx_msg void OnExcute(); // 定义ADO命令对象指针_CommandPtr m_pCommand;// 定义ADO记录集对象指针_RecordsetPtrm_pRecordset;// 定义ADO记录集对象指针避免重复再定义一个_RecordsetPtrm_pRecordset1;//打印调用ADO控件时产生的详细错误信息static void dump_com_error(_com_error &e);public://ADO记录集和命令集对象的处理virtual BOOL DestroyWindow();

一、准备工作：

1初始化 

m_strCommand = _T("SELECT * FROM DemoTable");//shufac_____________________________________________________________________________________________________// 使用ADO创建数据库记录集m_pRecordset.CreateInstance(__uuidof(Recordset)); // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，// 因为它有时会经常出现一些想不到的错误{m_pRecordset->Open("SELECT * FROM DemoTable", // 查询DemoTable表中所有字段theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针adOpenDynamic,adLockOptimistic,adCmdText);}catch(_com_error& e){dump_com_error(e);}//shufac_____________________________________________________________________________________________________

2 打印调用ADO控件时产生的详细错误信息

void CTestAdoDlg::dump_com_error(_com_error &e){CString ErrorStr; _bstr_t bstrSource(e.Source());_bstr_t bstrDescription(e.Description());ErrorStr.Format(_T("\n\tADO Error\n\tCode = %08lx\n\tCode meaning = %s\n\tSource = %s\n\tDescription = %s\n\n"),e.Error(), e.ErrorMessage(), (LPCTSTR)bstrSource, (LPCTSTR)bstrDescription );//在调试窗口中打印错误信息,在Release版中可用DBGView查看错误信息::OutputDebugString((LPCTSTR)ErrorStr);#ifdef _DEBUGAfxMessageBox(ErrorStr, MB_OK | MB_ICONERROR);#endif}

二、对数据库进行操作

对数据库的操作包括，增删改查

1. 读取数据

void CTestAdoDlg::OnRead(){// TODO: 在此添加控件通知处理程序代码_variant_t var;CString strName,strAge;// 清空列表框m_AccessList.ResetContent();strName=strAge="";// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，// 因为它有时会经常出现一些想不到的错误。jingzhou xutry{if(!m_pRecordset->BOF)m_pRecordset->MoveFirst();else{AfxMessageBox(L"表内数据为空");return;}// 读入库中各字段并加入列表框中while(!m_pRecordset->adoEOF){var = m_pRecordset->GetCollect("Name");if(var.vt != VT_NULL)strName = (LPCSTR)_bstr_t(var);var = m_pRecordset->GetCollect("Age");if(var.vt != VT_NULL)strAge = (LPCSTR)_bstr_t(var); m_AccessList.AddString( strName + " --> "+strAge ); m_pRecordset->MoveNext();} // 默认列表指向第一项，同时移动记录指针并显示m_AccessList.SetCurSel(0);OnLbnSelchangeListaccess();}catch(_com_error& e){dump_com_error(e);}}

说明：点击按钮后数据库中的数据会显示在列表框中，但是会有一个问题，表中的顺序和显示的顺序不一致。解决办法：列表框----属性---Sort设为false即可。另外一点，关于显示数据的问题。当选中列表框中的某一项后，名称和年龄编辑框应该显示对应的数据。这一点的实现需要对列表框添加消息响应函数来实现，代码如下：

//功能：当每次选择新的记录时，都会移动指针到新的记录位置并将值显示出来

void CTestAdoDlg::OnLbnSelchangeListaccess(){// TODO: 在此添加控件通知处理程序代码int curSel = m_AccessList.GetCurSel();_variant_t var,varIndex;if(curSel < 0)return;try{// 先将指针移向第一条记录，然后就可以相对第一条记录来随意移动记录指针m_pRecordset->MoveFirst();m_pRecordset->Move(long(curSel));var = m_pRecordset->GetCollect("Name");if(var.vt != VT_NULL)m_strName = (LPCSTR)_bstr_t(var);var = m_pRecordset->GetCollect("Age");if(var.vt != VT_NULL)m_strAge = (LPCSTR)_bstr_t(var);UpdateData(false);}catch(_com_error& e){dump_com_error(e);}} 

2. 插入数据

插入数据即添加记录，代码如下：

void CTestAdoDlg::OnAdd(){// TODO: 在此添加控件通知处理程序代码UpdateData();if(m_strName == "" || m_strAge == ""){AfxMessageBox(L"姓名和年龄信息不能为空!");return;} // 在ADO操作中建议语句中要常用try...catch()来捕获错误信息，// 因为它有时会经常出现一些想不到的错误。jingzhou xutry{// 写入各字段值m_pRecordset->AddNew();m_pRecordset->PutCollect("Name", _variant_t(m_strName));m_pRecordset->PutCollect("Age", /*atol*/_ttof(m_strAge));m_pRecordset->Update(); AfxMessageBox(L"插入成功!"); // 更新显示其库内容int nCurSel = m_AccessList.GetCurSel();OnRead();m_AccessList.SetCurSel(nCurSel);// 移动记录指针到新的位置OnLbnSelchangeListaccess();}catch(_com_error& e){dump_com_error(e);}} 

3. 修改数据

首先在列表框中选中某一项，这一项的名称和年龄将会显示在编辑框中，直接进行编辑，编辑完成后点击修改即可

代码如下：

void CTestAdoDlg::OnModify(){// TODO: 在此添加控件通知处理程序代码UpdateData();        // 更新对话框数据if(m_AccessList.GetCount() == 0 || m_strName == "" || m_strAge == ""){AfxMessageBox(L"表中记录数为空或姓名和年龄信息没有设置!");return;}else if(m_AccessList.GetCurSel() < 0 || m_AccessList.GetCurSel() > m_AccessList.GetCount())m_AccessList.SetCurSel(0); // 修改当前记录的字段值try{m_pRecordset->PutCollect("Name", _variant_t(m_strName));m_pRecordset->PutCollect("Age", /*atol*/_ttof(m_strAge));m_pRecordset->Update(); // 重新读入库记录更新显示int nCurSel = m_AccessList.GetCurSel();OnRead();m_AccessList.SetCurSel(nCurSel);// 移动记录指针到新的位置OnLbnSelchangeListaccess();}catch(_com_error& e){dump_com_error(e);}} 

4. 删除数据

选中列表框中的某一项，点击删除即可。

void CTestAdoDlg::OnDelete(){// TODO: 在此添加控件通知处理程序代码if(m_AccessList.GetCount() == 0)return;else if(m_AccessList.GetCurSel() < 0 || m_AccessList.GetCurSel() > m_AccessList.GetCount())m_AccessList.SetCurSel(0); try{// 删除当前行记录m_pRecordset->Delete(adAffectCurrent);m_pRecordset->Update(); // 删除列表中当前值int nCurSel = m_AccessList.GetCurSel();m_AccessList.DeleteString(nCurSel);if(nCurSel == 0 && (m_AccessList.GetCount() != 0))m_AccessList.SetCurSel(nCurSel);else if(m_AccessList.GetCount() != 0)m_AccessList.SetCurSel(nCurSel-1); // 移动记录指针到新的位置OnLbnSelchangeListaccess();}catch(_com_error& e){dump_com_error(e);}} 

三、退出程序后的一些处理

退出后做一些收尾工作，关闭并释放记录集对象等。

//名称：DestroyWindow

//功能：关闭对话框时清除工作

BOOL CTestAdoDlg::DestroyWindow() {// 关闭记录集m_pRecordset->Close();m_pRecordset.Release();m_pRecordset = NULL; return CDialog::DestroyWindow();}

四、数据库语句的执行

最后通过SQL语句对文件进行操作。

代码如下：

void CTestAdoDlg::OnExcute(){// TODO: 在此添加控件通知处理程序代码UpdateData(FALSE);_CommandPtr m_pCommand; m_pCommand.CreateInstance(__uuidof(Command));m_pCommand->ActiveConnection = theApp.m_pConnection;  // 将库连接赋于它m_pCommand->CommandText = _bstr_t((LPCTSTR)m_strCommand);  // SQL语句try {// 执行SQL语句，返回记录集,此记录不能做插入操作// 故为了不和m_pRecordset相冲突, 放入新定义的m_pRecordset1m_pRecordset1 = m_pCommand->Execute( NULL, NULL, adCmdText); }catch(_com_error& e){dump_com_error(e);}}

最终界面如图3 所示：

图3 最终操作界面

小结：我们经常使用的只是前面用#import语句引用类型库时，生成的包装类.tlh中声明的智能指针中的三个，它们分别是_ConnectionPtr（ADO连接对象指针，前面的代码中用到）、_RecordsetPtr和_CommandPtr。下面分别对它们的使用方法进行介绍： 
1、_ConnectionPtr智能指针

通常用于打开、关闭一个库连接或用它的Execute方法来执行一个不返回结果的命令语句(用法和_CommandPtr中的Execute方法类似)。 
——打开一个库连接。先创建一个实例指针，再用Open打开一个库连接，它将返回一个IUnknown的自动化接口指针。

代码如下所示： _ConnectionPtr m_pConnection;           //定义一个指针 

//初始化COM,创建ADO连接等操作 
AfxOleInit();                            //初始化m_pConnection.CreateInstance(__uuidof(Connection)); 
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息， 
// 因为它有时会经常出现一些意想不到的错误。

try         
{ 
// 打开本地Access库Demo.mdb 
m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data.mdb","","",adModeUnknown);     //  data.mdb为数据库名称} 
catch(_com_error e) 
{ 
AfxMessageBox("数据库连接失败，确认数据库Demo.mdb是否在当前路径下!"); 
return FALSE; 
}    
——关闭一个库连接。如果连接状态有效，则用Close方法关闭它并赋于它空值。

代码如下所示： if(m_pConnection->State) 
    m_pConnection->Close();           //
m_pConnection= NULL;    

2、_RecordsetPtr智能指针

可以用来打开库内数据表，并可以对表内的记录、字段等进行各种操作。 
——打开数据表

打开库内表名为DemoTable的数据表，

代码如下： 

_RecordsetPtr m_pRecordset; 
m_pRecordset.CreateInstance(__uuidof(Recordset)); 
// 在ADO操作中建议语句中要常用try...catch()来捕获错误信息， 
// 因为它有时会经常出现一些意想不到的错误。 
try 
{ 
m_pRecordset->Open("SELECT * FROM data1",        // 查询data1表中所有字段 ，data1为表名称theApp.m_pConnection.GetInterfacePtr(), // 获取库接库的IDispatch指针 
adOpenDynamic, 
adLockOptimistic, 
adCmdText); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}    
——读取表内数据。将表内数据全部读出并显示在列表框内，m_AccessList为列表框的成员变量名。

如果没有遇到表结束标志adoEOF，则用GetCollect(字段名)或m_pRecordset->Fields->GetItem(字段名)->Value方法，

来获取当前记录指针所指的字段值，然后再用MoveNext()方法移动到下一条记录位置。

代码如下所示：

_variant_t var; 
CString strName,strAge; 
try 
{ 
if(!m_pRecordset->BOF) 
m_pRecordset->MoveFirst(); 
else 
{ 
AfxMessageBox("表内数据为空"); 
return; 
} 

// 读入库中各字段并加入列表框中 
while(!m_pRecordset->adoEOF) 
{ 
var = m_pRecordset->GetCollect("Name"); 
if(var.vt != VT_NULL) 
strName = (LPCSTR)_bstr_t(var); 
var = m_pRecordset->GetCollect("Age"); 
if(var.vt != VT_NULL) 
strAge = (LPCSTR)_bstr_t(var); 

m_AccessList.AddString( strName + " --> "+strAge ); 

m_pRecordset->MoveNext(); 
} 

// 默认列表指向第一项，同时移动记录指针并显示 
m_AccessList.SetCurSel(0); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}   
——插入记录。可以先用AddNew()方法新增一个空记录，再用PutCollect(字段名,值)输入每个字段的值，最后再Update()更新到库中数据既可。其中变量m_Name和m_Age分别为姓名及年龄编辑框的成员变量名。

代码所下所示：

try 
{ 
// 写入各字段值 m_pRecordset->AddNew(); 
m_pRecordset->PutCollect("Name", _variant_t(m_Name)); 
m_pRecordset->PutCollect("Age", atol(m_Age)); 
m_pRecordset->Update(); 

AfxMessageBox("插入成功!"); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}    
——移动记录指针。移动记录指针可以通过MoveFirst()方法移动到第一条记录、MoveLast()方法移动到最后一条记录、MovePrevious()方法移动到当前记录的前一条记录、MoveNext()方法移动到当前记录的下一条记录。但我们有时经常需要随意移动记录指针到任意记录位置时，可以使用Move(记录号)方法来实现，注意: Move()方法是相对于当前记录来移动指针位置的，正值向后移动、负值向前移动，如：Move(3)，当前记录是3时，它将从记录3开始往后再移动3条记录位置。

代码如下所示：

try 
{ 
int curSel = m_AccessList.GetCurSel(); 
// 先将指针移向第一条记录，然后就可以相对第一条记录来随意移动记录指针 
m_pRecordset->MoveFirst(); 
m_pRecordset->Move(long(curSel)); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}    
——修改记录中字段值。可以将记录指针移动到要修改记录的位置处，直接用PutCollect(字段名，值)将新值写入并Update()更新数据库既可。

可以用上面方法移动记录指针，修改字段值代码如下所示：

try 
{ 
// 假设对第二条记录进行修改 
m_pRecordset->MoveFirst(); 
m_pRecordset->Move(1);    // 从0开始 
m_pRecordset->PutCollect("Name", _variant_t(m_Name)); 
m_pRecordset->PutCollect("Age", atol(m_Age)); 
m_pRecordset->Update(); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}    
——删除记录。删除记录和上面修改记录的操作类似，先将记录指针移动到要修改记录的位置，直接用Delete()方法删除它并用Update()来更新数据库既可。

代码如下所示：

try 
{ 
// 假设删除第二条记录 
m_pRecordset->MoveFirst(); 
m_pRecordset->Move(1);    // 从0开始 
m_pRecordset->Delete(adAffectCurrent); // 参数adAffectCurrent为删除当前记录 
m_pRecordset->Update(); 
} 
catch(_com_error *e) 
{ 
AfxMessageBox(e->ErrorMessage()); 
}    
——关闭记录集。直接用Close方法关闭记录集并赋于其空值。

代码如下所示： m_pRecordset->Close(); 
m_pRecordset = NULL;    

（完）