Access基础与应用教程 第9章 VBA的数据库编程.ppt

9.3.2 ADO对象变量的声明 ADO 对象必须通过 VBA 程序代码来控制和操作。在代码中，必须设置对象变量，然后再通过对象变量使用其下的对象、或者对象的属性和方法。 声明对象变量的语句格式： Dim 对象变量名称 As ADODB.对象类型 例如： Dim con As New ADODB.Connection ‘声明一个连接对象变量 Dim res As New ADODB.RecordSet ‘声明一个记录集对象变量 注意，ADODB 是 ADO 类型库的短名称，用于识别与DAO中同名的对象。例如，DAO中有 RecordSet 对象，ADO 中也有 RecordSet对象，为了能够区分开来，在 ADO 中声明RecordSet 类型对象变量时，用上 ADODB.RecordSet。总之，在ADO中声明对象变量时，一般都要用上“ADODB.”前缀。 9.3.3 ADO对象的部分属性和方法 1．Connection 对象的常用方法 （1）Open方法 通过使用Connection 对象的Open方法来建立与数据源的连接。 Open方法的语句格式： Dim 连接对象变量名 As New ADODB.Connection 连接对象变量名.Open ConnectionString, UserID, Password, OpenOptions 例如，创建与“职工管理.mdb”数据库连接的语句： Dim cnn As New ADODB.Connection 　声明一个连接对象变量cnn cnn.Open Provider=Microsoft.Jet.OLEDB.4.0; Data Source=E:\Access\职工管理.mdb （2）Close方法 通过使用 Connection 对象的 Close 方法来关闭与数据源的连接。 Close方法的语句格式： 连接对象变量名.Close 注意，该语句可以关闭Connection 对象，断开应用程序与数据源的连接。但是Connection 仍在内存中，释放 Connection 对象变量的方法是使用下面语句格式的语句： 释放连接对象变量的语句格式： Set连接对象变量名= nothing 例如，关闭与“职工管理.accdb”数据库连接的语句： cnn.Close Sn = nothing （3）如果指定的数据源就是当前已经打开的数据库，则必须通过 CurrentProject 对象的Connection属性来取得连接。 语句格式： Dim 连接对象变量名 As New ADODB.Connection Set 连接对象变量名= CurrentProject.Connection 例如：创建与当前已经打开的数据库的连接： Dim cnn As New ADODB.Connection Set cnn = CurrentProject.Connection 2．RecordSet 对象的常用属性和方法 建立 Recordset 对象的语句格式： Dim 记录集对象变量名 As ADODB.Recordset Set 记录集对象变量名 = New ADODB.Recordset RecordSet 对象的常用属性如表9-8所示。 RecordSet对象的常用方法如表9-9所示。 表9-8 RecordSet对象的常用属性 属性 说明 Bof 若为True，记录指针指向记录集的顶部（即指向第一个记录之前）。 Eof 若为True，记录指针指向记录集的底部（即指向最后一个记录之后）。 RecordCount 返回记录集对象中的记录个数。 表9-9 RecordSet对象的常用方法 方法 说明 Open 打开一个 Recordset 对象。 Close 关闭一个 Recordset 对象。 AddNew 在 Recordset 对象中添加一个记录。 Update 将 Recordset 对象中的数据保存（即写入）到数据库。 CancelUpdate 取消对 Recordset 对象的更新操作。 Delete 删除 Recordset 对象中的一个或多个记录。 Find 在 Recordset 中查找满足指定条件的行。 Move 移动记录指针到指定位置。 MoveFirst 把记