直接通过DAO读写Access文件

直接 利用DAO来创建、读写Access 文件 ，总的说来，对比上篇《 直接 通过 ODBC读、写Excel 文件 》来讲，要简单一些。在下面的示例中，我们将用到两种方法：SQL和DAO类函数来混合实现它们，这样做的目地，我想可以使大家更加方便灵活的运用它们来完成你想要

直接利用DAO来创建、读写Access文件，总的说来，对比上篇《直接通过ODBC读、写Excel文件》来讲，要简单一些。在下面的示例中，我们将用到两种方法：SQL和DAO类函数来混合实现它们，这样做的目地，我想可以使大家更加方便灵活的运用它们来完成你想要做的东西。在示例程序中默认指定创建数据库名为：Demo.mdb，内部表名为：DemoTable，写入两个字段：名字和年龄，采用和上一篇读写Excel类似的操作，你也可以根据自己需要来动态改变它们。示例程序运行界面如下所示：

下面让我们来简要看看它的实现步骤：

1. 首先，应确保包含进了afxdao.h头文件，可以在StdAfx.h文件中包含它，如下:

Delphi组件编写者指南 word中文版

Delphi组件编写者指南关于《组件编写者指南》翻译的说明 1. 译文中粉红色的部分，是译者认为原文有错误的地方，我已改过，只是用粉红色作了标记； 2. 对于有关“参看”的各章节的页码，我也没有建立页码的关联，因为麻烦，所以只是用原书中的页码值，同时用蓝色加以标记，可以直接删除； 3. 由于原书只分章，没有分节。阅读起来不便。所以，我加了章节的编号，这样更清楚。 4. 书中的“第V部分的其余章节”没有真正的对应部分，所以照译出

2

查看详情

#include <afxdao.h>　　　　 　　　　//加入DAO数据库支持</afxdao.h>

2. 声明DAO库及其记录集变量，可在你的实现文件中加入下面代码： CDaoDatabase db;　　　　　　　　　　//数据库<br>CDaoRecordset RecSet(&db);　　　　//记录集3. 接着，先让我们来实现它的创建及写入操作void CRWAccessDlg::OnWriteAccess()<br>{<br>　　//获取主程序所在路径,存在sPath中<br>　　CString sPath;<br>　　GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);<br>　　sPath.ReleaseBuffer ();<br>　　int nPos;<br>　　nPos=sPath.ReverseFind (''\'');<br>　　sPath=sPath.Left (nPos);<br>　　//默认创建数据名：Demo.mdb，内部表名：DemoTable，表内有二个字段：姓名、年龄<br>　　CString lpszFile = sPath + "\Demo.mdb";<br>　　<br>　　CFileFind　fFind;<br>　　BOOL bSuccess;<br>　　bSuccess=fFind.FindFile(lpszFile);<br>　　fFind.Close ();<br>　　//是否已有创建好的Demo.mdb<strong>文件</strong>，没有则创建它<br>　　if(!bSuccess)<br>　　{<br>　　　　db.Create(lpszFile);<br>　　　　CString SqlCmd = "CREATE TABLE DemoTable(Name VARCHAR(20),Age VARCHAR(3));";<br>　　　　db.Execute(SqlCmd);<br>　　<br>　　　　//打开已创建的数据表<br>　　　　RecSet.Open(AFX_DAO_USE_DEFAULT_TYPE,<br>　　　　　　"SELECT * FROM DemoTable", 0);<br>　　　　//加入第一个记录，用SQL语句<br>　　　　db.Execute("INSERT INTO DemoTable (Name,Age) VALUES (''徐景周'',26)");<br>　　　　<br>　　　　//加入第二个记录，用DAO涵数<br>　　　　RecSet.AddNew();<br>　　　　RecSet.SetFieldValue("Name","徐志慧");<br>　　　　RecSet.SetFieldValue("Age","21");<br>　　　　RecSet.Update();<br>　　　　<br>　　　　//加入第三个记录，用DAO涵数<br>　　　　RecSet.AddNew();<br>　　　　RecSet.SetFieldValue("Name","郭徽");<br>　　　　RecSet.SetFieldValue("Age","27");<br>　　　　RecSet.Update();<br>　　　　<br>　　　　//关闭记录集及库<br>　　　　RecSet.Close();<br>　　　　db.Close();<br>　　　　AfxMessageBox("Access<strong>文件</strong>写入成功！");<br>　　}<br>　　else<br>　　　　AfxMessageBox("Demo.mdb数据库已经创建！");<br>　　<br>}4. 最后，让我们来实现它的读取操作。void CRWAccessDlg::OnReadAccess()<br>{<br>　　COleVariant var;　　　　// 字段类型<br>　　var.ChangeType(VT_BSTR, NULL);<br>　　CString strName,strAge,strFile;<br>　　//清空列表框<br>　　m_AccessList.ResetContent();<br>　　//获取主程序所在路径,存在sPath中<br>　　CString sPath;<br>　　GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);<br>　　sPath.ReleaseBuffer ();<br>　　int nPos;<br>　　nPos=sPath.ReverseFind (''\'');<br>　　sPath=sPath.Left (nPos);<br>　　strFile = sPath + "\demo.mdb";<br>　　db.Open(strFile);　　　　// 打开已创建的demo数据库及DamoTable表<br>　　RecSet.Open(AFX_DAO_USE_DEFAULT_TYPE,"SELECT * FROM DemoTable",NULL);<br>　　while(!RecSet.IsEOF())　　// 有没有到表结尾<br>　　{<br>　　　　RecSet.GetFieldValue("Name",var);<br>　　　　strName = (LPCSTR)var.pbstrVal;<br>　　　　RecSet.GetFieldValue("Age",var);<br>　　　　strAge = (LPCSTR)var.pbstrVal;<br>　　　　m_AccessList.AddString( strName + " --> "+strAge );<br>　　　　RecSet.MoveNext();<br>　　}<br>　　//关闭记录集及库<br>　　RecSet.Close();<br>　　db.Close();<br>}以上部分代码的具体实现的细节问题，可在下载实例代码后，仔细查看源码既可(内有详细注释)。