Nemisis replied on Friday, December 18, 2009
Its all very simple, i am using a lasy load as one property, which is below, but i guess there is nothing wrong with this is there?
The stacktrace suggests that there maybe a problem
Normal
0
false
false
false
EN-GB
X-NONE
X-NONE
MicrosoftInternetExplorer4
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Table Normal";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-priority:99;
mso-style-qformat:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:11.0pt;
font-family:"Calibri","sans-serif";
mso-ascii-font-family:Calibri;
mso-ascii-theme-font:minor-latin;
mso-fareast-font-family:"Times New Roman";
mso-fareast-theme-font:minor-fareast;
mso-hansi-font-family:Calibri;
mso-hansi-theme-font:minor-latin;
mso-bidi-font-family:"Times New Roman";
mso-bidi-theme-font:minor-bidi;}
Message : An item with the same key has already been added.
StackTrace : at
System.ThrowHelper.ThrowArgumentException(ExceptionResource resource)
at System.Collections.Generic.Dictionary`2.Insert(TKey key, TValue value,
Boolean add)
at Csla.Core.BusinessBase.CanReadProperty(String propertyName)
at Csla.Core.BusinessBase.CanReadProperty(String propertyName, Boolean
throwOnFalse)
at Csla.Core.BusinessBase.GetProperty[P](PropertyInfo`1 propertyInfo,
NoAccessBehavior noAccess)
at Csla.Core.BusinessBase.GetProperty[P](PropertyInfo`1 propertyInfo)
at BSL.Library.Configuration.Database.get_ModuleList()
at BSL.Library.Scoring.ScorecardItem.CanGetObject()
at BSL.Web.ScoringDataEntry.ScoringWizard.Page_Load(Object sender, EventArgs e)
at System.Web.UI.Control.OnLoad(EventArgs e)
at System.Web.UI.Control.LoadRecursive()
at System.Web.UI.Page.ProcessRequestMain(Boolean includeStagesBeforeAsyncPoint,
Boolean includeStagesAfterAsyncPoint)Namespace Configuration
<Serializable()> _
Public Class Database
Inherits BusinessBase(Of Database)
#Region " Business Methods "
#Region " Basic "
Private Shared SamProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("Sam"))
Public ReadOnly Property Sam() As String
Get
Return GetProperty(SamProperty)
End Get
End Property
Private Shared NameProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("Name"))
Public Property Name() As String
Get
Return GetProperty(NameProperty)
End Get
Set(ByVal value As String)
SetProperty(NameProperty, value)
End Set
End Property
Private Shared ShortNameProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("ShortName"))
Public Property ShortName() As String
Get
Return GetProperty(ShortNameProperty)
End Get
Set(ByVal value As String)
SetProperty(ShortNameProperty, value)
End Set
End Property
Private Shared ImageProperty As PropertyInfo(Of Byte()) = RegisterProperty(New PropertyInfo(Of Byte())("Image"))
Public Property Image() As Byte()
Get
Return GetProperty(ImageProperty)
End Get
Set(ByVal value As Byte())
SetProperty(ImageProperty, value)
End Set
End Property
Private Shared ConfigurationProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("Configuration"))
Public Property Configuration() As String
Get
Return GetProperty(ConfigurationProperty)
End Get
Set(ByVal value As String)
SetProperty(ConfigurationProperty, value)
End Set
End Property
Private Shared ThemeProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("Theme"))
Public Property Theme() As String
Get
Return GetProperty(ThemeProperty)
End Get
Set(ByVal value As String)
SetProperty(ThemeProperty, value)
End Set
End Property
Private Shared LocaleProperty As PropertyInfo(Of String) = RegisterProperty(New PropertyInfo(Of String)("Locale"))
Public Property Locale() As String
Get
Return GetProperty(LocaleProperty)
End Get
Set(ByVal value As String)
SetProperty(LocaleProperty, value)
End Set
End Property
Private Shared ModuleListProperty As PropertyInfo(Of ModuleList) = RegisterProperty(New PropertyInfo(Of ModuleList)("ModuleList"))
Public ReadOnly Property ModuleList() As ModuleList
Get
If Not FieldManager.FieldExists(ModuleListProperty) Then
LoadProperty(ModuleListProperty, ModuleList.GetModuleList(ReadProperty(SamProperty)))
End If
Return GetProperty(ModuleListProperty)
End Get
End Property
#End Region
''' <summary>
''' Used this function to find a name. You must pass in the fullname, module and property name separated by a full stop. e.g. CompanyItem.Name
''' This function must be used to return a property within a module!
''' </summary>
''' <param name="pName"></param>
''' <returns></returns>
''' <remarks></remarks>
Public Function GetName(ByVal pName As String) As Name.Name
For Each lModule As [Module].Module In ModuleList
If pName.Contains(".") AndAlso lModule.ClassName = pName.Substring(0, pName.IndexOf(".")) Then
Return lModule.NameGroupList.GetName(pName.Substring(pName.IndexOf(".") + 1))
End If
Next
Throw New ArgumentException(pName & " does not match or contain the name of any module within this database.")
End Function
#End Region
#Region " Factory Methods "
Public Shared Function NewDatabase() As Database
Return DataPortal.Create(Of Database)()
End Function
Public Shared Function GetDatabase(ByVal pName As String) As Database
Return DataPortal.Fetch(Of Database)(New SingleCriteria(Of Database, String)(pName))
End Function
Private Sub New()
'Require use of factory methods
End Sub
#End Region
#Region " Data Access "
<RunLocal()> _
Protected Overrides Sub DataPortal_Create()
MyBase.DataPortal_Create()
End Sub
Private Overloads Sub DataPortal_Fetch(ByVal criteria As SingleCriteria(Of Database, String))
Using ctx = ConnectionManager(Of SqlClient.SqlConnection).GetManager(BSL.Library.Configuration.Current.Security)
Using cm = ctx.Connection.CreateCommand
..............
End Using
End Using
End Sub
<Transactional(TransactionalTypes.TransactionScope)> _
Protected Overrides Sub DataPortal_Insert()
' insert values
End Sub
<Transactional(TransactionalTypes.TransactionScope)> _
Protected Overrides Sub DataPortal_Update()
Using ctx = ConnectionManager(Of SqlConnection).GetManager(BSL.Library.Configuration.Current.Data)
If IsSelfDirty Then
Using cm = ctx.Connection.CreateCommand
..............
End Using
End If
FieldManager.UpdateChildren(Me)
End Using
End Sub
<Transactional(TransactionalTypes.TransactionScope)> _
Protected Overrides Sub DataPortal_DeleteSelf()
End Sub
#End Region
End Class
End Namespace
Nemisis:
Our servers are multi-core and if two cores try to execute