AccessVBA数据库编程知识

1、2021/3/271第10章 VBA程序设计基础n本章要点:q熟悉VBA编程环境q掌握VBA语法q掌握VBA的流程控制结构2021/3/27210.1 VBA编程环境n认识VBAqVisual Basic for Applicationq与VB开发工具很相似,包括各种主要的语法结构、函数命令等。q与VB的主要区别是VBA主要面向Office办公软件开发工具（增强Word、Excel等软件的自动化能力）,提供了很多VB中没有的函数和对象,这些对象都是针对Office应用的。q宏的每个基本操作在VBA中都有相应的等效语句。2021/3/27310.1 VBA编程环境nVBA编程环境:VBE窗口20

2、21/3/27410.1 VBA编程环境nAccess 2003数据库中包含的程序模块可以分为两种类型:q独立程序模块q绑定型程序模块2021/3/27510.1 VBA编程环境n绑定性程序模块q是指包含在窗体、报表、页等数据库基本对象之中的事件处理过程,这样的程序模块仅在所属对象处于活动状态下有效。q也称类模块。作用范围局限在所属的窗体和报表内部,具有局部特性。2021/3/27610.1 VBA编程环境n绑定模块代码设计步骤:q选中控件的对应事件选事件过程:2021/3/27710.1 VBA编程环境n绑定模块代码设计步骤2:q选中事件过程后点 按钮。2021/3/27810.1 VBA编

3、程环境n编辑独立的程序模块q独立程序模块是指Access2003数据库中的“模块”对象。这些模块对象可以在数据库中被任一个对象所调用。q也称为标准模块。一般用于存放公共过程,不如其他任何Access对象相关联。通常为整个应用系统设置全局变量或通用过程,供其他窗体或报表等数据库对象在类模块中使用或调用。q标准模块中的公共变量和公共过程具有全局性,其作用范围为整个应用系统。2021/3/27910.1 VBA编程环境n标准模块的创建步骤:q1.选择”模块”对象,点“新建”2021/3/271010.1 VBA编程环境n标准模块的创建步骤:q2.标准模块界面2021/3/271110.1 VBA编程

4、环境n两种模块:2021/3/271210.1 VBA编程环境nVBE窗口的组成2021/3/271310.1 VBA编程环境n主要按钮介绍:q视图切换:从VBE视图切换到Access数据库对象视图。q插入模块:用于插入新模块对象,并置新模块对象为操作目标。q运行:执行模块程序。q中断:中止正在运行的程序,进入设计模式。q重新设置:中止程序q设计模式:在设计模式和非设计模式之间切换。2021/3/271410.1 VBA编程环境n主要按钮的功能:q工程资源管理器:选中当前程序模块。2021/3/271510.1 VBA编程环境n属性窗口:2021/3/271610.1 VBA编程环境n对象浏览

5、器:2021/3/271710.1 VBA编程环境n创建模块q添加过程2021/3/271810.2 模块基础nSub过程qPublic|Private Static Sub 子过程(形参) As 数据类型n子过程语句nExit SubqEnd SubqPublic可以使该过程能被所有模块的所有其他过程调用。qPrivate可以使该过程只能被同一模块的其他过程调用。q在一个过程中也可以调用其他子过程或打开窗体等2021/3/271910.2 模块基础n子过程的定义:qPublic Sub ccc()nDoCmd.OpenForm LoginqEnd Subn子过程的调用:qCall 子过程（实

6、参）q或者子过程(实参)qCall ccc()qCcc()2021/3/272010.2 模块基础nFunction函数qPublic|Private Static Function 函数过程名（形参）AS 数据类型n函数过程语句n函数过程名表达式nExit FunctionqEnd Functionq和Sub过程很类似,但通常都具有返回值。qStatic定义静态函数,函数中定义的值一直保存。qAs 数据类型,定义函数返回值类型。2021/3/272110.2 模块基础n函数定义qPrivate Function ddd(r As Double) As Integerq Dim pi As D

