1、 VBA 数据库编程一、 VBA 数据库编程VBA 数据库编程就是使用我们的程序代码去访问、或操作我们数据库中的其它对象二、 常见的操作：1、 打开和关闭操作（DoCmd.Open / Close）DoCmd.OpenForm formname 窗体DoCmd.OpenReport reportname 报表DoCmd.Opentable tablename 表DoCmd.Openquery queryname 查询DoCmd.RunMacro 宏名DoCmd.Close(ObjectType, ObjectName, Save)2、 输入框(InputBox)用于在一个对话框中显示提示，等待
2、用户输入信息，并按下按钮，返回包含文本框内容的字符串信息格式:InputBox(prompt,title,default,xpos ,ypos,helpfile,context)例题:InputBox(“请输入一个数 :“, “Msg“)Sub aa()x = InputBox(“请您输入 x 的值“, “系统提示“)MsgBox xEnd Sub3、 消息框(MsgBox)用于在对话框中显示消息，等待用户单击按钮，并返回一个值告诉用户单击哪一个按钮格式:MsgBox(prompt,buttons,title,helpfile,context)例题MsgBox “对不起 !操作错误!“, vb
3、Information ,“系统提示“MsgBox “对不起 !“+chr(10)+“操作错误!“, vbInformation ,“ 系统提示“4、 VBA 编程验证数据验证数据的作用：我们在使用文本框接受一个用户输入信息的时候总希望他能按正确的要求输入数据，比如我们要求一个用户输入年龄，但是这个用户他偏不按照我们的要求做，或是他在输入数据的时候不小心，原本我们是需要他输入一个数值型数据的，但是由于种种原因它输入了一个字符型数据。在这里我们对文本框中接受的数据就要进行数据验证了，不然数据在处理时是会出错的。注意常用的验证函数函数名称 说明IsNumeric 判断表达式是否为数值，是则返回 T
4、rue。IsDate 表达式是否可以转化为日期，可以转化则返回 TrueIsNull 判断表达式是否为无效数据，无效则返回 True。IsEmpty 判断变量是否已经初始化，没有则返回 True。IsArray 判断变量是否一个数组，是则返回 True。IsError 判断表达式是否为错误值，是则返回 True。IsObject 判断变量是否为对象变量，是则返回 True。5、计时控件的使用(Timer)VB 中提供的 Timer 时间控件可以实现 “定时”功能。但是VBA 并没有直接提供 Timer 时间控件，而是通过设置窗体的“计时器间隔”属性与添加“计时器触发(Timer)”事件来完成类
5、似“定时”的功能。其处理过程是：Timer 事件每隔 TimerInterval 时间间隔就会被激发一次，并运行 Timer 事件过程响应，这样重复不断，即实现“定时”处理功能注意“计时器间隔”属性值以毫秒为计量单位，1000 毫秒=1 秒三、 VBA 的数据库编程1、数据库引擎及其接口（P257）数据库引擎是一组动态链接库 DLL（Dynamic Link Library） ，在程序运行时被连接到 VBA，实现对数据库的数据访问功能。是应用程序与物理数据库之间的桥梁。VBA 数据库访问接口是指 VBA 与后台数据库的连接部分，也就是 VBA 与 Access 数据库连接的方法。 在 VBA
6、中主要提供了 3 种数据库访问接口：开放数据库互连应用编程接口(Open Database ConnectivetyAPI，简称 ODBC API)、数据访问对象(Date Access Objects,简称 DAO)和 Active 数据对象(ActiveX DataObjects，简称 ADO)。1）ODBC（ Open Database Connectivity） ，ODBC 称为“开放式数据库连接” ，是一种关系数据源的接口界面。ODBC 基于 SQL（Structured Qurey Language） ，把 SQL 作为访问数据库的标准，一个应用程序通过一组通用代码访问不同的数据库
7、管理系统。ODBC 可以为不同的数据库提供相应的驱动程序。2）DAO（Data Access Objects）DAO 称为“数据访问对象” ，是一种面向对象的界面接口，提供一个访问数据库的对象模型，用其中定义的一系列数据访问对象，实现对数据库的各种操作。使用 DAO 的程序编码非常简单。3）|ADO（ActiveX Data Objects）ADO 称为“Active 数据对象” ，是基于组件的数据库编程接口。ADO 实际是一种提供访问各种数据类型的连接机制，是一个与编程语言无关的 COM（Component Object Model）组件系统。ADO 设计为一种极简单的格式，可以方便地连接任
8、何符合ODBC 标准的数据库。 例题: 数据库引擎及其接口有 ODBC API、_、ADO。2、VBA 访问数据库的类型本地数据库：即 Access 数据库。外部数据库：指所有的索引顺序访问方法(ISAM)数据库。VFPODBC 数据库：符合开放数据库连接(ODBC)标准的 C/S 数据库，例如，Oracle、Microsoft SQL Server 等。例题:VBA 访问数据库的类型有本地数据库、_、ODBC 数据库。3、数据访问对象(DAO)DAO 是 VBA 提供的一种数据库访问接口，包括数据库创建、表和查询的定义等工具，借助 VBA 代码可以灵活地控制数据访问的各种操作。(1)DAO
9、模型结构:Workspace 对象:表示工作区。Database 对象:表示操作的数据库对象。RecordSet 对象:表示数据操作返回的记录集。Field 对象:表示记录集中的字段数据信息。QueryDef 对象:表示数据库查询信息。Error 对象 :表示数据提供程序出错时的扩充信息。例题:RecordSet 对象表示_。(2)利用 DAO 访问数据库（ P260）4、ActiveX 数据对象 (ADO)ActiveX 数据对象(ADO) 是基于组件的数据库编程接口，它是一个和编程语言无关的 COM 组件系统，可以对来自多种数据提供者的数据进行读取和写入操作。(1)ADO 模型结构 :Co
10、nnection 对象:建立与数据库的连接Command 对象: 建立连接后，可以发出命令操作数据源RecordSet 对象:表示数据操作返回的记录集。Field 对象:表示记录集中的字段数据信息。Error 对象:表示数据提供程序出错时的扩充信息。例题:Activex 数据对象有_。(2)ADO 使用及访问数据库:（P261）5、数据库编程实例（P268）几个特殊函数 Nz 函数Nz 函数可以将 Null 值转换为 0、空字符串( )或者其他的指定值。调用格式：Nz(表达式或字段属性值，规定值DCount 函数、DAag 函数和 DSum 函数DCount 函数:返回指定记录集中的记录数；调用格式： DCount(表达式，记录集，条件式)DAvg 函数:返回指定记录集中某个字段列数据的平均值；DAvg(表达式，记录集，条件式)DSum 函数 用于:指定记录集中某个字段列数据的和。DSum(表达式，记录集，条件式)DLookup 函数:从指定记录集里检索特定字段的值。调用格式：DLookup(表达式，记录集，条件式)
