数据库课件模块与VBA程序设计幻灯片.ppt

二级ACCESS—模块与VBA 10.11 过程调用与参数传递 3、参数传递（虚实结合） 参数传递指主调过程的实参（调用时已有确定值和内存地址的参数）传递给被调过程的形参，参数的传递有两种方式：按值传递、按地址传递。形参前加“ByVal”关键字的是按值传递，缺省或加“ByRef”关键字的为按地址传递。 传址与传值 传址：形参得到的是实参的地址，当形参值的改变同时也改变实参的值。 传值：形参得到的是实参的值，形参值的改变不会影响实参的值。 二级ACCESS—模块与VBA 10.11 过程调用与参数传递 Sub Swap2(x%, y%) Dim Temp% Temp = x: x = y: y = Temp End Sub Sub Swap1(ByVal x%, ByVal y%) Dim Temp% Temp = x: x = y: y = Temp End Sub 例6.4 Private Sub CmdOK_Click() a% = 10: b% = 20: Swap1 a, b ‘传 值 Print A1=“ a B1=“b a = 10: b = 20: Swap2 a, b 传地址 Print A2=“ a B2=“ b End Sub 二级ACCESS—模块与VBA 10.11 过程调用与参数传递 值传递的执行过程如下图： 地址传递数据的执行过程 二级ACCESS—模块与VBA 10.12 VBA数据库编程 VBA通过数据库引擎(Microsof jet)工具完成对数据库的访问，所谓数据库引擎其实是一组动态连接库(DLL),程序运行时被连接到VBA程序程序而实现对数据库的访问功能。VBA中提供了3种数据库访问接口。 ODBC API：开放数据库互连应用编程接口。 DAO：数据访问对象。 ADO：Active数据对象 VBA访问的三种数据库类型： 本地数据库：ACCESS 外部数据库 ODBC数据库：如Oracle、SyBase、SQL Server等 二级ACCESS—模块与VBA 10.12 VBA数据库编程 DAO数据对象模型模型 DBEngine Workspace(s) Database(s) RecordSet(s) Field(s) Error(s) QueryDef(s) DBEngine数据库引擎为DAO模型最上层对象，包含并管理其它对象。 二级ACCESS—模块与VBA 10.12 VBA数据库编程 ADO数据对象模型模型(与语言无关) Error(s) Connection Command RecordSet Field(s) 指定数据连接提供者，建立到数据源的连接。 可执行一个命令，如可执行SQL查询。一般用于表结构的修改。 可执行SQL查询返回一个记录集，并可对记录集进行修改、插入、删除操作。是ADO中最灵活的对象。 二级ACCESS—模块与VBA 10.12 VBA数据库编程 例：分别用DAO和ADO来完成对“教学管理.mdb”文件中“学生表”的学生年龄都加1的操作。（假设文件存放在E盘“考试中心”文件夹中） 使用DAO技术： Sub SetAgePlus1() dim we as DAO.Workspace ‘工作区对象 dim db as DAO.Database ’数据库对象 dim rs as DAO.Recordset ’记录集对象 dim fd as DAO.Field ‘字段对象 set ws=DBEngine.Workspace(0) set db=ws.OpenDatabase(“e:\考试中心教程\教学管理.mdb”) ’打开数据库 set rs=db.OpenRecordSet(“学生表”) ‘返回“学生表”记录集 set fd=rs.Fields(“年龄”) ’设置“年龄”字段 二级ACCESS—模块与VBA 10.12 VBA数据库编程 ‘对记录集用循环结构进行遍历 Do while not rs.eof rs.ed