将窗体绑定到 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