通过DAO操作Access数据库

1. 首先,应确保包含进了afxdao.h头文件,可以在StdAfx.h文件中包含它,如下:
#include <afxdao.h>         		//加入DAO数据库支持

2. 声明DAO库及其记录集变量,可在你的实现文件中加入下面代码:
CDaoDatabase db;					//数据库
CDaoRecordset RecSet(&db); //记录集
3. 接着,先让我们来实现它的创建及写入操作
void CRWAccessDlg::OnWriteAccess() 
{
//获取主程序所在路径,存在sPath中
CString sPath;
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
int nPos;
nPos=sPath.ReverseFind ('//');
sPath=sPath.Left (nPos);

//默认创建数据名:Demo.mdb,内部表名:DemoTable,表内有二个字段:姓名、年龄
CString lpszFile = sPath + "//Demo.mdb";

CFileFind fFind;
BOOL bSuccess;
bSuccess=fFind.FindFile(lpszFile);

fFind.Close ();
//是否已有创建好的Demo.mdb文件,没有则创建它
if(!bSuccess)
{
db.Create(lpszFile);

CString SqlCmd = "CREATE TABLE DemoTable(Name VARCHAR(20),Age VARCHAR(3));";
db.Execute(SqlCmd);

//打开已创建的数据表
RecSet.Open(AFX_DAO_USE_DEFAULT_TYPE,
"SELECT * FROM DemoTable", 0);
//加入第一个记录,用SQL语句
db.Execute("INSERT INTO DemoTable (Name,Age) VALUES (''徐景周'',26)");

//加入第二个记录,用DAO涵数
RecSet.AddNew();
RecSet.SetFieldValue("Name","徐志慧");
RecSet.SetFieldValue("Age","21");
RecSet.Update();

//加入第三个记录,用DAO涵数
RecSet.AddNew();
RecSet.SetFieldValue("Name","郭徽");
RecSet.SetFieldValue("Age","27");
RecSet.Update();

//关闭记录集及库
RecSet.Close();
db.Close();

AfxMessageBox("Access文件写入成功!");
}
else
AfxMessageBox("Demo.mdb数据库已经创建!");

}
4. 最后,让我们来实现它的读取操作。
void CRWAccessDlg::OnReadAccess() 
{
COleVariant var; // 字段类型
var.ChangeType(VT_BSTR, NULL);
CString strName,strAge,strFile;

//清空列表框
m_AccessList.ResetContent();

//获取主程序所在路径,存在sPath中
CString sPath;
GetModuleFileName(NULL,sPath.GetBufferSetLength (MAX_PATH+1),MAX_PATH);
sPath.ReleaseBuffer ();
int nPos;
nPos=sPath.ReverseFind ('//');
sPath=sPath.Left (nPos);

strFile = sPath + "//demo.mdb";
db.Open(strFile); // 打开已创建的demo数据库及DamoTable表
RecSet.Open(AFX_DAO_USE_DEFAULT_TYPE,"SELECT * FROM DemoTable",NULL);

while(!RecSet.IsEOF()) // 有没有到表结尾
{
RecSet.GetFieldValue("Name",var);
strName = (LPCSTR)var.pbstrVal;
RecSet.GetFieldValue("Age",var);
strAge = (LPCSTR)var.pbstrVal;
m_AccessList.AddString( strName + " --> "+strAge );

RecSet.MoveNext();
}

//关闭记录集及库
RecSet.Close();
db.Close();
}
 
  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
VB DAO(Visual Basic Data Access Objects)是一种用于访问数据库的编程接口,它可以与Access数据库进行交互。DAO提供了一套用于访问、查询和操作数据库的对象和方法。 首先,我们需要在VB项目中添加对DAO的引用。在VB的工具栏中选择“项目”->“引用”,然后在弹出的对话框中找到“Microsoft DAO想法数层对象库”并勾选它,点击确定即可。 接下来,我们需要创建一个DAO工作空间(Workspace)对象来连接数据库。可以使用下面的代码: Dim ws As DAO.Workspace Set ws = DBEngine.Workspaces(0) 其中,DBEngine是DAO的全局对象,Workspaces是工作空间集合,0表示使用默认工作空间。 然后,我们可以使用工作空间对象打开访问数据库: Dim db As DAO.Database Set db = ws.OpenDatabase("C:\路径\数据库名.accdb") 在上面的代码中,我们使用OpenDatabase方法打开Access数据库,需要指定数据库的具体路径和名称。 接下来,可以使用DAO的查询对象来执行SQL查询语句,例如: Dim rs As DAO.Recordset Set rs = db.OpenRecordset("SELECT * FROM 表名") 在上面的代码中,使用OpenRecordset方法打开指定的数据表,可以使用SQL语句进行查询、过滤和排序等操作。 最后,记得在程序结束时释放对象资源,可以使用如下代码: rs.Close '关闭记录集 Set rs = Nothing '释放记录集对象 db.Close '关闭数据库 Set db = Nothing '释放数据库对象 Set ws = Nothing '释放工作空间对象 以上就是使用VB DAO访问Access数据库的基本步骤。通过DAO的对象和方法,我们可以方便地进行增删改查等数据库操作,实现与访问数据库的交互。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值