使用ADO对象添加、修改、删除数据

使用ADO对象对数据库中的数据进行添加、修改和删除等操作。首先创建一个ADO类，通过ADO类连接数据库，并打开记录集。
例如，使用ADO对象添加、修改、删除数据，程序设计步骤如下：
（1）创建一个基于对话框的应用程序，将对话框的Caption属性修改“使用ADO对象添加、修改、删除数据”。
（2）向对话框中添加一个列表视图控件、3个静态文本控件、3个编辑框控件和4个按钮控件，并为控件关联变量。
（3）创建一个ADO类，请参照封装ADO对象的内容。
（4）在StdAfx.h导入ADO动态链接库，代码如下。
#import "C:Program FilesCommon FilesSystemadomsado15.dll" no_namespace
rename("EOF","adoEOF")rename("BOF","adoBOF") //导入ADO动态链接库
（5）在对话框的OnInitDialog函数设置列表视图控件的扩展风格以及列标题，代码如下。
m_Grid.SetExtendedStyle(LVS_EX_FLATSB //扁平风格显示滚动条
|LVS_EX_FULLROWSELECT //允许整行选中
|LVS_EX_HEADERDRAGDROP //允许整列拖动
|LVS_EX_ONECLICKACTIVATE //单击选中项
|LVS_EX_GRIDLINES); //画出网格线
//设置列标题及列宽度
m_Grid.InsertColumn(0,"编号",LVCFMT_LEFT,110,0);
m_Grid.InsertColumn(1,"姓名",LVCFMT_LEFT,110,1);
m_Grid.InsertColumn(2,"学历",LVCFMT_LEFT,110,2);
AddToGrid(); //向列表中插入数据
（6）添加AddToGrid函数，用来向列表视图控件中插入数据，代码如下。
void CUseAdoDlg::AddToGrid()
{
ADO m_Ado; //声明ADO类对象
m_Ado.OnInitADOConn(); //连接数据库
CString SQL = "select * from employees order by 编号 desc"; //设置查询字符串
m_Ado.m_pRecordset = m_Ado.OpenRecordset(SQL); //打开记录集
while(!m_Ado.m_pRecordset->adoEOF) //记录集不为空时循环
{
m_Grid.InsertItem(0,""); //向列表视图控件中插入行
//向列表视图控件中插入列
m_Grid.SetItemText(0,0,(char*)(_bstr_t)m_Ado.m_pRecordset->GetCollect("编号"));
m_Grid.SetItemText(0,1,(char*)(_bstr_t)m_Ado.m_pRecordset->GetCollect("姓名"));
m_Grid.SetItemText(0,2,(char*)(_bstr_t)m_Ado.m_pRecordset->GetCollect("学历"));
m_Ado.m_pRecordset->MoveNext(); //将记录集指针移动到下一条记录
}
m_Ado.CloseRecordset(); //关闭记录集
m_Ado.CloseConn(); //断开数据库连接
}
（7）处理“添加”按钮的单击事件，将编辑框中的文本添加到数据库中，代码如下。
void CUseAdoDlg::OnButadd()
{
UpdateData(TRUE);
if(m_ID.IsEmpty() || m_Name.IsEmpty() || m_Culture.IsEmpty()) //数据不能为空
{
MessageBox("基础信息不能为空！"); //为空时弹出提示信息
return;
}
ADO m_Ado; //声明ADO类对象
m_Ado.OnInitADOConn(); //连接数据库
CString sql = "select * from employees"; //设置查询字符串
m_Ado.m_pRecordset = m_Ado.OpenRecordset(sql); //打开记录集
try
{
m_Ado.m_pRecordset->AddNew(); //添加新行
//向数据库中插入数据
m_Ado.m_pRecordset->PutCollect("编号",(_bstr_t)m_ID);
m_Ado.m_pRecordset->PutCollect("姓名",(_bstr_t)m_Name);
m_Ado.m_pRecordset->PutCollect("学历",(_bstr_t)m_Culture);
m_Ado.m_pRecordset->Update(); //更新数据表记录
m_Ado.CloseRecordset(); //关闭记录集
m_Ado.CloseConn(); //断开数据库连接
}
catch(...) //捕捉可能出现的错误
{
MessageBox("操作失败"); //弹出错误提示
return;
}
MessageBox("添加成功"); //提示操作成功
m_Grid.DeleteAllItems(); //删除列表控件
AddToGrid(); //向列表中插入数据
}
（8）处理列表视图控件的单击事件，在列表项被选中时，将列表项中的数据显示到编辑框中，代码如下。
void CUseAdoDlg::OnClickList1(NMHDR* pNMHDR, LRESULT* pResult)
{
int pos = m_Grid.GetSelectionMark(); //获得当前选中列表项索引
//获得列表项数据
m_ID = m_Grid.GetItemText(pos,0);
m_Name = m_Grid.GetItemText(pos,1);
m_Culture = m_Grid.GetItemText(pos,2);
UpdateData(FALSE); //更新控件显示
*pResult = 0;
}
（9）处理“修改”的单击事件，根据编辑框中的数据修改数据库中的数据，代码如下。
void CUseAdoDlg::OnButmod()
{
UpdateData(TRUE);
if(m_ID.IsEmpty() || m_Name.IsEmpty() || m_Culture.IsEmpty()) //数据不能为空
{
MessageBox("基础信息不能为空！"); //为空时弹出提示信息
return;
}
int pos = m_Grid.GetSelectionMark(); //获得当前选中列表项索引
ADO m_Ado; //声明ADO类对象
m_Ado.OnInitADOConn(); //连接数据库
CString sql = "select * from employees"; //设置查询字符串
m_Ado.m_pRecordset = m_Ado.OpenRecordset(sql); //打开记录集
try
{
m_Ado.m_pRecordset->Move((long)pos,vtMissing); //将记录集指针移动到选中的记录
//设置选中记录的文本
m_Ado.m_pRecordset->PutCollect("编号",(_bstr_t)m_ID);
m_Ado.m_pRecordset->PutCollect("姓名",(_bstr_t)m_Name);
m_Ado.m_pRecordset->PutCollect("学历",(_bstr_t)m_Culture);
m_Ado.m_pRecordset->Update(); //更新记录集
m_Ado.CloseRecordset(); //关闭记录集
m_Ado.CloseConn(); //断开数据库连接
}
catch(...) //捕捉可能出现的错误
{
MessageBox("操作失败"); //弹出错误提示
return;
}
MessageBox("添加成功"); //提示操作成功
m_Grid.DeleteAllItems(); //删除列表控件
AddToGrid(); //向列表中插入数据
}
提示：在catch语句部分我们使用了“…”表示捕捉所有错误，也就是说在try语句部分产生任何错误，都会进入catch语句块部分进行处理。
（10）处理“删除”按钮的单击事件，删除列表框中被选中的列表项，代码如下。
void CUseAdoDlg::OnButdel()
{
int pos = m_Grid.GetSelectionMark(); //获得当前选中列表项索引
ADO m_Ado; //声明ADO类对象
m_Ado.OnInitADOConn(); //连接数据库
CString sql = "select * from employees"; //设置查询字符串
m_Ado.m_pRecordset = m_Ado.OpenRecordset(sql); //打开记录集
try
{
m_Ado.m_pRecordset->Move(pos,vtMissing); //将记录集指针移动到选中的记录
m_Ado.m_pRecordset->Delete(adAffectCurrent); //删除选中的记录
m_Ado.m_pRecordset->Update(); //更新记录集
m_Ado.CloseRecordset(); //关闭记录集
m_Ado.CloseConn(); //断开数据库连接
}
catch(...) //捕捉可能出现的错误
{
MessageBox("操作失败"); //弹出错误提示
return;
}
MessageBox("删除成功"); //提示操作成功
OnButclear(); //清空编辑框中数据
m_Grid.DeleteAllItems(); //删除列表控件
AddToGrid(); //向列表中插入数据
}