MFC使用ADO对象开发数据库应用程序

简介:

MFC使用ADO对象开发数据库应用程序

 

需要一个List Constrol控件设置为

其步骤一般分为:

(1) 引入ADO动态库文件

(2) 初始化COM环境

(3) 连接数据库操作数据表

说明:本数据库使用acess2000制作,名字为“shujuku.mdb”。内含一个表,命名为“表1”。

 

stdafx.h添加以下代码引入ADO动态库文件

 

#import "C:\Program Files\Common Files\System\ado\msado15.dll" no_namespace\

 rename("EOF","adoEOF")rename("BOF","adoBOF")

 

初始化COM环境

 

::CoInitialize(NULL);   //app类中的InitInstance函数中添加

::CoUninitialize();       //app类中的InitInstance函数最后return之前添加释放COM环境

 

 

首先先在dlg头文件中先声明这两个智能指针,通过这些指针可以很容易的创建和删除ADO对象。

_ConnectionPtr m_pConnection;

_RecordsetPtr m_pRecordset;

 

接下来在dlg类中添加函数void OnInitADOConn()

void CMy1Dlg::OnInitADOConn()

{

try

{

//创建连接对象实例

m_pConnection.CreateInstance("ADODB.Connection");

//设置连接字符串2000的在代码中有!

CString strConnect="DRIVER={Microsoft Access Driver (*.mdb)};\

uid=;pwd=;DBQ=shujuku.mdb;";

//使用Open方法连接数据库

m_pConnection->Open((_bstr_t)strConnect,"","",adModeUnknown);  

}

catch(_com_error e)

{

AfxMessageBox(e.Description());

}

}

dlg类中在添加void ExitConnect()函数

void CMy1Dlg::ExitConnect()

{

//关闭记录集和连接

if(m_pRecordset!=NULL)

m_pRecordset->Close();

m_pConnection->Close();

}

dlg类的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);

m_Grid.InsertColumn(3,"学历",LVCFMT_LEFT,110,3);

AddToGrid();

 

dlg类中添加void AddToGrid()函数

 

void CMy1Dlg::AddToGrid()

{

//连接数据库

OnInitADOConn();

//设置查询字符串

_bstr_t bstrSQL = "select * from 1 order by 编号 desc";

//创建记录集指针对象实例

m_pRecordset.CreateInstance(__uuidof(Recordset));

//打开记录集

m_pRecordset->Open(bstrSQL,m_pConnection.GetInterfacePtr(),adOpenDynamic,

adLockOptimistic,adCmdText);

while(!m_pRecordset->adoEOF)

{

m_Grid.InsertItem(0,"");

m_Grid.SetItemText(0,0,(char*)(_bstr_t)m_pRecordset->GetCollect("编号"));

m_Grid.SetItemText(0,1,(char*)(_bstr_t)m_pRecordset->GetCollect("姓名"));

m_Grid.SetItemText(0,2,(char*)(_bstr_t)m_pRecordset->GetCollect("性别"));

m_Grid.SetItemText(0,3,(char*)(_bstr_t)m_pRecordset->GetCollect("学历"));

//将记录集指针移动到下一条记录

m_pRecordset->MoveNext();

}

//断开数据库连接

ExitConnect();

 

}

接下来为四个edit控件和一个list constrol控件关联变量,在资源中右键点击选择classwizar里的Member variables,分别为它们设置变量为m_ID,m_Name,m_Sex,m_Culture,m_Grid.dlg类的头文件部分自动会生成

CStringm_ID;

CStringm_Name;

CStringm_Sex;

CStringm_Culture;

CListCtrl m_Grid;

 

Dlg类构造函数中

m_ID = _T("");

m_Name = _T("");

m_Sex = _T("");

m_Culture = _T("");

dlg类的DoDataExchange()函数中

DDX_Text(pDX, IDC_EDIT1, m_ID);

DDX_Text(pDX, IDC_EDIT2, m_Name);

DDX_Text(pDX, IDC_EDIT3, m_Sex);

DDX_Text(pDX, IDC_EDIT4, m_Culture);

 

接下来双击那四个功能按钮和一个列表控件的点击响应功能,分别生成各自的响应函数

 

//记录数据添加功能

void CMy1Dlg::OnButton1() 

{

UpdateData(TRUE);

if(m_ID.IsEmpty() || m_Name.IsEmpty() || m_Sex.IsEmpty() || m_Culture.IsEmpty())

{

MessageBox("基础信息不能为空!");

return;

}

OnInitADOConn();

_bstr_t sql;

sql = "select * from 1";

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pRecordset->Open(sql,m_pConnection.GetInterfacePtr(),adOpenDynamic,

adLockOptimistic,adCmdText);

try

{

m_pRecordset->AddNew(); //添加新行

m_pRecordset->PutCollect("编号",(_bstr_t)m_ID);

m_pRecordset->PutCollect("姓名",(_bstr_t)m_Name);

m_pRecordset->PutCollect("性别",(_bstr_t)m_Sex);

m_pRecordset->PutCollect("学历",(_bstr_t)m_Culture);

m_pRecordset->Update(); //更新数据表

ExitConnect();

}

catch(...)

{

MessageBox("操作失败");

return;

}

MessageBox("添加成功");

m_Grid.DeleteAllItems(); //删除列表控件

AddToGrid();

}

 

//dlg类头文件声明一个long型变量,用来保存用户单击的记录在列表控件的位置为列表,该变量定义在dlg的类内。

