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

落日映苍穹つ 2022-08-26 14:18 198阅读 0赞

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

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

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

![Center][]

图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.mdb
    m_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所示的错误提示框

![Center 1][]

图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记录集对象指针
    _RecordsetPtr	m_pRecordset;
    // 定义ADO记录集对象指针	避免重复再定义一个
    _RecordsetPtr	m_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 _DEBUG
    AfxMessageBox(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 xu
    try
    {
    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 xu
    try
    {
    // 写入各字段值
    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_pRecordset1
    m_pRecordset1 = m_pCommand->Execute( NULL, NULL, adCmdText); 
    }
    catch(_com_error& e)
    {
    dump_com_error(e);
    }
    }

最终界面如图3 所示：

![Center 2][]

图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;

（完）

[Center]: /images/20220824/610863e3a9d14050a27cc0d062a8cf46.png
[Center 1]: /images/20220824/bdbb88b15da24ae99855e992b51f1a31.png
[Center 2]: /images/20220824/fbd1a23ea75f4f4e9ce391b8929e5dfa.png