《Access数据库基础教学课件作者邹小宁3章节》由会员分享，可在线阅读，更多相关《Access数据库基础教学课件作者邹小宁3章节（27页珍藏版）》请在金锄头文库上搜索。
1、ACCESS数据库基础,作者：陈恭和,责任编辑：邹小宁 出版日期：2008年9月 IDPN：308-2008-001 课件章数：12,第9章 在Access中运用VBA,【本章要点】 VBA以及程序的组成； VBA对数据库对象进行编址的方法； 使用VBA编辑器的方法； 简单的VBA过程开发、调试方法。,9.1 什么是Visual Basic for Application,9.1.1 VBA的相关概念 过程 函数 子程序 模块 9.1.2 获取有关VBA的帮助,9.2 程序的组成部分,一个程序包括以下基本要素： 语句； 变量； 运算符； 函数； 数据库对象和对象库； 事件。,9.2.1 语句,
2、在VBA中编写程序时，要写出命令，建立程序语句 9.2.2 变量 有时，需要有个缓冲的地方暂时保存一些数据，最合适的方法就是使用变量，它们在内存中存储信息，可以给变量赋初值，可以在程序中用命令语句更改变量的值。,变量的使用与如下内容密切相关： 1.数据类型 2.科学计数法 3.声明变量 1）隐式声明 2）显式声明 4.变量数组 5.变量赋值 6.变量命名规则,9.2.3 运算符,在表达式中，要使用运算符。VBA的运算符分为以下四种： 数学运算符 (+ - * / Mod) 比较运算符 (= = ) 连接运算符 (& 合并字运算符) 逻辑运算符(AND EQV IMP NOT OR XOR ),
3、9.2.4 函数,VBA提供了大量的函数，函数是具有返回值的过程，通过使用函数，可以避免进行重复性的编程工作。 9.2.5 连接数据库对象 本小节介绍将数据库对象表、窗体、报表、宏等对象与VBA连接的方法。,9.2.6 VBA中常用的事件,当触发一个过程的事件发生时，VBA才能执行过程。一些常用时间如下： 1.窗体常用事件 （1）Load事件 （2）Click、DbClick单击和双击事件 2.按钮常用事件 Click事件是命令按钮最常用的事件。 3.文本框常用事件 （1）Change事件 （2）KeyPress事件 （3）GotFocus （4）LostFocus （5）SetFocus 4
4、.组合框和列表框的常用事件 （1）组合框事件 （2）列表框事件,9.2.7 VBA的结构控制语句,计算机的程序设计有三种控制结构：顺序、分支和循环 1.顺序结构 如果执行程序的顺序是按书写命令的次序执行的，就是顺序结构 2.分支结构 （1）单分支结构IFTHEN （2）多分支结构IFTHENELSEIF （3）多分支SelectCaseEnd Select 3.循环结构 使用循环语句（又称控制结构），可以生成重复动作的代码。这种结果十分有用。循环允许重复执行一组语句，重复执行这些语句直到条件不满足为止。,练习9-1： 将例9-17程序更改为计算 1*2*3*4*100的程序。 练习9-2： 用
5、Do WhileLoop结构编写程序，计算1*2*3*4*100。,9.3 创建VBA模块,模块是将VBA代码的声明、语句和过程作为一个单元进行保存的集合，是基本语言的一种数据库对象，数据库中的所有对象都可以在模块中进行引用。在Access中模块可以分为两类：类模块和标准模块。,VBA编辑器 VBA编辑器是建立VBA程序的工具,9.3.2 创建新过程,过程是包含VBA代码的基本单位，由一系列可以完成某项指定的操作或计算的语句和方法组成，通常分为Sub过程、Function过程、Property过程。 1.SUB过程 定义通用过程的格式为： Public |PrivateStatic Sub 过
6、程名(参数列表) 语句块 End Sub,2函数 函数是过程的另一种形式，当过程的执行返回一个值时，使用函数就比较简单。要创建一个自定义函数，必须使用Function过程，其格式为： Public |PrivateStatic Function 函数名(参数列表)As 类型 语句块 函数名 = 表达式 Exit Function 语句块 函数名 = 表达式 End Function,9.3.3 使用ADO,1.ADO简介 ADO （ActiveX Data Objects）是一个自动接口组件，可以同多种编程语言结合起来使用，这些语言包括 Microsoft Visual Basic、VBScr
7、ipt、JScript、Visual C+ 和 Visual J+。通过一个简单、统一的应用程序编程接口 (API)，就可以实现通过VBA去访问数据源。 2.在VBA中使用ADO,9.3.4 指定参数 【例9-21】 给过程添加参数。 Sub ChangeSales(ID As Integer, sName As String) 括号中的内容表示函数有两个参数：ID和sName，参数的类型分别为整型和字符型，分别对应“销售订单”表中的“订单ID”字段和“经手人”字段。 注意： 函数参数的数据类型一定与数据库表的数据类型匹配。可以打开表的设计视图，检查字段的类型，再选参数，函数将根据参数决定更改
8、哪些记录，以及更改什么内容。,继续上例，除了定义函数参数，还应该说明其它变量，比如，作为累加计数器的变量。 【例9-22】 声明变量。 在过程中增加以下几行，定义变量，本例采用ADO的方法连接数据库： Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Dim str As String 第一行声明一个连接； 第二行声明一个是数据集（不严格地说，是表的全部或一个部分）的类型； 第三行声明一个字符型变量。,9.3.5 定义变量,加入语句,加入语句： Set cn = New ADODB.Connection Set cn = CurrentP
9、roject.Connection Set rs = New ADODB.Recordset 第一、二行将变量cn定义为与当前使用数据库的连接； 第三行定义rs变量是一个新的数据集。,9.3.6 检查记录,过程的第二部分是按照给定的“订单ID”打开数据集，并对记录的“经受人”字段进行修改。如果没有对应的记录，则报告没有相关记录。 【例9-23】 按照给定的“订单ID”打开数据集，并修改字段。 在函数中增加以下几行： str = “SELECT * FROM 销售订单where 订单ID=“ & ID rs.Open str, cn, adOpenKeyset, adLockOptimistic
10、 第一行是建立一个SQL的语句，目的是按给定的订单ID选择记录； 第二行的作用是执行建立的命令语句； 参数cn表示是打开连接的数据库中的表； 参数adOpenKeyset和adLockOptimistic是数据集的打开模式，这两个参数表示这个数据集可以更新。,修改记录的字段： If Not rs.EOF Then rs.Fields(“经手人“) = sName End If rs.Update “If Not rs.EOF Then”是判断条件rs.eof是否不成立的语句，EOF的到表的结尾标志的函数，如没到结尾标志，Not rs.EOF=TRUE，说明所找的记录存在，否则不存在； 第二行是
11、用窗体中输入的新经手人信息更新字段的内容； Update方法将更改后的信息写回“销售订单”表。 继续举例，创建函数的工作进入尾声。 【例9-24】 关闭打开的数据集。 输入以下命令语句： rs.Close,9.3.8 保存模块,【例9-25】 保存模块。 单击工具栏上的“保存”按钮，或打开菜单“文件”“保存”。 输入一个模块名称，salesChange，按回车键。 单击“确定”按钮。 单击“关闭”按钮，关闭创建的模块。,9.4 调试过程,完成创建过程，下一步是对函数或过程进行调试。VBA提供了若干种调试的工具，列举如下： 立即窗口； Debug.print； 设置断点。 9.4.1 使用立即窗
12、口的方法 调试过程最常用的工具应该是立即窗口，立即窗口让调试者立即查看过程或函数的运行结果，发现问题所在。,9.4.2 设置断点,另一个测试工具是断点调试法，一般来说，设置断点是为了观察程序运行时的状态。 在程序中指定的、希望暂停的地方设置断点，在程序暂停后，可以在立即窗口中显示变量信息。 练习9-3： 将第8章建立的“密码检测”宏，改写成一段VBA程序代码，密码为PWUIBE，并利用本章介绍的方法来调试程序。,9.5 将过程连接到窗体中,对过程的建立和调试后，将过程连接到窗体，以便当单击命令按钮时能够执行这个过程。 练习9-4： 将练习9-3所做的过程代码连接到密码输入窗体中。 建立一个窗体，三个文本框作用分别是：第一、二个用于输入数字，第三个用于输出计算结果；三个命令按钮，单击按钮后，分别进行两个数字的算术加法、两个数字的字符串连接以及清除文本框内容操作。用VBA编写不同的事件过程并测试程序正确与否。,小结 本章主要介绍了VBA的作和一般编写程序代码的方法，并且介绍了如何将子程序连接到窗体当中的方法。 VBA需要程序设计的基础，多做多练是提高编程水平的最好方法。 本章没有全面介绍VBA的内容，如果感兴趣，可以参考VB或VBA的相关资料。,
