MS Access 表单绑定到 ADO 断开连接的记录集

Question

我似乎对这个问题一无所知。我可以将 ADO 记录集附加到表单，但我不确定如何处理更新。我不想只使用 UpdateBatch，我希望能够检测出于日志记录目的而更改的内容。有人能指出我正确的方向吗？

提供的 SQL 包含一个键字段，它是一个名为“ID”的自动编号。

Private Sub Form_Load()
    Dim rst as Object
    Set rst = CreateObject("ADODB.Recordset")
    rst.CursorLocation = adUseClient
    '...edit out connection
    rst.Open sql, mConnection, adOpenStatic, adLockBatchOptimistic
    set rst.ActiveConnection = Nothing
    Set Me.Recordset =  rst
End Sub 

''Edit records on the form and now click save
Private Sub cmdSave_Click()
    Dim rst As Object
    Set rst = Me.Recordset
    Set rst.ActiveConnection = GetConnection
    rst.UpdateBatch
    'How do I detect deleted, added, or modified records for logging? 
End Sub

Answer 1

您应该能够使用表单 BeforeUpdate 和 AfterUpdate 事件来检测添加和编辑。就删除而言，您需要使用表单删除事件之一：BeforeDelConfirm、AfterDelConfirm 或Delete。

在检测用户何时开始编辑记录时，脏事件也很方便。

我认为您确实需要使第一个 Recordset 对象成为表单级对象，而不是将其放入表单的 Load 事件中。

    Dim rst As Object

Private Sub Form_Load()
    Set rst = CreateObject("ADODB.Recordset")
    rst.CursorLocation = adUseClient
    '...edit out connection
    rst.Open sql, mConnection, adOpenStatic, adLockBatchOptimistic
    set rst.ActiveConnection = Nothing
    'You can close your connection object here now
    Set Me.Recordset =  rst
End Sub 

''Edit records on the form and now click save
Private Sub cmdSave_Click()
    Set rst.ActiveConnection = GetConnection
    rst.UpdateBatch
End Sub

Private Sub Form_Unload()
    'Offer to do batch update here if changes have been made to the recordset
    rst.Close
    Set rst = Nothing
End Sub

您可能会考虑使用 AuditTrail 函数来记录更改。但是，如果用户不执行批量更新，这些更改实际上不会对数据库进行，因此我不确定您将如何以简单、轻松的方式记录更改。

以下是一些应该有效的审计跟踪代码：
http://www.everythingaccess。 com/tutorials.asp?ID=Creating-an-Audit-Trail-(Source-Code)

我看到 Fenton 先生质疑为什么需要断开连接的 ADO 记录集而不是使用 MS Access 的内置 DAO 绑定。我确实知道在某些情况下 ADO 记录集是有意义的，但我认为这种情况很少见。绑定到记录源（例如 XML 文件）可能就是一个示例。我个人喜欢在绑定到远程 SQL Server 时使用它。它非常适合让 Access 与云中 Web 服务器上的 SQL Server 数据库进行通信。然而，您可以对 ODBC 表执行同样的操作，因此使用 ADO 记录集并没有真正令人信服的理由，只是管理 DSN 或 ODBC 表链接确实存在挑战。

编辑1：
为了回答OP对事件的担忧，没有捕获大规模删除和大规模粘贴。对于选择删除的每条记录，将触发删除事件，并且在用户按“是”后，将触发 AfterDelConfirm 事件。对于粘贴，您就没那么幸运了，因为在用户确认粘贴后不会触发任何事件。一种解决方法是禁用表单中的添加功能并使用其他方法插入新记录。

您可能考虑的另一个选择是使用 ADO 记录集事件。看起来这些事件可能会做所有事情，除了一件非常关键的事情 - 为正在编辑、删除或插入的每条记录返回书签或主键。

第三种选择是为每条记录设置 DateTimeModified。然后，您几乎可以随时使用代码来迭代记录集并记录尚未记录的更改。只需创建一个记录集克隆并使用记录集的 Filter 方法，如下所示：

rst.Filter "DateTimeModified > " & LastLoggedDateTime

现在迭代过滤后的记录集并记录记录。如果有必要，您可以在内存中保留原始记录集的副本（只读）并使用它进行比较。看看这篇文章：比较vb6中的两个记录集

我同意没有真正简单的方法可以做你想做的事情。看起来相当复杂。