' 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
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)