//控件的NM_CLICK消息添加消息处理函数(即双击资源框里的list constrol控件就会生成)

void CMy1Dlg::OnClickList1(NMHDR* pNMHDR, LRESULT* pResult) 

{

long pos = m_Grid.GetSelectionMark();

m_ID = m_Grid.GetItemText(pos,0);

m_Name = m_Grid.GetItemText(pos,1);

m_Sex = m_Grid.GetItemText(pos,2);

m_Culture = m_Grid.GetItemText(pos,3);

UpdateData(FALSE);

*pResult = 0;

}

//修改数据功能

void CMy1Dlg::OnButton2() 

{

UpdateData(TRUE);

if(m_ID.IsEmpty() || m_Name.IsEmpty() || m_Sex.IsEmpty() || m_Culture.IsEmpty())

{

MessageBox("基础信息不能为空!");

return;

}

OnInitADOConn();

_bstr_t sql;

sql = "select * from 1";

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pRecordset->Open(sql,m_pConnection.GetInterfacePtr(),adOpenDynamic,

adLockOptimistic,adCmdText);

long pos = m_Grid.GetSelectionMark();

try

{

m_pRecordset->Move((long)pos,vtMissing);

m_pRecordset->PutCollect("编号",(_bstr_t)m_ID);

m_pRecordset->PutCollect("姓名",(_bstr_t)m_Name);

m_pRecordset->PutCollect("性别",(_bstr_t)m_Sex);

m_pRecordset->PutCollect("学历",(_bstr_t)m_Culture);

m_pRecordset->Update();

ExitConnect();

}

catch(...)

{

MessageBox("操作失败");

return;

}

MessageBox("修改成功");

m_Grid.DeleteAllItems();

AddToGrid();

}

//删除数据功能

void CMy1Dlg::OnButton3() 

{

OnInitADOConn();

_bstr_t sql;

sql = "select * from 1";

m_pRecordset.CreateInstance(__uuidof(Recordset));

m_pRecordset->Open(sql,m_pConnection.GetInterfacePtr(),adOpenDynamic,

adLockOptimistic,adCmdText);

long pos = m_Grid.GetSelectionMark();

try

{

m_pRecordset->Move((long)pos,vtMissing);

m_pRecordset->Delete(adAffectCurrent);

m_pRecordset->Update();

ExitConnect();

}

catch(...)

{

MessageBox("操作失败");

return;

}

MessageBox("删除成功");

m_Grid.DeleteAllItems();

AddToGrid();

}

//清除功能

void CMy1Dlg::OnButton4() 

{

m_ID = "";

m_Name = "";

m_Sex = "";

m_Culture = "";

UpdateData(FALSE);

}




本文转自农夫山泉别墅博客园博客,原文链接:http://www.cnblogs.com/yaowen/archive/2013/01/06/2848356.html,如需转载请自行联系原作者

相关文章
|
4天前
|
前端开发 Java Go
新一代数据库技术的崛起与应用前景
本文探讨了新一代数据库技术在不同领域的崛起和应用前景。通过对前端、后端、Java、Python、C、PHP、Go等多种类型的技术进行分析,我们揭示了新一代数据库技术的优势和特点,并展望了其在未来的发展趋势。本文旨在为读者全面了解新一代数据库技术提供参考和指导。
|
1天前
|
关系型数据库 MySQL 项目管理
数据库大作业——基于qt开发的图书管理系统(四)项目目录的整理与绘制登录页面
数据库大作业——基于qt开发的图书管理系统(四)项目目录的整理与绘制登录页面
|
1天前
|
SQL 关系型数据库 MySQL
数据库大作业——基于qt开发的图书管理系统(三)Qt连接Mysql数据库
数据库大作业——基于qt开发的图书管理系统(三)Qt连接Mysql数据库
|
1天前
|
SQL 数据可视化 关系型数据库
数据库大作业——基于qt开发的图书管理系统(二) 相关表结构的设计
数据库大作业——基于qt开发的图书管理系统(二) 相关表结构的设计
|
5天前
|
监控 安全 关系型数据库
精通MySQL:数据库核心技术与应用实践
h3> 一、引言 MySQL作为开源关系型数据库管理系统的佼佼者,凭借其出色的性能、灵活性和稳定性,成为许多企业和开发者的首选
|
6天前
|
存储 人工智能 NoSQL
探索数据库技术的奥秘:从基础架构到前沿应用
一、引言 在数字化时代,数据库技术作为信息管理的基石,已经渗透到我们生活的方方面面
|
6天前
|
存储 SQL NoSQL
探索数据库技术的奥秘:从核心原理到行业应用
一、引言 数据库技术是现代信息科技的核心组成部分,它为我们提供了一种高效、可靠的方式来存储、检索和管理数据
|
6天前
|
存储 人工智能 NoSQL
探索数据库技术的奥秘:原理、应用与前沿发展
一、引言 数据库技术作为现代信息技术的核心支柱之一,已经深入到各个行业与领域,成为数据处理与存储的不可或缺的工具
|
6天前
|
存储 SQL NoSQL
探索数据库技术的奥秘:原理、应用与前沿进展
一、引言 数据库技术作为现代信息技术的核心组成部分,承载着数据存储、检索、管理和分析的重要任务
|
6天前
|
SQL 存储 数据处理
探索数据库技术的奥秘:原理、应用与未来发展
一、引言 在当今数字化时代,数据库技术已成为支撑各种应用系统和业务运行的关键基础设施

热门文章

最新文章