Devart Forums

Code: Select all

Dim sConnection = myContext.MaxUsedConnections
                    myContext.MaxUsedConnections = 1
                    myContext.Connection.Open()
                    myContext.Transaction = myContext.Connection.BeginTransaction
                    Try

                        myContext.Log = Console.Out
                        myContext.SubmitChanges(System.Data.Linq.ConflictMode.FailOnFirstConflict)
                        myContext.Transaction.Commit()
                    Catch ex As Exception
                        myContext.Transaction.Rollback()
                        If myContext.Connection.State = ConnectionState.Open Then
                            myContext.Connection.Close()
                        End If
                        Start.WriteToErrorLog(ex.Message.ToString, ex.InnerException.ToString, ex.StackTrace.ToString, MessageCaption, "Automatisch - Beim Speichern")
                        Dim Nochmal = IntelliSoft.myMessageBox.OfficeBox.Show(String.Format("Beim Speichern der Daten ist ein " & _
                                                                                            "Fehler aufgetreten!{0}Fehler: " & _
                                                                                            "{1}{0}Details: {2}{0}Noch einmal " & _
                                                                                            "probieren?", Environment.NewLine, _
                                                                                            ex.Message, ex.InnerException), _
                                                                             MessageCaption, MessageBoxButtons.YesNo, _
                                                                             IntelliSoft.myMessageBox.OfficeMessageBoxIcon.Error)
                        If Nochmal = DialogResult.Yes Then
                            Dim DidItNow As Boolean = SaveDataContext(myContext)
                            Return DidItNow
                        Else
                            myContext.RejectChanges()
                        End If
                    End Try
                    If myContext.Connection.State = ConnectionState.Open Then
                        myContext.Connection.Close()
                    End If
                    myContext.MaxUsedConnections = sConnection