第8章模块和VBA设计答题.ppt

* 8.6 过程调用与参数传递 例8-18 比较动态变量和静态变量的应用 窗体界面如图所示。代码如下： Private Sub Cmd1_Click() Dim x% Static y% x = x + 1 y = y + 1 b1.Caption = x b2.Caption = y End Sub 连续单出“开始”按钮5次,分析结果. 8.6.5 变量的生存期 * 要想快速、有效地管理好数据，开发出更具实用价值的Access数据库应用程序，应当了解和掌握VBA的数据库编程方法。 8.7 VBA的数据库编程 在VBA中主要提供了3种数据库访问接口： （1）开放数据库互联应用编程接口 （2）数据访问对象DAO （3）Active数据对象 8.7.1 数据库引擎及其接口 * 数据访问对象（DAO）是VBA提供的一种数据访问接口。包括数据库创建、表和查询的定义等工具，借助VBA代码可以灵活地控制数据访问的各种操作。 DAO模型是一个复杂的可编程数据关联对象的层次，DAO的对象层次说明如下： 8.7 VBA的数据库编程 8.7.2 数据访问对象(DAO) 1．DAO模型结构 * 8.7 VBA的数据库编程 * 要想使用DAO访问数据库的对象，首先应该增加一个对DAO库的引用。其引用设置方式为： （1）先进入VBA编程环境。 （2）执行“工具/引用”命令,在对话框的，单击“Microsoft DA03.6 object Library”列表项前面的复选框。 （4）单击“确定”按钮，完成设置。 8.7 VBA的数据库编程 2．设置DAO库的引用 * 通过DAO编程实现据库访问时，首先要创建对象变量，然后通过对象方法和属性来进行操作。下面给出数据库操作一般语句和步骤： （1）创建对象变量 定义工作区对象变量：Dim ws As Workspace 定义数据库对象变量：Dim db As Database 定义记录集对象变量：Dim rs As RecordSet （2）通过Set语句设置各个对象变量的值 Set ws=DBEngine.Workspace(0) Set db=ws.OpenDatabase(数据库文件名) Set rs=db.OpenRecordSet(表名、查询名或SQL语句) 8.7 VBA的数据库编程 3．利用DAO访问数据库 * （3）通过对象的方法和属性进行操作 通常使用循环结构处理记录集中的每一条记录。 Do While Not rs.EOF … … Rs.MoveNext Loop （4）操作的收尾工作 rs.close cn.close Set rs=Nothing Set cn=Nothing 8.7 VBA的数据库编程 3．利用DAO访问数据库 * 3．利用DAO访问数据库 例:例用DAO编程,完成对表记录的添加、查找、删除、修改等功能 * * ADO为开发者供一个强大的逻辑对象模型，以便开发者通过OLE DB系统接口以编程方式访问、编辑、更新各式各样的数据源。 8.7 VBA的数据库编程 8.7.3 ActiveX数据(ADO) 1．ADO模型结构 Connection Command Recordset Fields * 要想使用ADO访问数据库的对象，首先应该增加一个对AOD库的引用。其引用设置方式为： （1）先进入VBA编程环境。 （2）执行“工具/引用”命令,在对话框的，单击“Microsoft ActiveX Data Object 2.1”列表项前面的复选框。 （4）单击“确定”按钮，完成设置。 8.7 VBA的数据库编程 2．设置ADO库的引用 * 通过ADO编程实现据库访问时，首先要创建对象变量，然后通过对象方法和属性来进行操作。下面给出数据库操作一般语句和步骤： （1）创建对象变量 定义连接对象变量： Dim cnn As New ADODB.Connection 定义记录集对象变量：Dim rst As ADODB.Recordset 定义字段集对象变量：Dim rs As ADODB.Field （2）对象变量的赋值 Set cnn = CurrentProject.Connection rst.Open Set rst = New ADODB.Recordset 8.7 VBA的数据库编程 3．利用ADO访问数据库 * （3）通过对象的方法和属性进行操作 通常使用循环结构处理记录集中的每一条记录