7、oubleq pi = 3.1415926q ddd = pi * r * rqEnd Function2021/3/272210.2 模块基础n窗体按钮事件中调用模块过程或函数:q用表达式生成器选择2021/3/272310.2 模块基础n表达式生成器选择标准模块函数方法:2021/3/272410.3 VBA面向对象编程基础n属性与方法的引用方式:q对象.属性名,对象.方法名q这里的对象一般采用:父对象类名!子对象名q对于窗体上的控件可以用:me.xx 方式来引用,me代表当前窗体。q例如访问窗体上标签:nForm_模块应用!Lb1.Caption“你好啊”nMe.lb1.caption“

8、你好啊”q标准模块只能用:父对象类名!子对象名,而窗体模块两种形式都可以使用,推荐使用me.形式。2021/3/272510.3 VBA面向对象编程基础n访问窗体文本框:q访问或设置文本框中的字符串n读:msgbox（me.text1.value）n赋值:me.Text1.value“你好啊”q设置或者访问文本框被选中内容nMe.text3.setfocusnMe.Text3.SelStart = 2nMe.Text3.SelLength = 2nMsgBox (Me.Text3.SelText)2021/3/272610.3 VBA面向对象编程基础q设置文本框的输入掩码:nMe.Text3.

9、InputMask = Password“q设置文本框的可用性:n锁定控件,即只读:Me.Text3.Locked = Truen禁用控件:Me.Text3.Enabled = trueq设置文本框焦点:nDoCmd.GoToControl (Text3)nMe.Text3.SetFocus2021/3/272710.3 VBA面向对象编程基础n访问切换控件（Toggle）q程序判断是否按下n读/赋值:me.Toggle.Valuen值为:true（1）,false（0）q该控件较少被应用到2021/3/272810.3 VBA面向对象编程基础n单选控件（Option）q程序判断选中与否q读/

10、赋值:me.Option1.value=trueq值为:true（1）,false（0）n复选框（Check）q程序判断选中与否q读/赋值:me.check1.valueq值为:true（1）,false（0）2021/3/272910.3 VBA面向对象编程基础n组合框（Combo）q程序访问选中的内容、选中的序号、遍历整个下拉列表,以及增加和删除内容。q重要属性:nMsgBox (Me.Combo13.ListIndex),返回组合框被选项的序号,从1开始;没有被选择的初值为1。nMsgBox (Me.Combo13.Value),返回组合框被选项的值,必须有内容被选择后才能使用。nMsg

11、Box (Me.Combo13.ListCount),返回组合框中选项数量,可以用它实现对组合框数据的遍历。2021/3/273010.3 VBA面向对象编程基础n组合框下拉列表值集合:bo13.ItemData(i),返回i序号位置列表项值。q组合框特色属性:n手动输入的文本:bo13.Text,可以结合按键事件,将手动输入的内容增加到组合框中。n这个属性是列表框所没有的。q组合框重要方法:nMe.Combo13.AddItem (“ccc”),对组合框增加新下拉项,参数是下拉项的值,即显示出的字符串。nMe.Combo13.RemoveItem (3),删除组合框中指定序号位置的下拉项。2

12、021/3/273110.3 VBA面向对象编程基础n列表框（List）q除了外观形式外,常用属性方法与组合框大体类似。q特色属性:n多重选择属性:Me.List18.MultiSelect,值是0,1,2,但是运行只读属性,只能在运行之前设置。n判断列表项是否被选中属性:Me.List18.Selected(i),返回对应序号的列表值是否被选中。2021/3/273210.3 VBA面向对象编程基础n图片框（image）q一般选择链接形式显示图片,图片显示用缩放。q动态更改图片:nMe.Image22.Picture = “E:教学资源1.jpg”,要给出图片的路径。2021/3/27331

13、0.3 VBA面向对象编程基础n分页控件（选项卡控件）q重要属性:qPages属性,主要通过它指定新当前页,修改页的标题、隐藏和显示指定页。nMe.xxk.Pages.Item(2).SetFocusnMe.xxk.Pages.Item(1).Caption = ccnMe.xxk.Pages.Item(0).Visible = False2021/3/273410.3 VBA面向对象编程基础nAccess应用程序内置对象qApplication对象,包含大量的属性、方法和子对象,部分全局性操作通过它完成。调用时先输入“Application.”即可显示其包含的各个子内容。qDocmd对象,是

