实体框架：创建更改历史记录

Question

我有一个 EDM (phoneDB)，它对后端 MSSQL 数据库进行建模。我开发了一个 ASP.NET (VB) 应用程序，允许用户编辑该数据库中的信息。当有人编辑记录条目时，我想记录此操作。

现在，我正在执行以下操作：

For Each..Next 检查条目是否是已修改其实体状态的对象。

如果不是..结束如果这确保我们没有处理关系实体或空实体。

现在这就是它变得模糊的地方。我想要做的就是从这些修改的对象中获取信息并将它们记录到数据库中。现在我有这样的事情：

Dim audit as History
audit.action = "Changed information in " & propName & " to " & entry.CurrentValues(propName) & " from " & entry.OriginalValues(propName)
audit.action_by = this_user
audit.action_date = Date.Now
audit.extension_id =

但是，我不确定如何告诉它从条目中提取特定的属性。例如，我需要获取（伪代码）类似的内容：

audit.extension_id = entry.OriginalValues(extension_id)

Answer 1

我不明白“从条目中提取特定属性”是什么意思？您编写的（伪）代码并不能说明什么，您的情况下的 extesion_id 是什么？如果extension_id是实体的属性名称，那么您可以通过调用entry.OriginalValues(“extension_id”)来获取它的原始值，但我相当确定您知道这一点。

顺便说一句，您可以使用触发器在数据库本身中进行复杂的历史记录，而数据层甚至不知道这一点。这是一个相当古老的技巧，而且工作速度很快，请参阅 这个

Answer 2

这是我最终完成的方法：

  Private Shared Sub context_SavingChanges(ByVal sender As Object, ByVal e As EventArgs)
        ' This allows us to record a history of the changes made by the user to the database. The record is created automatically by EF, but we need to save it to the database
        ' for permanent retention.
        For Each entry As ObjectStateEntry In DirectCast(sender, ObjectContext).ObjectStateManager.GetObjectStateEntries(EntityState.Modified)
            If Not entry.IsRelationship And entry.Entity IsNot Nothing Then
                For Each propName As String In entry.GetModifiedProperties()
                    Dim context As New AppsEntities()
                    Dim audit As New History
                    audit.action_note = "Changed information in " & propName & " to " & entry.CurrentValues(propName) & " from " & entry.OriginalValues(propName)
                    audit.action_by = CStr(HttpContext.Current.Session("person_name"))
                    audit.action_date = Date.Now
                    audit.extension_id = entry.CurrentValues.GetValue(0)
                    context.AddToHistories(audit)
                    context.SaveChanges()
                Next

            End If

        Next
    End Sub