Entitäten klonen und vergleichen mit dem Entity Framework 4

.NET

Programmierung
WebseitenErstellung

undHosting
softwaregesteuerte

Prozessoptimierung
Konzeption

und Beratung

%AM, %05. %504 %2013 %11:%Jul

Entitäten klonen und vergleichen mit dem Entity Framework 4

geschrieben von solutionS

Schriftgröße Schriftgröße verkleinern Schrift vergrößern
Drucken
E-Mail
506 Kommentare

Artikel bewerten

(0 Stimmen)

Da solche Funktionen erst mit EF5 bzw. .NET 4.5 halbwegs vernünftig zur Verfügung stehen ("AsNoTracking") hier eine Möglichkeit um Entitäten zu klonen (als Extension :-))


;
Public Function Clone(Of t As EntityObject)(entity As t, ctx As oraEntities, Optional copyKeys As Boolean = True) As t
Try
Dim cloneE As t = ctx.CreateObject(Of t)()
Dim pis As PropertyInfo() = entity.GetType.GetProperties()

For Each pi As PropertyInfo In pis
Dim attrs As EdmScalarPropertyAttribute() = DirectCast(pi.GetCustomAttributes(GetType(EdmScalarPropertyAttribute), False), EdmScalarPropertyAttribute())

For Each attr As EdmScalarPropertyAttribute In attrs
If Not copyKeys AndAlso attr.EntityKeyProperty Then
Continue For
End If
'Strung und NULL abfangen, wird trotz Standardwert im SQL Server nicht imgesetzt
Dim objVal As Object
If pi.PropertyType = GetType(String) And pi.GetValue(entity, Nothing) Is Nothing Then
objVal = ""
Else
objVal = pi.GetValue(entity, Nothing)
End If
pi.SetValue(cloneE, objVal, Nothing)
Next
Next
Return cloneE
Catch ex As Exception
Throw ex
End Try
End Function


und zu vergleichen


;
Public Function Compare(Of t As EntityObject)(entityOriginal As t, entityCopy As t) As Boolean
Try
'Um Änderungen einer Entität festzustellen (t.equals funktioniert aufgrund der Abhängigkeiten mit anderen Tabellen nicht)
Dim pisOrig As PropertyInfo() = entityOriginal.GetType.GetProperties()

For Each piOrig As PropertyInfo In pisOrig
Dim attrs As EdmScalarPropertyAttribute() = DirectCast(piOrig.GetCustomAttributes(GetType(EdmScalarPropertyAttribute), False), EdmScalarPropertyAttribute())
If attrs.Count > 0 Then 'Fremdschlüsseltabellen ausschliessen
Dim objOrig As Object = If(GetType(t).GetProperty(piOrig.Name).GetValue(entityOriginal, Nothing) Is Nothing, "", GetType(t).GetProperty(piOrig.Name).GetValue(entityOriginal, Nothing))
Dim objCopy As Object = If(GetType(t).GetProperty(piOrig.Name).GetValue(entityCopy, Nothing) Is Nothing, "", GetType(t).GetProperty(piOrig.Name).GetValue(entityCopy, Nothing))
If Not objOrig.Equals(objCopy) Then
Return False
End If
End If
Next

Return True
Catch ex As Exception
Throw ex
End Try
End Function


Verknüfte Tabellen werden dabei allerdings nicht übernommen!

Gelesen 66277 mal Letzte Änderung am %PM, %24. %643 %2015 %14:%Jun

Publiziert in Alle

solutionS

Das Neueste von solutionS

Mehr in dieser Kategorie: « Eine neue Transaktion ist unzulässig, weil in dieser Sitzung andere Threads ausgeführt werden. Entity Framework Fehler »

506 Kommentare

