Fehlermedlung: Schutzseite kann nicht gefunden werden

  • VB.NET
  • .NET (FX) 4.0

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von StGo.

    Fehlermedlung: Schutzseite kann nicht gefunden werden

    Hallo zusammen,

    ich habe eine Frage zu einer Fehlermeldung die ich bekomme. Ich vermute das mein Dataset den Fehler verursacht. Leider finde ich nicht raus warum. Das Programm läuft ohne fehler wenn ich es als Debug oder Release Version in Visual Studio laufen lasse. Sobalt ich das Programm ohne Visual Studio laufen lasse bekomme ich folgenden Fehler:



    "Eine neueSchutzseite für den Stapel kann nicht erstellt werden."

    Wie gesagt mit VS im Hintergrund tritt dieser Fehler nicht auf. Wie könnte ich das Problem finden?

    -----------------
    Warum vermute ich das Dataset dahinter?
    1. Es ist das Herzstück des ganzen (bzw. es gibt zwei: eins für die Daten die verarbeitet werden und ein weiteres als Log).
    2. Sobald das Verarbeiten startet tritt der Fehler auf.
    3. Wenn ich die Daten importiere (XML) tritt der Fehler manchmal auf.

    Aber leider nur wenn VS nicht im Hintergrund läuft.

    Wie gehe ich so ein Problem an?

    Da ich mir nicht sicher bin ob die Information wichtig ist:
    Ich nutze die von EDR erstellten Helpers um das Dataset zwischen den Formen umzustöpseln.

    Danke

    ich hab den Fehler noch nie gesehen - keine Idee, was eine Schutzseite wohl sein mag.
    Wenn das bei iwelchen Datenverarbeitungen passiert, und du das Dataset verdächtigst - vlt. hast du iwelche listenreichen Events abonniert, und führst in den Handlern iwelchen kritischen Code aus - etwa umsortieren, oder Filter setzen, oder Primärspalten ändern - was weiß ich.

    Das ist jdfs. das einzige, was mir einfällt: eben das Events manchmal überraschende Nebenwirkungen haben können.

    OK. Danke für die Antwort.

    Ich habe nur ein Event im Programm. Werde das mal rausnehmen und schauen was passiert.

    EDIT:
    Habe ich getestet. Keine Änderung.

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „StGo“ ()

    Habe inzwischen noch ein paar tests gemacht.
    Es läuft auf keinem Rechner. Auf einem Windoes Server 2008R2 incl SQL localDB Server läuft es auch nicht.

    Aber:
    Ich habe nicht nur das Event sonder auch den Timer deaktiviert. Jetzt läuft es zumindest. Ob alles funktioniert teste ich noch. Ich kann dir gegen Abend eine Version mal zukommen lassen. Dann kannst du mal reinschauen.

    Danke für deine Hilfe

    Ok du warst schneller :)

    Dahin ging gerade meine Überlegung auch. Der Timer löst einen Backgroundworker aus. Ich denke da ist meine Lösung nur bedingt gut :) Eventuell kannst du mir da einen Rat geben. Ich werde heute nachmittag dir eine version fertog machen.

    Gruß

    @EDR
    Enschuldige meine Abwesenheit. Ich habe am WE mich etwas mit den Windows eigenen Toola auseinadergesetzt. Habe mit den Fehler eingekreist:


    Beim Klick auf den Auslesen Button probiert das System mehrfach einen Thread zu erstellen. Nachdem das nicht funktioniert wird dieser wieder gekillt. Nach dem x-ten erfolglosen versuch stüzt das Programm ab.

    Hier mal ein Code Ausschnitt aus meiner Main - Backgroundworker


    VB.NET-Quellcode

    1. '##### Backgroundworker #####
    3. Private Sub Start(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdAuslesenStarten.Click, cmdAuslesenAbbrechen.Click
    5. End Sub
    7. Private Sub Start() Handles cmdAuslesenStarten.Click
    9. If Not BGW.IsBusy Then
    11. If StammdatenDataSet.DtStammdaten.Count <= 0 Then
    13. MessageBox.Show("Keine Daten vorhanden", "Info", MessageBoxButtons.OK, MessageBoxIcon.Stop)
    15. Else
    17. If (From rw In StammdatenDataSet.DtStammdaten Where rw.Gelesen = 0).Count > 0 Then
    19. With Me
    21. .lblResult.Text = "Bitte warten..."
    23. .BitteWartenToolStripMenuItem.Text = "Bitte warten..."
    25. .NotifyIcon1.Text = "meinProgramm ->is running<-"
    27. .FortschrittToolStripMenuItem.BackColor = Color.FromArgb(255, 255, 153, 153)
    29. .cmdAuslesenStarten.Enabled = False
    31. .AuslesenStartenToolStripMenuItem.Enabled = False
    33. .EinstellungenToolStripMenuItem.Enabled = False
    35. .StammdatenEingebenToolStripMenuItem.Enabled = False
    37. .cmdAuslesenAbbrechen.Enabled = True
    39. .AuslesenAbbrechenToolStripMenuItem.Enabled = True
    41. .lstResult.Items.Clear()
    43. .ProgressBarAuslesen.Maximum = (From rw In StammdatenDataSet.DtStammdaten Where rw.Gelesen = 0).Count
    45. .ProgressBarAuslesen.Value = 0
    47. .BGW.RunWorkerAsync((From rw In StammdatenDataSet.DtStammdaten Where rw.Gelesen = 0).Count)
    49. End With
    51. Else
    53. Me.lstResult.Items.Add("Kein ungelesener Datensatz vorhanden")
    55. MessageBox.Show("Kein ungelesenen Dokumente vorhanden!", "Info", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
    57. End If
    59. End If
    61. End If
    63. End Sub
    65. Private Sub Cancel() Handles cmdAuslesenAbbrechen.Click
    67. BGW.CancelAsync()
    69. End Sub
    71. Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    73. For i As Integer = 0 To CInt(e.Argument) - 1
    75. DatensatzHolen()
    77. BGW.ReportProgress(i)
    79. If BGW.CancellationPending Then
    81. Exit For
    83. End If
    85. Next
    87. End Sub
    89. Private Sub BGW_ProgressChanged(ByVal sender As Object, ByVal e As System.ComponentModel.ProgressChangedEventArgs) Handles BGW.ProgressChanged
    91. Me.ProgressBarAuslesen.Value = e.ProgressPercentage + 1
    93. End Sub
    95. Private Sub BGW_RunWorkerCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) Handles BGW.RunWorkerCompleted
    97. If e.Cancelled Then
    99. lblResult.Text = "Vorgang abgebrochen"
    101. Else
    103. lblResult.Text = "Vorgang abgeschlossen"
    105. End If
    107. With Me
    109. .cmdAuslesenStarten.Enabled = True
    111. .AuslesenStartenToolStripMenuItem.Enabled = True
    113. .EinstellungenToolStripMenuItem.Enabled = True
    115. .StammdatenEingebenToolStripMenuItem.Enabled = True
    117. .cmdAuslesenAbbrechen.Enabled = False
    119. .AuslesenAbbrechenToolStripMenuItem.Enabled = False
    121. .ProgressBarAuslesen.Value = 0
    123. .FortschrittToolStripMenuItem.Text = "Fortschritt:"
    125. .BitteWartenToolStripMenuItem.Text = "-------------------------"
    127. .FortschrittToolStripMenuItem.BackColor = DefaultBackColor
    129. .NotifyIcon1.Text = "meinProgramm"
    131. End With
    133. 'Alle Excel Instanzen killen
    135. Dim CleanUp As New CleanUpClass
    137. CleanUp.CleanUp("EXCEL.EXE")
    139. LoggerDB.LoggerInfo("Durchlauf beendet", 3)
    141. End Sub


    Ich könnte dir das Projekt samt TestFiles zukommen lassen falls du mir eine PN mit deiner Mail Adresse schicken möchtest.
    Habe ein paar testFiles erstellt und eingepflegt damit du die Arbeitsweise verstehten kannst.

    Danke

    Tja, Manipulationen am Dataset (DatensatzHolen()) bewirken unzulässige threadübergreifende Zugriffe auf Steuerelemente, wenn letztere daran gebunden sind.
    Normal gibts bei solchen Zugriffen ja die berühmte InvalidOperation-Exception.
    Aber weil Databinding so indirekt funktioniert, eben nicht, mit der Folge, dass gänzlich unvorhersehbare Dinge sich ereignen können.

    Du musst die Aktualisierung aller Bindings deaktivieren, solange ein Nebenthread auf den Daten herumorgelt.

    Für Bindingsources heisst das: bs.EnableListChangedEvents=False und bs.SuspendBindings

    Und hoffen, dasses dann geht.

    nein, BindingSourceX ist nur ein Modul mit Extension-Methods.
    Sieh zu und lass dir irgendwoher das konzept der Extension-Methods fundiert erklären.
    Vlt. findest du ja auch einen guten Link für meine Link-Sammlung.

    ach - ich kann auch selber googeln: msdn.microsoft.com/de-de/library/bb384936.aspx

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „ErfinderDesRades“ ()

    Habe mich etwas informiert. Habe aber trotzdem noch ein paar Fragen:

    Wenn ich mich nicht ganz irre bindet die BindingSource ein Control an Daten.
    In meinem Fall:



    Hier im frmMain ist der oben genannte Code hinterlegt.

    Im zweiten Fenster:

    Können einträge in das DGV gemacht werden. Hier ist auch eine BindingSource vorhanden.

    Wie soll ich also die BS Suspenden wenn sie nicht vorhanden ist?

    Weiterhin finde ich hierzu nichts: bs.EnableListChangedEvents=False ich könnte BindingSource1.ListChangedEnabled = False bieten.

    EDIT: Kleine Korrektur DtStammdatenBindingSource.SuspendBinding()



    Für alle späteren Leser hier die Links zum Thema:
    msdn.microsoft.com/de-de/libra…endbinding(v=vs.110).aspx
    msdn.microsoft.com/de-de/libra…endbinding(v=vs.110).aspx
    Bilder

    • 18990396tu.jpg

      18,53 kB, 800×567, 306 mal angesehen

    • 18990397ao.jpg

      21,41 kB, 800×675, 303 mal angesehen

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „StGo“ ()

    Könntest du für die Bilder bitte die Foreneigene Uploadfunction nutzen? So kann ich die nicht sehen.
    There is no CLOUD - just other people's computers

    Q: Why do JAVA developers wear glasses?
    A: Because they can't C#

    Daily prayer:
    "Dear Lord, grand me the strength not to kill any stupid people today and please grant me the ability to punch them in the face over standard TCP/IP."

    StGo schrieb:

    Weiterhin finde ich hierzu nichts: bs.EnableListChangedEvents=False ich könnte BindingSource1.ListChangedEnabled = False bieten.
    jo, hab ich mich verschrieben. Benutze den ObjectBrowser - da findeste schon, was ich gemeint hab.

    Ansonsten das ListChangedEnabled ist auch nicht so schlecht- das ist allerdings wieder eine Extension, und von mir.

    Allerdings soviel vb-Syntax sollteste inzwischen können, um beim Anblick der Extension und ihrer Signatur zu wissen, dass BindingSource1.ListChangedEnabled = False nicht geht.

    Hallo zusammen,

    auch auf die Gefahr hin das EDR weitere Design Fehler findet poste ich etwas mehr Code :) weil ich ehrlich nicht genau weiss wo ich das Problem anfassen muss.
    Das oft zitierete Buch von Klaus Löffelmann gibt auch nichts her und einige prblemstellungen in anderen Foren bekomme ich auch nicht auf mein Problem abgebildet.

    Kurz zu dem bisherigen Stand:
    Dank EDR ist das Problem recht "eindeutig". Der GUI Thread und der Hintergrundthread kommen sich in die Quere. Die Idee ist also die Datenbindung temporär aufzuheben:

    VB.NET-Quellcode

    1. BindingSource.RaiseListChangedEvents=False 'Ereignis für Änderungen der gebunden Liste aussetzen
    2. BindingSource.SuspendBinding() 'Datenbindung temporär unterbrechen
    4. 'Änderung an Datenfeldern....
    6. BindingSource.ResumeBinding()
    7. BindingSource.RaiseListChangedEvents=True
    8. BindingSource.ResetBindings(False)


    Soweit die Theorie!

    Mein Problem ist das ich keine BindingSource in der frmMain habe. Der Programmablauf ist folgender:

    VB.NET-Quellcode

    1. Private Sub BGW_DoWork(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BGW.DoWork
    2. For i As Integer = 0 To CInt(e.Argument) - 1
    4. DatensatzHolen()
    6. BGW.ReportProgress(i)
    7. If BGW.CancellationPending Then
    8. Exit For
    9. End If
    10. Next
    11. End Sub


    Der Aufruf geht nicht an ein gebundenes Control auf der Form. Sondern:

    VB.NET-Quellcode

    1. '##### Datensatz auslesen #####
    3. Private Sub DatensatzHolen()
    5. Dim rwXlsRow As DtXlsRow
    7. rwXlsRow = AeltestenDatensatzFinden()
    9. If rwXlsRow Is Nothing Then
    11. Me.Invoke(Sub() Me.lstResult.Items.Add("Kein ungelesener Datensatz vorhanden"))
    13. Me.Invoke(Sub() Me.lstResult.Items.Add("Beendet"))
    16. Else
    18. Me.Invoke(Sub() Me.lstResult.Items.Add(rwXlsRow.DtStammdatenRow.Id.ToString & ": " & IO.Path.GetFileName(rwXlsRow.DtStammdatenRow.Eingabepfad.ToString()) & "; " & rwXlsRow.DtStammdatenRow.KennzahlTag.ToString))
    20. Me.Invoke(Sub() Me.lstResult.TopIndex = lstResult.Items.Count - 1)
    22. Me.Invoke(Sub() Me.lblAnzahlVerbleibendeDokumente.Text = CStr(ProgressBarAuslesen.Value + 1 & " / " & ProgressBarAuslesen.Maximum))
    24. Me.Invoke(Sub() Me.FortschrittToolStripMenuItem.Text = CStr(ProgressBarAuslesen.Value + 1 & " / " & ProgressBarAuslesen.Maximum))
    26. Dim meinExcel As New ExcelAuslesenClass
    28. Dim arrayExcelAusgabe = meinExcel.ExcelDocAuslesen(rwXlsRow.DtStammdatenRow.Eingabepfad.ToString, rwXlsRow.DtStammdatenRow.Ausgabepfad.ToString, rwXlsRow.DtStammdatenRow.KennzahlTag.ToString, rwXlsRow.Blatt, rwXlsRow.Zelle.ToString)
    30. If arrayExcelAusgabe(7) = "0" Then
    32. Me.Invoke(Sub() Me.lstResult.Items.Add("Dokument nicht gefunden - SIEHE LOG"))
    34. End If
    36. If arrayExcelAusgabe(7) = "3" Then
    38. Me.Invoke(Sub() Me.lstResult.Items.Add("Vorhanden aber kein Tabellenblatt gefunden - SIEHE LOG"))
    40. End If
    42. Dim BildMalen As New DrawClass
    44. BildMalen.DrawImage(arrayExcelAusgabe(0), arrayExcelAusgabe(1), arrayExcelAusgabe(4), arrayExcelAusgabe(5), arrayExcelAusgabe(6))
    46. End If
    48. End Sub
    50. Private Function AeltestenDatensatzFinden() As DtXlsRow
    52. Dim rwXls As DtXlsRow = Nothing
    54. Try
    56. Dim rwStammdatenMitKleinstemDatum = From rw In StammdatenDataSet.DtStammdaten Order By rw.LetztesGelesen Ascending Where rw.Gelesen = 0
    58. Dim rwStammdaten = rwStammdatenMitKleinstemDatum.First()
    60. rwStammdaten.Gelesen = 1
    62. rwXls = GetXlsChildRow(rwStammdaten)
    64. Catch ex As Exception
    66. LoggerDB.LoggerInfo(ex, 1)
    68. LoggerDB.LoggerInfo("Kein ungelesener Datensatz vorhanden!!!", 3)
    70. End Try
    72. Return rwXls
    74. End Function
    76. Private Function GetXlsChildRow(rwStammdaten As DtStammdatenRow) As DtXlsRow
    78. Return (From rwXls In rwStammdaten.GetDtXlsRows).Last
    80. End Function


    Ich würde mich freuen wenn jemand etwas Licht in die Sache bringen würde. Falls jemand also eine Idee hat wo ich mich in dieser Richtung belesen könnte freue ich mich über eure Links.

    Dnake