14、Application的一个子对象。主要功能是通过调用Access内置的方法,在VBA中实现特定的操作。调用时先输入“Docmd.”即可以选用其下属子属性和方法。q这两个对象的常用方法部分可以参考教材125页起的内容。该对象后续内容将大量应用。2021/3/273510.4 VBA编程基础nVBA程序书写规范q不区分大小写,但是标点符号、括号必须是半角英文格式。一个变量或者函数名第一次定义或者使用后,其后程序将自动依照第一次定义（或使用）除格式显示。q语句书写,一般一句一行,如果一行写不下,可以在要续行的行尾用续行符（空格+”_”）,然后在下一行续写语句代码。q注释语句:用Rem开头或者” “

15、开头一行表示注释。2021/3/273610.4 VBA编程基础n1.VBA中的基本数据类型q字节型,关键字Byte,占1个字节,在0255内取值。q主要用于存储一些小型整数。qDim i As ByteqDim x, y, z As Byteqi=100qX=Iq没有表示符号2021/3/273710.4 VBA编程基础n逻辑型,关键字Boolean,占2字节,取True,False。0为false,非0为True,如-1。q主要用于存储一些逻辑运算结果qDim x as booleanqX=trueqX=0qX=1000qX=-199q常量没有特殊表示符号2021/3/273810.4 V

16、BA编程基础n整型,关键字Integer,占2字节,取3276832767之间。q最常用的整型。qDim I as integerqi=100qi=1+1q其常量用表示,如99。2021/3/273910.4 VBA编程基础n长整型,关键字Long,占4字节,取值范围在正负20亿之间取值。q主要用于存储特别大的整型数值。qDim x as longqX=19999q其常量用&表示,如99&等。2021/3/274010.4 VBA编程基础n单精度型,关键字Single,占4字节,在正负10-45之间取值。qDim salary as singleqSalary=3000q保存小数q其常量用!表

17、示,如100.89!2021/3/274110.4 VBA编程基础n双精度数,关键字Double,占8个字节,比单精度数更大的表达能力。qDim distance as DoubleqDistance=300000q最常用的浮点数表示类型。可以兼容所有其他数值类型。q其常量用表示,如200.92021/3/274210.4 VBA编程基础n货币型q关键字:Currency,占8字节,15位整数,4位有效小数。qDim money as CurrencyqMoney=99999999.9999q其常量标志为,如199。2021/3/274310.4 VBA编程基础n日期型（包括时间,实际是日期时

18、间类型）q关键字Data,占8字节qDim today as DateqToday=Now 得到当前日期和时间qToday=Date 得到当前日期qTodayTime 得到当前时间q日期常量必须用#括起来,如#10-11-2006#2021/3/274410.4 VBA编程基础n对象型q关键字:Object,占4个字节,可以指向任何对象。q一般不生成这种通用对象类型,而是根据需要生成专用的对象。2021/3/274510.4 VBA编程基础n字符型q关键字:String,最多可以存放64K字符。q常量表示字符$,如“hello!”$q字符和字符串一样表示方式,如”A“,”AB”,只有一个字符的

19、字符串就可以作为字符。这点和C+不同。q长度为0的字符串为空串。2021/3/274610.4 VBA编程基础n变长类型q类型关键字:Varient,可以存储任何类型。q默认情况下,没有定义数据类型的变量都属于Varient类型。函数没有定义返回值类型时,默认也是Varient类型。2021/3/274710.4 VBA编程基础n用户自定义类型q如结构qPrivate|Public Type 数据类型名n元素1 As 数据类型n元素2 As 数据类型nqEnd Typeq然后qDim x as 自定义类型名qX.元素1.2021/3/274810.4 VBA编程基础n变量、常量、数组qVBA中

20、使用变量可以不需要说明就直接使用。nA100q也可间接显式定义nA100,是整型的标志,所以A为整型。q最常用就是dim语句定义。2021/3/274910.4 VBA编程基础n变量、常量、数组q值常量n100,100,True等等。q常值变量nConst PI3.1415926q固有常量n系统已经定义的环境常量2021/3/275010.4 VBA编程基础n数组qVBA中不允许隐式说明数组,必须先定义后使用。qDim x(10) as integer,普通1维数组qDim y(-2 to 3) as integer,下标2开始的数组qDim z(3,5) as integer,2维数组qDi

