Как сохранить расширяемые метаданные в ORM-дружественном виде в .NET?

Кажется, я не могу найти ответы на вопрос "как использовать EAV-подход с инструментами ORM", поэтому я попробую удачу здесь.

Предположим, что у меня есть таблица Entities:

ID -> int
Name -> nvarchar(50)

An Images Таблица:

EntityID -> int
Width -> int
Height -> int

И a Songs Таблица:

EntityID -> int
Duration -> decimal(12,3)

Мне нужно добавить расширяемые метаданные к сущностям (неизвестные пары "ключ-значение" с информацией о типе), так что я могу задавать такие запросы, как:

Найдите мне все Песни с Duration длиной более 3 минут с Name, начиная с "The", с метаданными, удовлетворяющими этим критериям:

  • HasGuitarSolo установлено значение true
  • GuitarSoloDuration больше 30 секунд

И отсортируйте результаты на GuitarSoloDuration в порядке убывания.

Я не хочу создавать столбцы HasGuitarSolo, GuitarSoloDuration и т.д. в базе данных. В идеале я хотел бы хранить их в EAV-подобной схеме или альтернативной схеме, которая не требует знания клавиш вверх.

ОТВЕТЫ

Ответ 1

Добавьте столбец в таблицы под названием "метаданные" и поместите в него XML. SQL-сервер позволяет вам взглянуть на blob, полный XML, как если бы это были дополнительные столбцы (с ограничениями).

Для ORM это зависит от того, как структурирован ваш объект.

  • Бесконечно настраиваемые элементы метаданных: вы помещаете пары имени-значения из XML в коллекцию. Если ваш ORM не допустит этого, поместите его прямо в свойство строки, сеттер сможет проанализировать его в XML-документе (или быстрее, если вам нужна скорость). Getter вернет строку. Затем отдельное свойство "MetaDataItem (ItemName- > string)", которое не является ORM'd, будет считывать значения из списка метаданных и обновлять/добавлять их с его установщиком.
  • Metadeta - это жестко заданные свойства - сопоставьте их с помощью запроса, который вытаскивает их из XML.
  • Гибрид двухструйных свойств для некоторых элементов - их сеттеры/геттеры называют MetaDataItem.
  • Обратный гибрид, если определенные свойства должны быть непосредственно сохранены (esp, если вы сортируете на них большие списки): вы должны жестко задавать свойства для этих метаданных со своими частными членами, но не ORM эти свойства. Жестко закодировано сохранение/загрузка этих значений в строковое свойство ORM'd, и если вы хотите иметь возможность обновлять эти жестко закодированные элементы метаданных из свойства MetaDataItem, также скопируйте их в это место!

Если у вас есть целая группа жестко закодированных свойств метаданных, в дополнение к бесконечной сумме, вы можете легко избавиться от свойства XML и свойства MetaDataItem со списками и отражением. Если все жестко закодированы, вы все равно можете использовать свойство текста XML для загрузки/сохранения, сопоставить это свойство, а не другие.

Сортируйте их с запросом LINQ для объекта.

