第011章VBA编程.ppt

模块是将 Visual Basic for Applications 声明和过程作为一个单元进行保存的集合。 模块有两个基本类型：类模块和标准模块。模块中的每一个过程都可以是一个 Function 过程或一个Sub过程 类模块 窗体模块和报表模块都是类模块，而且它们各自与某一窗体或报表相关联。窗体和报表模块通常都含有事件过程，该过程用于响应窗体或报表中的事件。可以使用事件过程来控制窗体或报表的行为，以及它们对用户操作的响应，例如用鼠标单击某个命令按钮。 标准模块 标准模块包含的是通用过程和常用过程，这些通用过程不与任何对象相关联，常用过程可以在数据库中的任何位置运行。 在Access系统中，可以根据需要，将宏转换为模块。 ADO（Active Data Object）是 Microsoft 数据库应用 程序开发的新接口，是建立在 OLE DB之上的高层数 据库访问技术，其能够访问关系数据库、非关系数据 库及所有的文件系统。 11.7 用VBA访问数据库 ADO对象 在应用过程中主要用到Connection对象、Command对象 和Recordset对象3个对象。 Connection对象 Connection代表打开与数据源的连接、它包含关于目标数 据库数据的提供者的相关信息。利用Connection对象可以 打开连接、关闭连接及运行SQL命令。 RecordSet对象 Recordset对象表示的是来自数据表或命令执行结果的记录 集合，由一系列字段组成。Recordset对象的记录为集合内 的单个记录。 Command对象 Command对象定义了将对数据源执行指定命令。通过已建 立的连接发出的指令可以以命令形式来操作数据源数据。 一般情况下，命令可以在数据源中添加、删除或更新数据， 以及在数据表中检索数据。 我们需要向一个数据源建立一条连接， 再使用一个对象来 存储从该数据源提取出的数据。从技术上讲，一个ADO的 Connection对象就是一条通向某个 OLE DB数据源的连接。 这就是说，我们可以使用Connection对象的Open和Close方 法打开和关闭数据库连接。 打开连接 使用显示连接实际上是按照下列方法声明一个Connection 对象，并且将它实例化： Dim cnn as ADODB.Connection Set cnn = new ADODB.Connection 1. 使用ADO的Connection对象 用于返回ADO的版本 Version 用于指定连接是处于打开状态，还是处于关闭状态或中间状态 State 用于确定等待一个数据源做出响应的时间，以秒为单位。 ConnectionTimeout 在打开连接之前先指定一个OLE DB Provider 规定在运行一条命令的过程中，终结一个连接尝试之前应等待多长时间 CommandTimeout 指定用于建立连接数据源的信息 ConnectionString 说明 属性名称 Cn.Cancel 用来终止异步执行的Execute或Open方法调用 Cancel Cn.Execute 执行指定的查询、SQL语句、存储过程或特定提供者的文本内容 Execute Cn.Close 用于关闭到数据源的连接 Close Cn.Open ConnectionString;UserID;Password;Options 用于打开到数据源的连接 Open 格式 说明 方法名称 Private Sub MakeConnection() Dim cnn As ADODB.Connection Dim strConn As String Set cnn = New ADODB.Connection strConn = Provider=Microsoft.Jet.OLEDB.4.0; _Data Source=C:\Program Files\Microsoft Office\ _ Office11\Samples\Northwind.mdb cnn.Open strConn MsgBox CONNECTION MAKE cnn.Close Set cnn = Nothing End Sub 人们经常使用一种简单的连接快捷方式。如果需要 的数据位于当前的数据库中，那么可以使用 CurrentProject对象来定义该连接，具体形式如下： Dim cn As ADODB.Connection Dim cn As New ADODB.Connection Set cn =CurrentProject.Connection 使用Recordset对象 Recordset对象表示来