Kommentar-Link %AM, %28. %501 %2024 %11:%Sep gepostet von ремонт техники в мск
Профессиональный сервисный центр по ремонту бытовой техники с выездом на дом.
Мы предлагаем: ремонт бытовой техники в мск
Наши мастера оперативно устранят неисправности вашего устройства в сервисе или с выездом на дом!
Kommentar-Link %AM, %28. %152 %2024 %02:%Sep gepostet von mostbetloginkz
mostbet miroir de travail mostebet слоты онлайн на реальные деньги mostbet .
Kommentar-Link %PM, %25. %821 %2024 %18:%Sep gepostet von ремонт техники в мск
Профессиональный сервисный центр по ремонту бытовой техники с выездом на дом.
Мы предлагаем: сервисные центры в москве
Наши мастера оперативно устранят неисправности вашего устройства в сервисе или с выездом на дом!
Kommentar-Link %PM, %25. %807 %2024 %18:%Sep gepostet von ремонт техники в мск
Профессиональный сервисный центр по ремонту бытовой техники с выездом на дом.
Мы предлагаем: сервисные центры по ремонту техники в мск
Наши мастера оперативно устранят неисправности вашего устройства в сервисе или с выездом на дом!
Kommentar-Link %PM, %24. %912 %2024 %20:%Sep gepostet von kevindebruyneaz
kevin debruyne http://www.kevin-de-bruyne-az.com/ kobenhavn vs man city http://kevin-de-bruyne-az.com .
Kommentar-Link %AM, %24. %217 %2024 %04:%Sep gepostet von курс рубля в алматы
Самые свежие данные о курсе валют в Казахстане
Как узнать курс валют в Казахстане
Советы по обмену валют в Казахстане
Прогноз курса валют в Казахстане
Где выгодно обменять деньги в Казахстане
курс тенге к доллару курс нацбанка доллар сегодня .
Kommentar-Link %PM, %23. %944 %2024 %21:%Sep gepostet von криптобосс автоматы
Крутые игровые автоматы в казино Cryptoboss, которые вас увлекут на целый вечер.
Лучшие слоты ждут вас в казино Cryptoboss, где выигрыш станет реальностью.
Побеждайте на игровых автоматах Cryptoboss Casino, для истинных ценителей азарта.
Увлекательные автоматы ждут вас на сайте Cryptoboss Casino, для азартных игроков.
Развлекайтесь в казино Cryptoboss на лучших автоматах, и выигрывайте крупные суммы на реальные деньги.
Играйте на популярных слотах в Cryptoboss Casino, для тех, кто готов испытать фарт.
Играйте на деньги на своих любимых слотах, для тех, кто мечтает о крупном выигрыше.
Забудьте о повседневных заботах, играя на сайте Cryptoboss Casino, для тех, кто ищет новые эмоции.
Почувствуйте волнение от игры в казино Cryptoboss на автоматах, для тех, кто мечтает о крупном выигрыше.
Лучшие слоты на сайте Cryptoboss ждут вас, для тех, кто готов рисковать.
Играйте в лучшие игровые автоматы на сайте Cryptoboss, для тех, кто мечтает об успехе.
Попробуйте свою удачу в казино Cryptoboss на увлекательных автоматах, для тех, кто ищет адреналин.
Играйте в казино Cryptoboss и выигрывайте крупные суммы, чтобы испытать настоящее волнение.
Получайте удовольствие от игры на сайте Cryptoboss Casino, которые порадуют вас выигрышами.
Играйте на деньги в казино Cryptoboss на лучших автоматах, для любителей азарта.
Не упустите шанс сорвать большой куш в казино Cryptoboss на автоматах, для любителей крупных выигрышей.
Лучшие игровые автоматы на сайте Cryptoboss, где каждый может испыт
cryptoboss casino автоматы криптобосс игровые автоматы на деньги .
Kommentar-Link %PM, %22. %712 %2024 %16:%Sep gepostet von сервисные центры москвы
Профессиональный сервисный центр по ремонту бытовой техники с выездом на дом.
Мы предлагаем: ремонт бытовой техники в мск
Наши мастера оперативно устранят неисправности вашего устройства в сервисе или с выездом на дом!
Kommentar-Link %PM, %22. %711 %2024 %16:%Sep gepostet von ремонт техники в мск
Профессиональный сервисный центр по ремонту бытовой техники с выездом на дом.
Мы предлагаем: сервисные центры по ремонту техники в мск
Наши мастера оперативно устранят неисправности вашего устройства в сервисе или с выездом на дом!
Kommentar-Link %PM, %22. %568 %2024 %12:%Sep gepostet von криптобосс официальный сайт рабочее
Победите вместе с Cryptoboss Casino
cryptoboss официальный сайт игорный клуб криптобосс официальный .