Я сделал это с большим успехом и с каждой маркированной буквой, все работало лучше и лучше! 2005/.Net 1.1, поэтому нет ORM, LINQ, моей первой программы VB.net и т.д. Но другие разработчики использовали XML-запрос SQL Server для чтения моего XML. Конечно, я забыл об этом, изменил его и опрокинул: - (

Вот фрагменты. Ключ от всего этого: ORM friendly = ORM некоторые свойства, а не другие; Разрешить потребителям использовать другие свойства, но не некоторые. Если ваш ORM не разрешает такой выбор свойств ala-carte, вы можете использовать наследование или композицию, чтобы обмануть его. Извините, у меня нет времени, чтобы опубликовать полный пример для вашей цели.

Ну, у меня нет образца кода здесь, дома. Я буду редактировать и вставлять его завтра.

ИЗМЕНИТЬ, как и было обещано, здесь фрагмент кода:

   Public Property ItemType(ByVal stTagName As String) As String
        Get
            Dim obj As Object
            obj = Me.lstMemberList.Item(stTagName)
            If Not obj Is Nothing Then
                Return CType(obj, foDataItem).Type
            End If
        End Get
        Set(ByVal Value As String)
            Dim obj As Object
            obj = Me.lstMemberList.Item(stTagName)
            If Not obj Is Nothing Then
                CType(obj, foDataItem).Type = Value
            End If
        End Set
    End Property

    Public Function ItemExists(ByVal stTagName As String) As Boolean
        Return Me.lstMemberList.ContainsKey(stTagName)
    End Function

    Public Property ItemValue(ByVal stTagName As String, Optional ByVal Type4NewItem As String = "") As String
        Get
            Dim obj As Object
            obj = Me.lstMemberList.Item(stTagName)
            If obj Is Nothing Then
                Dim stInternalKey As String = ""
                Try
                    stInternalKey = Me.InternalKey.ToString
                Catch
                End Try
                If stTagName <> "InternalKey" Then '' // avoid deadlock if internalkey errs!
                    Throw New ApplicationException("Tag '" & stTagName & _
                      "' does not exist in FO w/ internal key of " & stInternalKey)
                End If
            Else
                Return CType(obj, foDataItem).Value
            End If
        End Get
        Set(ByVal Value As String)
            '' // if child variation form...
            If bLocked4ChildVariation Then
                '' // protect properties not in the list of allowed updatable items 
                If Not Me.GetChildVariationDifferentFields.Contains(stTagName) Then
                    Exit Property
                End If
            End If
            '' // WARNING - DON'T FORGET TO UPDATE THIS LIST OR YOU WILL NEVER FIND THE BUG!
            Select Case stTagName
                Case "PageNum"
                    _PageNum = CInt(Value)
                Case "Left"
                    _Left = CInt(Value)
                Case "Top"
                    _Top = CInt(Value)
                Case "Width"
                    _Width = CInt(Value)
                Case "Height"
                    _Height = CInt(Value)
                Case "Type"
                    _Type = String2Type(Value)
                Case "InternalKey"
                    _InternalKey = CInt(Value)
                Case "UniqueID"
                    _UniqueID = Value
            End Select
            Static MyError As frmErrorMessage
            Dim obj As Object
            If Me.lstMemberList.ContainsKey(stTagName) Then
                Dim foi As foDataItem = CType(Me.lstMemberList.Item(stTagName), foDataItem)
                If foi.Type = "Number" Then
                    Value = CStr(Val(Value))
                End If
                If foi.Value <> Value Then
                    If bMonitorRefreshChanges Then
                        LogObject.LoggIt("Gonna Send Update for Change " & stTagName & " from " & _
                          foi.Value & " to " & Value)
                        If Not Me.FormObjectChanged_Address Is Nothing Then
                            FormObjectChanged_Address(Me, stTagName)
                        End If
                    End If
                End If
                foi.Value = Value
            Else
                Me.lstMemberList.Add(stTagName, New foDataItem(Value, Type4NewItem))
                Me.alOrderAdded.Add(stTagName)
            End If
        End Set
    End Property


  Public Function StringVal(ByVal st As String, Optional ByVal stDefault As String = "") As String
        Try
            StringVal = stDefault
            Return CType(Me.ItemValue(st), String)
        Catch ex As Exception
            Dim bThrowError As Boolean = True
            RaiseEvent ConversionError(ex, "String=" & Me.ItemValue(st), Me, st, bThrowError)
            If bThrowError Then
                LogObject.LoggIt("Error setting tag value in fo.StringVal: " & st)
                Throw New Exception("Rethrown Exception getting value of " & Me.ID & "." & st, ex)
            End If
        End Try
    End Function
    Public Function IntVal(ByVal st As String, Optional ByVal iDefault As Integer = 0) As Integer

    ...

 '' // 'native' values - are normal properties instead of XML properties, which 
    '' // actually makes it harder to deal with b/c of extra updates to sync them, BUT,
    '' // worth it - as they are read much more than written (sorts, wizard builds,
    '' // screen redraws, etc) I can afford to be slow when writing to them, PLUS
    '' // retain the benefits of referencing everything else via ItemValue, PLUS
    '' // these are just the more 'popular' items. 
    Private _Top As Integer
    Private _Left As Integer
    Private _Width As Integer
    Private _Height As Integer
    Private _PageNum As Integer
    Private _Type As pfoType
    Private _InternalKey As Integer
    Private _UniqueID As String

    Public Sub SetNativeValuesFromMyXML()
        _Top = CInt(CType(Me.lstMemberList("Top"), foDataItem).Value)
        _Left = CInt(CType(Me.lstMemberList("Left"), foDataItem).Value)
        _Width = CInt(CType(Me.lstMemberList("Width"), foDataItem).Value)
        _Height = CInt(CType(Me.lstMemberList("Height"), foDataItem).Value)
        _PageNum = CInt(CType(Me.lstMemberList("PageNum"), foDataItem).Value)
        _Type = String2Type(CType(Me.lstMemberList("Type"), foDataItem).Value)
        _InternalKey = CInt(CType(Me.lstMemberList("InternalKey"), foDataItem).Value)
        _UniqueID = CType(Me.lstMemberList("UniqueID"), foDataItem).Value
    End Sub

    Public Property Top() As Integer
        Get
            Return _Top '' // CInt(ItemValue("Top"))
        End Get
        Set(ByVal Value As Integer)
            ItemValue("Top") = Value.ToString
        End Set
    End Property

    Public Property Left() As Integer
        Get
            Return _Left '' //CInt(ItemValue("Left"))
        End Get

    ...

Ответ 2

Я делал это в прошлом, помещая свойство Extra на мой объект, который является Словарем или подобным типом данных. Затем вы можете свободно заполнить это данными и запросить с помощью LINQ.

Ответ 3

Вы можете добавить пару таблиц, например:

[EntitiesExtended]
EntitiesExtendedId int
EntitiesExtendedDescription varchar(max)

[Entities_EntitiesExtended]
Entities_EntitiesExtendedId int
EntitiesId int
EntitiesExtendedId int
EntitiesExtendedValue varchar(max)

Итак, если песня id 1 имела гитарное соло в 34 секунды и продолжалась в течение 3 минут и 23 секунд, она могла быть смоделирована как:

[Entities_EntitiesExtended]
EntitiesId = 1
EntitiesExtendedId = 1
EntitiesExtendedValue = "34"

EntitiesId = 1
EntitiesExtendedId = 2
EntitiesExtendedValue = "203"

[EntitiesExtended]
EntitiesExtendedId = 1
EntitiesExtendedDescription = "GuitarSoloDuration"

[EntitiesExtended]
EntitiesExtendedId = 2
EntitiesExtendedDescription = "Duration"

И затем такие запросы, как:

select * from Entities e 
join Entities_EntitiesExtended eee on e.id = eee.id 
join EntitiesExtended ee on eee.id = ee.id
where EntitiesExtendedDescription = "GuitarSoloDuration"
and cast(EntitiesExtendedValue as int) > 30 

select * from Entities e 
join Entities_EntitiesExtended eee on e.id = eee.id 
join EntitiesExtended ee on eee.id = ee.id
where EntitiesExtendedDescription = "Duration"
and cast(EntitiesExtendedValue as int) > 180

Ответ 4

Вы можете сохранить данные на SQL Server и использовать LINQ to SQL ORM.

Обновлено: Вы также можете посмотреть NH. LLBL, это ORM/Generator, у ваших сущностей будет много кода, предварительно сгенерированного и начинающегося с базы данных.