21、m w() as integer ,动态1维数组。动态数组可以反复使用Redim重新确定大小。如:Redim w(10),重新定义时可以用Preserve标志保存原有值。Redim Preserver W（20）,这样前面10个值得以保留,否则原有数据全部丢失。Preserve不能改变维数。q默认情况下数组下标从0开始,上标n1。2021/3/275110.4 VBA编程基础n数据库对象变量q可以定义变量代表对应数据库对象上各种控件qDim myform as controlqSet myform=Forms!Form_登录!txtUsernameq（VB或VBA中Set的作用就是让变量指定对

22、象）2021/3/275210.4 VBA编程基础n运算符与表达式q一、算术运算符运算符 名称优先级表达式例子指数运算 1XY-取负数2X/浮点除法 3X/Y整除4XYMod求余数5X MOD Y其他还有（加）、-(减)、*(乘)2021/3/275310.4 VBA编程基础n字符运算符q,字符串连接符号,将两个字符串连接成一个新字符串。q&,将不同数据类型连接到字符串上。n例如:“Access”2003“n”Access“ & 2003n“2+3” & “=“ & (2+3)2021/3/275410.4 VBA编程基础n关系运算符运算符运算含义表达式例子结果Is对象引用比较A is not

23、hingLike字符串匹配”ac“ like “*c” trueBetweenAnd介于某个范围之间Between 10 and 90、=、=、=、2021/3/275510.4 VBA编程基础n逻辑运算符qNot,逻辑非,原来假结果为真。qAnd,逻辑与,两个结果都为真结果为真。qOr,逻辑或,两个之一为真结果为真。qXor,异或,两个表达式不相同结果时真。qEqv,等价,两个表达式相同结果时,结果真。qImp,蕴涵,当第一个表达式为真,且第二个表达式为假,则值为假,否则为真。2021/3/275610.4 VBA编程基础n系统内置函数q内置函数按功能可以分为:数学函数、字符函数、日期函数和

24、格式输出函数。q数学函数nAbs(数学表达式),返回数值表达式的绝对值。nFix(数值表达式),返回数值表达式的整数部分,若参数为负值,返回大于参数值的第一个负数。nInt(数值表达式),返回数值表达式的整数部分,若参数为负数,返回小于等于参数值的第一个负数。nExp(数值表达式),求数值表达式为底的指数函数。2021/3/275710.4 VBA编程基础n数学函数qLog(数值表达式),以e为底的自然对数。qSqr(数值表达式),计算数值表达式的平方根。qSgn(数值表达式),返回一个Variant(Integer),指出参数的正负号。qRound(数值表达式),对操作数四舍五入取整。qRn

25、d(产生随机数),产生01之间的数。2021/3/275810.4 VBA编程基础n转换函数qAsc(字符表达式),返回字符的Ascii码。qChr(数值),Ascii值转换成对应字符。qLcase(字符串表达式),全部转换为小写。qUcase(字符串表达式),全部转换为大写。qStr(数值表达式),将数值表达式转换为字符串。qVal(字符串表达式),将数字字符串转为数值型数据qDateValue(字符串表达式),将字符串转换为日期qHex(数值表达式),十进制转化成十六进制。qSpace(数值表达式),返回指定长度空格字符串。qVBA中还有一些C开头的类型转换函数,Cint,Csng,Cst

26、r2021/3/275910.4 VBA编程基础n字符串函数qInstr(start,str1,str2,compare),字符串检索函数,检索字符串Str2在字符串Str1中最早出现的位置,返回一整数。qStart为数值式,可选参数。qCompare是比较方式:0作二进制比较,1作不区分大小写的文本比较,2作基于数据库中包含信息的比较。q如果Str1串长度为0或Str2检索不到,返回0;如果Str2串长为0,返回Start的值。2021/3/276010.4 VBA编程基础nLeft(字符串表达式或变量,N),从字符串左边截取N个字符。如果N为0,返回长度为零长度字符串;如果N大于或等于字符

27、串长度,返回整个字符串。nRight(字符串表达式或变量,N),从字符串右边起截取N个字符。nMid(字符串表达式,N1,N2),从字符串左边第N1个字符起截取N2个字符。2021/3/276110.4 VBA编程基础nLtrim(字符串表达式或变量),删除字符串的开始字符。nRtrim(字符串表达式或变量),删除字符串的尾部空格字符。nTrim(字符串表达式或变量),删除字符串的开始和尾部空格。2021/3/276210.4 VBA编程基础nLen(字符串表达式或变量),返回字符串的长度。q这里采用Unicode编码处理方式,因此返回的是字符的数量。如“你好123!”返回6。q对于数组变量,

