将窗体绑定到 ADO 记录集

时　间:2022-09-17 08:14:23
作　者:杨雪   ID：42182  城市：南京
摘　要:若要将 Access 窗体绑定到记录集，必须将窗体的 Recordset 属性设置为打开的 ADO Recordset 对象。
正　文:

 将窗体绑定到 ADO 记录集时，该窗体必须满足两个常规要求才能可更新。 这两个常规要求为：

• 基本 ADO 记录集必须通过 ADO 可更新。
• 记录集必须包含一个或多个唯一索引的字段，如表的主键。

Private Sub Form_Open(Cancel As Integer) 
 Dim cn As ADODB.Connection 
 Dim rs As ADODB.Recordset 
 
 '使用 Access 使用的 ADO 连接 
 Set cn = CurrentProject.AccessConnection 
 '创建 ADO Recordset 类的实例并设置其属性
 Set rs = New ADODB.Recordset 
 With rs 
 Set .ActiveConnection = cn 
 .Source = "Select * FROM Customers" 
 .LockType = adLockOptimistic 
 .CursorType = adOpenKeyset 
 .Open 
 End With 
 '将窗体的 Recordset 属性设置为 ADO 记录集 
 Set Me.Recordset = rs 
 Set rs = Nothing 
 Set cn = Nothing 
End Sub