目标:实现对数据库中的数据进行简单地操作,包括增、删、改、查。
第一步,创建一个基于对话框的应用程序,命名为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.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所示的错误提示框
图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 所示:
图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;