28、返回长度是定义长度。nLenB(字符串表达式或变量),返回字符串所占字节数。q一般是2倍Len结果2021/3/276310.4 VBA编程基础n日期/时间函数qDate()或Date,返回当前系统日期qTime()或Time,返回当前系统时间qNow,返回当前系统的日期和时间qYear/Month/Day/Weekday(日期表达式)qHour/Minute/Second(时间表达式)2021/3/276410.4 VBA编程基础n日期时间函数qDateAdd(间隔目标,间隔值,日期表达式)qDateDiff(间隔目标,日期1,日期2）qDatePart(间隔目标,日期表达式)n间隔目标:“

29、yyyy”表示年,“q”季度,“m”月,“y”一年的天数,“d”天,“w”一周的天数,“ww”周,“h”小时,“n”分钟,“s”秒。qDateSerial(表达式1,表达式2,表达式3),组合成一个日期。2021/3/276510.4 VBA编程基础n格式输出函数qFormat（表达式,格式符)q主要完成对数值、日期、字符串表达式按特定的格式输出。2021/3/276610.4 VBA编程基础n其他常用函数qInputBox函数q格式:InputBox(提示文字,标题,默认值）q作用:出现一个输入对话框,能获得用户的输入信息。2021/3/276710.4 VBA编程基础nMsgboxq格式:

30、msgbox(提示文字,按钮图标,标题)q其中按钮和图标参考教材263页。q作用:给用户弹出一个对话框,进行信息提示,能让用户对某些事件进行判断处理,能记录用户点击的对话框按钮。按钮返回值参考263页表格。q它是VBA中最常用的系统函数,系统中大量提示信息都是通过msgbox实现。2021/3/276810.4 VBA编程基础nIIF函数q格式:IIF（条件表达式,表达式1,表达式2）q作用:类似C+中?:运算符,更具条件,在表达式1和表达式2中选择一个作为返回值。条件为真返回前者,价返回后者。q是IF。Else的简写函数表现。2021/3/276910.4 VBA编程基础nSwitch函数q

31、格式:Switch(条件1,表达式1,条件2,表达式2,.)q作用:该函数用于多条件选择,是Select多分支结构的函数表现。从左向右判断,直到一个条件成立为止,返回对应条件后的表达式。q如果所有条件都不成立,返回null,空值2021/3/277010.4 VBA编程基础nChoose()函数q格式:Choose(数值表达式,表达式1,表达式2,)q作用:类似Switch函数,不过这里没有条件。数值表达式值充当一个条件,如果它界于1,2间,返回表达式1,界于2,3间返回表达式2,依此类推。2021/3/277110.4 VBA编程基础nNz()函数q格式:Nz(表达式或字段树型值,规定值)q

32、作用:如果表达式值为Null,则返回0、“”或者一个自定义的返回值。q很有用的函数,特别在数值运算中。q字符串运算中,可以用“”拼接来消除null,nNull & “”=“”q相关函数:IsNull（表达式）2021/3/277210.4 VBA编程基础nDCount()函数q格式:DCount(表达式,记录集合,条件式)n表达式:用户标识要统计其记录数的字段。n记录集合:字符串表达式,可以是表的名称或查询的名称n条件式:用于限制DCount函数的数据范围,类似Sql语句中的Where条件。q作用:返回指定记录集合中的记录数。nMe.Text1=Dcount(“xh”,”学生”,”xb=男”)

33、q可以在宏、VBA、查询表达式或计算控件中应用。2021/3/277310.4 VBA编程基础nDoAvg（）q用于计算指定记录集合中某个字段列数据的平均值。nDsum()函数q用于汇总指定记录集合中某个字段列数据。nDlookup（）函数q从指定记录集合检索特定字段的值。非常有用的函数,比如登陆验证等等场合。n注意:以上3个函数格式上类似DCount函数,但在记录集合没有记录或者没有符合条件的记录时,返回Null。2021/3/277410.4 VBA编程基础n案例:登陆验证qUID = Me.UIDqPWD = Me.PWDqpwd1 = DLookup(口令, UserInfo, 用户名

34、= & UID & )qIf IsNull(PWD) ThennMsgBox (没有这个用户)qElsenIf PWD = pwd1 ThenqMsgBox 恭喜你登陆成功!nElseqMsgBox 口令不正确nEnd IfqEnd If2021/3/277510.4 VBA编程基础n常用数据格式判断函数qisArray(变量),判断变量是否为一个数组。qIsDate (表达式),判断变量是否可以转换为日期型。qIsEmpty (变量),判断变量是否是为空值。qIsError (表达式),判断表达式是否为一个错误。qIsNumeric (表达式),判断表达式是否为数值。qIsNull (表达式

35、),判断表达式是否为一个无效值null。qIsObject (标志符),判断标识符是否表示对象变量。2021/3/277610.4 VBA编程基础n程序流程控制q单分支结构q多分支结构qFor循环qDo循环qDo while循环2021/3/277710.4 VBA编程基础n单分支结构:IF语句n在VBA中if语句有多种书写形式,要求同学统一用标准格式:qIf 条件 thenn条件成立执行的语句qEnd ifq如果要同时处理条件不成立语句,可以加Else分支qIf 条件 thenqElseqEnd if2021/3/277810.4 VBA编程基础nIf语句的每个执行部分即可以是简单语句序列,

36、也可以是其他流程控制结构,如果是if语句,就是if嵌套。nIf 条件1 thenqIf 条件2 thenqElseqEnd ifnElseqIf 条件3 thenqElseqEnd ifnEnd if2021/3/277910.4 VBA编程基础nIf语句的灵活应用:案例3个数中选择最大值q嵌套应用q平行应用q结论:尽量使用平行应用,适当使用简单嵌套,避免复杂嵌套。2021/3/278010.4 VBA编程基础n多分支结构:Select Case语句q使用Select Case分支结构可以避免使用if语句复杂嵌套,提高程序的可读性。q格式:nSelect Case 变量或者表达式qCase 表

37、达式1语句块1qCase 表达式2语句块2qqCase else语句块n1nEnd Select2021/3/278110.4 VBA编程基础nSelect case 分支结构说明q变量或表达式,可以是数值型或字符串型。Case 表达式与 Select Case 变量或表达式的类型必须相同。qCase表达式可以是下列几种格式:n单一数值或一行并列数值（用,隔开）n用关键字to分割开的两个数值或表达式之间的范围。n用is关系运算符表达式n可以是上面3个的复合使用2021/3/278210.4 VBA编程基础nFor循环,一般用于固定循环次数的循环场合q格式:qFor 循环变量=初值 to 终值

38、step 步长n语句块nexit forqNext q默认下Step1,如果希望是其他内容,就修改这个步长q其他方面类似C+,exit for 是中途结束循环。2021/3/278310.4 VBA编程基础nDoloop循环q格式:qDon语句块nExit doqloopq特点是至少运行一次的循环,默认下是无限循环,需要使用exit do 结束循环。q可以增加While或者until组成有条件循环。两者差异是while条件是开始条件,until 条件是结束条件。2021/3/278410.4 VBA编程基础n有条件do循环qDo n语句块nexit doqLoop while 条件表达式（un

39、til 条件表达式）q这种循环也是至少执行一次的循环,一直到条件不成立或者中途exit do 退出为止。2021/3/278510.4 VBA编程基础nWhile或until条件也可以前置,实现先判断在循环。qDo while 条件表达式（until 条件表达式）n语句块nexit doqLoopq通常使用do循环都是应用这种类型循环。2021/3/278610.4 VBA编程基础nUntil应用qsum = 0qi = 1qDo Until i 100nsum = sum + ini = i + 1qLoopnWhile应用qsum = 0qi = 1qDo Until i = 100nsum = sum + ini = i + 1qLoop2021/3/278710.5 过程调用与参数传递n函数调用q与调用标准函数格式相同:函数名（实参表）n过程调用qCall 过程名（实参表）q或者: 过程名 实参表,这里值得注意的是如果用:过程名(实参表),则会出错,除非用:a=过程名(实参表),也就是说写成函数形式就需要有变量接受结果。n通常设计中一般将有返回结果的程序块定义为函数,没有