VBA数据库编程讲解.doc

第九章 VBA数据库编程 第一节 VBA常见操作 VBA的数据库编程 第一节 VBA常见操作 一、打开和关闭操作 二、输入框(InputBox) 三、消息框(MsgBox) 四、VBA编程验证数据 五、计时事件（Timer） 一、打开和关闭操作1.打开窗体操作命令格式为：DoCmd.OpenForm 窗体名[,视图][,筛选名称][,Where条件][,数据模式][,窗口模式]有关参数说明如下：窗体名称：字符串表达式，代表窗体的有效名称。视图：各种视图对应常量如下： 设计视图 acDesign ， 数据表视图 acFormDS， 窗体视图（默认值）acNormal， 打印预览acPreview 2.打开报表操作 命令格式为： DoCmd. OpenReport 报表名称[,视图][,筛选名称][,Where条件]报表名称：代表要打开的报表的有效名称，为字符串表达式。视图：代表将要打开的报表的视图，各种视图对应常量如下： 设计视图 acViewDesign 打印视图（默认值） acViewNormal 打印预览 acViewPreview 3.打开表操作 命令格式为： DoCmd.OpenTable表名[, 视图][, 数据模式] 表名：代表要打开的表的有效名称，为字符串表达式，。 视图：代表将要打开的报表的视图，各种视图对应常量如下： 设计视图 acViewDesign 数据表视图（默认值） acViewNormal 打印预览 acViewPreview 4.打开查询操作 DoCmd. OpenQuery查询名[, 视图][, 数据模式] 5.关闭对象操作 DoCmd.Close [对象类型, 对象名] [,保存] 6.运行宏 DoCmd.RunMacro MacroName[, repeatcount][, repeatexpression] 7.退出Access程序 DoCmd. Quit 二、输入框(InputBox) 格式：InputBox(提示信息[,标题][,字符表达式][,左边距][,上边距]) 说明： （1）用于接收用户从键盘上输入的数据; （2）函数返回值为从键盘上输入的数据，为字符串； （3）“提示信息”是显示在对话中用于提示用户输入的信息； （4）“标题”是对话框标题栏上显示的内容； （5）“字符表达式”是默认输入内容； （6）“左边距”是对话框距屏幕左边的距离； （7）“上边距”是对话框距屏幕上边的距离。 三、消息框(MsgBox) 格式：MsgBox(消息[,样式][,标题]) 说明： （1）该函数用于显示操作提示或反馈消息，以提示用户做出反映； （2） “消息”是显示在对话框中的信息； （3）“样式”决定消息框内的按钮和图标的种类和数目，它是“按钮类型”、“图标类型”、“缺省按钮”３个数值之和。 ① 按钮类型  第二节　VBA数据库编程 　一、DAO技术 二、ADO技术 三、数据库编程分析 四、数据库数据访问和处理时使用的特殊函数 一、DAO技术 　　　DAO（数据访问对象）是VBA提供的一种数据访问接口，使用它可以灵活地访问数据库并进行各种操作。 　　　１．DAO库的引用 　　　２．DAO模型结构 　　　３．使用方法 １．DAO库的引用 （1）打开VBE窗口； （2）选择“工具”菜单中的“引用”项； （3）在“引用”对话框中选择“Microsoft DAO 3.6 Object Library”并确定。 ３．使用方法 （1）创建工作区 （2）打开数据库 （3）选择记录集 （4）浏览记录 （5）操作记录 （6）关闭和回收记录集与数据库 （7）举例 （1）创建工作区 Dim 工作区变量 As Workspace Set 工作区变量=DBEngine.Workspace(序号) 此步可省略，若省略则默认为打开0号工作区。 （2）打开数据库 Dim 数据库变量 As Database Set 数据库变量=工作区变量.OpenDatabase(数据库名) 　　若打开当前数据库，则前两步可用以下语句替代： 　　Set 数据库变量=CurrentDB（） （3）选择记录集 Dim 记录集变量 As RecordSet Set 记录集变量=数据库变量.OpenRecordSet（表名｜查询名｜SQL语句） （4）浏览记录 通过记录集对象的相应属性和方法可实现记录的浏览。 访问字段：Fields（字段名｜字段编号） 注意：第一字段编号为０，以此类推。 记录定位： 前移：MovePrevious　后移：MoveNext 首记录：MoveFirst　尾记录：MoveLast 记录n：Move