Click here to Skip to main content
12,955,959 members (63,697 online)
Rate this:
 
Please Sign up or sign in to vote.
See more:
I am currently trying to understand as to why when I apply the following changes to the interface object that it does not get added to the changeset.

The following is a transaction which is looping through XML and setting the values to the object(Which is some kind of item-type)
    ' If Connection is Closed 
    ' Open before we get a Transaction 
    If DB.Connection.State = ConnectionState.Closed Then
        DB.Connection.Open()
    End If
 
    DB.Transaction = DB.Connection.BeginTransaction
 
    Try
        Dim nEl = 0
        For Each el As XElement In XDoc.Root.Elements
            Dim Type = el.Element("Type").Value.ToUpper
            Dim RefCode = el.Element("RefCode").Value.ToUpper
 
            Dim oIItem = GetItemByTypeAndCode(DB, Type, RefCode)
 
            If oIItem IsNot Nothing Then
                If Not el.Element("SP1").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling1 = CDbl(el.Element("SP1").Value)
                End If
                If Not el.Element("SP2").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling2 = CDbl(el.Element("SP2").Value)
                End If
                If Not el.Element("SP3").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling3 = CDbl(el.Element("SP3").Value)
                End If
                If Not el.Element("SP4").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling4 = CDbl(el.Element("SP4").Value)
                End If
                If Not el.Element("SP5").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling5 = CDbl(el.Element("SP5").Value)
                End If
                If Not el.Element("SP6").Value.IsNullOrEmpty Then
                    oIItem.ItmSelling6 = CDbl(el.Element("SP6").Value)
                End If
                nEl += 1
 
                If ReportProgressDel IsNot Nothing Then
                    ReportProgressDel.Invoke(nEl / XDoc.Root.Elements.Count * 100)
                End If
            Else
                Throw New Exception("Item '{0}' of type {1} not found!", RefCode.Trim, Type.Trim)
            End If
        Next
 
        DB.SubmitChanges()
        DB.Transaction.Commit()
 
    Catch ex As Exception
        lError = True
        DB.Transaction.Rollback()
        Throw ex
    End Try
Posted 25-Feb-13 21:25pm
EnzeroX1.1K

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

    Print Answers RSS
Top Experts
Last 24hrsThis month
OriginalGriff 6,719
CHill60 3,550
Maciej Los 3,153
ppolymorphe 2,060
Jochen Arndt 1,975


Advertise | Privacy | Mobile
Web02 | 2.8.170525.1 | Last Updated 26 Feb 2013
Copyright © CodeProject, 1999-2017
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100