---

Hallo!
Ist es bei einer Transaction möglich diese verschiedenen Funktionen weiterzugeben, und in den jeweiligen Funktionen ein "ZwischenCommit" auszuführen?
Muss man da was besonderes beachten, denn ich habe meine Probleme damit.

Für mich ist es aber notwendig, da ich in Funktionen gewisse Sachen prüfe, z.b ob ein leeres Layout vorhanden ist, wenn nicht erstelle ich eines, gebe das neue objekt zurück und die Funktion läuft dann weiter.

Wenn ich in einer Funktion, wo gerade eine Transaction läuft, eine weitere Funktion aufrufe und dort eine neue Transaction erstelle, kann es mir ja einfach zu einem Crash kommen, wenn ich dann irgendwie übergreifend arbeite, daher die Frage mit dem "zwischenspeichern"

mfg

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Man kann Transaction durchaus verschachteln.
Es muss nur darauf geachtet werden das alles wieder geschlossen wird wenn die Function oder Sub beendet wird.

Code:

---

    <CommandMethod("Test")> _
    Sub Command_Test()
        Dim db As DatabaseServices.Database = DatabaseServices.HostApplicationServices.WorkingDatabase
        Dim tm As TransactionManager = db.TransactionManager
        Dim trans As AcadDb.Transaction = tm.StartTransaction()

        Try
            .
            .
            .
            Dim Result As Boolean = DasTest("Test")
        Catch ex As Exception

        Finally
            trans.Commit()
            trans.Dispose()
        End Try

    End Sub

    Function DasTest(ByVal Namen As String) As Boolean
        Dim db As DatabaseServices.Database = DatabaseServices.HostApplicationServices.WorkingDatabase
        Dim tm As TransactionManager = db.TransactionManager
        Dim trans As AcadDb.Transaction = tm.StartTransaction()
        Try
            .
            .
            .
        Catch ex As Exception

        Finally
            trans.Commit()
            trans.Dispose()
        End Try

        Return True

    End Function

---

Gruss
Holger

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Du kannst auch in jeder Funktion nachsehen, ob schon eine TransAction für die Database vorhanden ist.

tAcadDocDB.TransActionManager.TopTransAction

Wenn es eine solche schon gibt, dann verwende diese einfach, wenn nicht, dann lege Dir eine in der Subroutine an.

@oscarr:

Nur zur Sicherheit: Du baust schön mit Try/Catch/Finally/End Try ein Fehlerhandling, und doch machst Du dann außerhalb Zuweisungen, die ev. abfliegen könnten, baue diese auch in's Try/Catch ein. Auch das Commit der Transaction würde ich eher ans Ende des Teils stellen, wo ich weiss, dass alles ordnungsgemäß ablief; im Finally-Teil würde es aber auch ein Commit durchführen, wenn der Code zuvor ins Catch gefallen ist.

Code:

---

Dim db As DatabaseServices.Database = Nothing
Dim tm As TransactionManager = Nothing
Dim trans As AcadDb.Transaction = Nothing

  Try
      db = DatabaseServices.HostApplicationServices.WorkingDatabase
      tm = db.TransactionManager
      trans = tm.StartTransaction()
      .
      .
      .
      Dim Result As Boolean = DasTest("Test")
      trans.Commit()
  Catch ex As Exception

  Finally
      if trans isnot nothing then trans.Dispose()
  End Try

---

- alfred -

------------------
www.hollaus.at