计算机二级Access理论培训-VBA编程.ppt
全国计算机等级考试二级Access数据库,目录,数据结构与算法程序设计基础软件工程基础数据库设计基础Access数据库知识,1、VBA编程基础,数据类型：如何将数据存储在内存中Access常用的10种数据类型文本备注数字日期/时间货币自动编号是/否OLE对象超级链接查阅向导,1、VBA编程基础,VBA的数据类型Byte（字节型）Integer（整型）Long（长整型）Single（单精度型）Double（双精度型）Currency（货币型）String（字符型）Boolean（布尔型）Date（日期型）Variant（变体型）Object（对象型）,1、VBA编程基础,Byte类型无符号整数取值范围：0-255Integer类型有符号整数取值范围：-3276832767Long类型有符号整数取值范围：-21474836482147483647Single类型实数取值范围：-1.401298E-45 3.402823E38Double类型实数取值范围：-4.94065645841247E-3241.79769313486232E308,1、VBA编程基础,Boolean数据类型只能是True 或False与其他类型转换其他类型转Boolean：0转False，其他值转TrueBoolean转其他类型：False转0，True转-1,1、VBA编程基础,Date类型日期文字必须用符号#扩起来例：#08/15/2009#Variant类型当一个类型没有被显式声明为其他类型时，缺省为variant类型是特殊的类型，可以转换和替换其他类型当variant变量没有值时，则用Empty表示，当variant变量有一个空值时，用NULL表示,1、VBA编程基础,用户自定义数据类型用Type语句定义把多个数据类型组合成用户自定义类型例：Type MyInfo Name As String Birthday As Date Sex As IntegerEnd Type,1、VBA编程基础,变量存取数据，提供数据存放信息的容器每个变量都有一个名字VBA变量的命名规则变量名必须以英文字母开头变量名长度不超过255个字符用字母、数字、下划线来命名不能与VBA本身的函数、语句等关键字同名VBA变量不区分大小写,1、VBA编程基础,变量的声明显示声明格式：Dim 变量名 As 类型Dim I As IntegerDim A As String,B As Currency,C As Ineger 隐式声明格式：Dim 变量名Dim x由于容易出错，一般不用隐式声明,1、VBA编程基础,变量的作用域局部范围：在子过程或子函数中起作用模块范围：在整个模块起作用全局范围：在整个系统起作用,1、VBA编程基础,常量在程序执行过程中，不发生改变的值或字符串格式：Const 常量名=表达式Const pi=3.1415926Const BornDay=#03/23/80#Const A1=“Abcdef258”VBA系统内部有若干个内部符号常量，可以直接使用：True,False,Yes,No,On,Off,Null等,1、VBA编程基础,数组格式：Dim 数组名(下标 To 上界)As 数据类型Dim Workers(8)As Integer下标默认为0，上界为8，共9个元素Dim Students(1 to 8)As Integer二维数组格式：Dim 数组名(下标 To 上界,下标 To 上标)As 数据类型Dim Aa(19,19)As IntegerDim Bb(1 to 20,1 to 20)As Integer,1、VBA编程基础,运算符数学运算符：+、-、*、/、（乘幂）、（整数除法）、Mod（求模）比较运算符：=、=连接运算符把两个字符串连接在一起。有&和+运算符A1=“厦门“A2=“大学”A3=A1&A2逻辑运算符AND（与）、OR（或）、NOT（非）运算的结果是：True 或 False,1、VBA编程基础,表达式和优先级把常量、变量用运算符连接在一起所构成的式子当一个表达式有多个运算符，进行运算的顺序是由运算符的优先级决定的算术运算连接运算比较运算逻辑运算例：x=1,y=2,z=3,x+yz AND x-yz,1、VBA编程基础,标准函数数学函数Sin(N)、Cos(N)、Tan(N)、Atn(N)Sgn(N):返回自变量N的符号。N0，返回1Abs(N)：求绝对值Sqr(N)：求平方根Exp(N)：求e的N次幂Log(N)：N的自然对数Int(N)：不大于N的整数，Int(5.2)=5,Int(-5.2)=-6Fix(N)：取整,Fix(5.2)=5,Fix(-5.2)=-5Cint(N)：四舍五入整数Rnd(N)：0-1之间的随机小数,1、VBA编程基础,标准函数转换函数Asc(C)：字符串C首字母的ASCII值。Asc(“A”)=65Chr(N)：ASCII码值N的字符。Chr(65)=AVal(C)：把数字组成的字符串转换成数值。Val(“456”)=456Str(N)：把数值转换成字符。Str(357)=“357”Str(-123)=“-123”,1、VBA编程基础,标准函数字符串函数Trim(C)：去掉字符串c两端的空格。Trim(“av“)=“av”Left(c,n)：取C的左边n个字符。Left(“command”,3)=“com”Right(c,n)：去C的右边n个字符。Right(“command”,3”)=“and”Mid(C,m,n)：取C的m个字符开始的n个字符。Mid(“command”,3,2)=“mm”Len(c)：c的字符数。汉字算一个字符。Len(“中”)=1,1、VBA编程基础,标准函数日期与时间函数Time()：当前时间Date()：当前日期Now()：当前时间和日期Day(c)：当前日Month(c)：当前月Year(c):当前年WeekDay(C)：星期几,2、VBA流程控制语句,VBA语句：一条语句就是一个命令，可包含关键字、运算符、变量、常量和表达式语句分类声明语句执行语句通常一条语句占一行，一行写不下使用”_”将语句写在下一行,2、VBA流程控制语句,流程控制-条件语句IfthenIf I10000 then tax=Money*0.2Else if Money1000 then tax=Money*0.15Else tax=Money*0.1End if IIf(条件式,表达式1,表达式2),2、VBA流程控制语句,流程控制-条件语句Select caseSelect Case X case 1 Print“One”case 2 Print”Two”case 3 Print”Three”case 4 Print“Best”Case else Print“Bad”End Case,2、VBA流程控制语句,流程控制循环语句For NextFor i=1 to 10 step 1 Print 2iNext iDim Numbers(1 to 15)As IntegerDim I As IntegerFor I=1 to 15 Numbers(I)=30Next I,2、VBA流程控制语句,流程控制循环语句Do While Loop：条件为真时循环Do Until Loop：条件为假时循环Dim I As IntegerI=1Do While I=20 Print I I=I+1LoopDim I As IntegerI=1Do Print I I=I+1Loop While I=20,2、VBA流程控制语句,流程控制循环语句Do While Loop：条件为真时循环Do Until Loop：条件为假时循环Dim I As IntegerI=1Do Until I=20 Print I I=I+1LoopDim I As IntegerI=1Do Print I I=I+1Loop Until I=20,2、VBA流程控制语句,流程控制循环语句While WendI=1While I=5 Print I I=I+1Wend,2、VBA流程控制语句,流程控制循环语句循环退出：ExitPrivate Sub Command1_click()Dim I,J As IntegerJ=Form!Text2.ValueFor I=1 To 100 If I=J Then Exit For End IfNext IMsgBox“你输入的值是：”&IEnd Sub,3、过程调用和参数传递,过程调用子过程的定义Public Sub 子过程名(参数名)子过程语句End Sub子过程的调用Call 子过程名(参数名)或 子过程名 参数名,3、过程调用和参数传递,过程调用子过程的定义Public Sub 子过程名(参数名)子过程语句End Sub子过程的调用Call 子过程名(参数名)或 子过程名 参数名,3、过程调用和参数传递,过程调用函数过程的定义Public Function 函数过程名(参数名)As 数据类型 函数过程语句End Function 函数过程的调用函数过程名(参数名),3、过程调用和参数传递,参数传递ByVal：按值传递ByRef：按址传递，默认选项,4、VBA程序运行错误处理,On Error GoTo 标号On Error Resume NextOn Error GoTo 0,VBA数据库编程,VBA常见操作打开和关闭操作DoCmd.OpenFormDoCmd.OpenReportDoCmd.Close输入框（InputBox）消息框（MsgBox）计时事件（Timer）设置窗体的“计时器间隔”属性添加“计时器触发（Timer）”事件，每隔TimerInternal时间间隔就会自动执行一次,VBA数据库编程,VBA可以访问数据库的类型JET数据库：AceessISAM数据库：dBase，FoxProODBC数据库：SQLServer、OracleVBA提供访问数据库的接口ODBCDAOADO,
