Access实例教程ACCESS实例教程1，用ADO访问数据库2，用DAO访问数据库3，程序运行错误处理9.1VBA数据库访问接口2．DAO（DataAccessObjects）DAO称为“数据访问对象”，是一种面向对象的界面接口，提供一个访问数据库的对象模型，用其中定义的一系列数据访问对象，实现对数据库的各种操作。使用DAO的程序编码非常简单。3．ADO（ActiveXDataObjects）ADO称为“Active数据对象”，是基于组件的数据库编程接口。ADO实际是一种提供访问各种数据类型的连接机制，是一个与编程语言无关的COM（ComponentObjectModel）组件系统。ADO设计为一种极简单的格式，可以方便地连接任何符合ODBC标准的数据库。数据库引擎是一组动态链接库DLL（DynamicLinkLibrary），在程序运行时被连接到VBA，实现对数据库的数据访问功能。是应用程序与物理数据库之间的桥梁。VBA通过DAO和数据引擎可以识别3类数据库：1．本地数据库：即Access数据库。2．外部数据库：所有索引顺序访问方法（ISAM）数据库，如VFP。也可以访问文本文件数据库和MicrosoftExcel或Lotus1-2-3电子表格。3．ODBC数据库：符合ODBC标准的C/S数据库，如SQLServer、Oracle。9.2.1DAO模型结构3.2统配符、运算符与常用函数9.2.3用DAO访问数据库DoWhilenotrs.EOF'循环遍历整个记录集直至记录集末尾……'对字段的各种操作rs.MoveNext'记录指针移到下一条Loop'返回到循环开始处rs.close'关闭记录集db.close'关闭数据库setrs=nothing'释放记录集对象变量所占内存空间setdb=nothing'释放数据库对象变量所占内存空间说明：如果是本地数据库，可以省略定义Workspace对象变量，打开工作区和打开数据库两条语句用下面一条语句代替：Setdb=CurrentDb()该语句是Access的VBA给DAO提供的数据库打开快捷方式。例：用DAO访问数据库（4）给命令按钮的单击事件写代码如下：DimdbasDAO.Database'定义Database对象变量DimrsasDAO.Recordset'定义Recordset对象变量DimfdasDAO.Field'定义Field对象变量Setdb=CurrentDb()'建立与当前数据库的连接Setrs=db.OpenRecordset("gz")'建立与gz表的连接Setfd=rs.Fields("工资")'设置对“工资”字段的引用DoWhileNotrs.EOF'如果指针没有到最后就执行循环体rs.Edit'使rs处于可编辑状态fd=fd+fd*0.1'给指定字段值增加10%rs.Update'更新表rs.MoveNext'向下移动指针Loop'返回到循环开始处rs.MoveFirst'指针移到第一条记录t1=rs.Fields("姓名")'将姓名字段的值显示在t1中t2=rs.Fields("工资")'将工资字段的值显示在t2中rs.Closedb.CloseSetrs=NothingSetdb=Nothing（5）转到窗体视图→单击命令按钮，可以看到t2文本框中显示第一条记录更新后的工资值。9.3用ADO访问数据库9.3.2ADO对象简介9.3.3用ADO访问数据库loop'返回到循环开始处rs.close'关闭记录集cn.close'关闭连接setrs=nothing'释放记录集对象变量所占内存空间setcn=nothing'释放连接对象变量所占内存空间说明：对于本地数据库，Access的VBA也给ADO提供了类似于DAO的数据库打开快捷方式，可以将设置数据提供者和打开数据库两条语句用下面一条语句代替：Setcn=CurrentProject.Connection()2．RecordSet对与Command对象联合使用DimcmasnewADOBD.Command'建立命令对象DimrsasnewADOBD.RecordSet'建立记录集对象cm.ActiveConnection=连接字符串'建立命令对象的活动连接cm.CommandType=查询类型'指定命令对象的查询类型cm.CommandText=查询字符串'建立命令对象的查询字符串rs.Opencm,其他参数'打开记录集dowhilenotrs.EOF'循环开始……'对字段的各种操作rs.movenext'记录指针移到下一条loop'返回到循环开始处rs.close'关闭记录集setrs