如何使用ADO及DAO设置Me.RecordSet

会计考友

如何使用ADO及DAO设置Me.RecordSet
7 X0 B$ ]  O& i5 a/ w" @" O" F9 x  h您可以使用 Recordset 属性来指定或获得 ADO Recordset 或 DAO Recordset 对象，这些对象代表窗体的记录源。
　　在 Microsoft Access 数据库 (.mdb) 中要求使用记录集时， 将返回 DAO 记录集，在 Microsoft access 项目 (.adp) 中要求使用记录集时，将返回 ADO 记录集。
3 q) z6 C9 J6 n3 U　　对于 Recordset 属性已经设置的使用 Visual Basic 的窗体，它进行的读/写行为取决于记录集 (ADO 或 DAO) 类型和包含在带有属性标识的记录集内的数据 (Jet 或 SQL) 类型。
　　在MDB中，默认情况下，Me.Recordset 是 DAO.Recordset 类型
　　如
- v$ L3 f" {5 U- h9 J# u　　dim rs as Dao.Recordset
# r$ A' K2 X) @+ Q# j" Y# l　　set rs=Currentdb.openrecordset("tblUserOfficeCn")
　　set me.Recordset=rs
　　如果你希望使用ADODB.Recordset ，可使用下面方法。
9 f8 G/ Y* ?1 ]+ _+ O! j　　在 Form_Open 里面加入一下代码
- b5 T; h9 y3 S　　DGlobal rstSuppliers As ADODB.Recordset
　　Sub MakeRW()
3 ?. x9 R$ Q# j　　DoCmd.OpenForm "Suppliers"
　　Set rstSuppliers = New ADODB.Recordset
, u7 ~1 M* T: _2 B! F7 Y. A　　rstSuppliers.CursorLocation = adUseClient
: d. K  y- ]% h: E: a# Z　　rstSuppliers.Open "Select * From Suppliers", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
9 _# l7 y& X! M　　Set Forms("Suppliers").Recordset = rstSuppliers
% o; {; D. X& L- g　　Forms("Suppliers").UniqueTable = "Suppliers"
) k) j) |  E4 A( U2 B　　End Sub
- R% o% o; e0 \9 V9 `0 @  f  m; {% _　　注意 ADO Recordset.CursorLocation 属性必须设置为 adUseClient。
　　在属性表上 UniqueTable(唯一表)属性可在客户/服务器模式中使用，但不能用于 access 数据库 (.mdb)。此属性只能在 Visual Basic 代码中设置。
　　您可使用 Recordset 属性作如下操作：
　　1)将多个窗体连接为公用数据集。这种情况允许多窗体的同步处理。
, D: O2 v, k% R+ V9 j　　例如：
　　Set Me.Recordset = Forms!Form1.Recordset
　　2)使用窗体不直接支持的 Recordset 对象上的方法。
　　例如：当您想要通过 ADO 的 Find 方法或 DAO 的 Find 方法来使用自定义对话框查找记录时，您可以使用 Recordset 属性。
　　3)回绕一系列影响多窗体的编辑的事务处理(可以重作)。
　　当打开一个新的 Recordset 对象时，它的第一个记录就是当前记录。
3 T8 s/ {, g! j, d  ]) S　　另注意：如果您更改窗体的 RecordSource 属性，您必须使用 Set 语句。更改窗体的 Recordset 属性可能也将更改 RecordSource、RecordsetType 和 RecordLocks 属性。同时，一些相关数据属性可能被覆盖;例如：Filter、FilterOn、OrderBy 和 OrderByOn 属性。