Programmfehler seit Windowsversion 1903

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 90 Antworten in diesem Thema. Der letzte Beitrag () ist von Westerwälder.

    Wird dann in dem Druckauftrag zugewiesen.
    Hier ein kurzes Beispiel:

    VB.NET-Quellcode

    1. Private Sub Haus_HeizungHardware()
    3. ExcelApp = New Application
    4. ExcelBuch = ExcelApp.Workbooks.Open(Pfade.Formular.Pfad & "1032.xlsx")
    5. ExcelBuch.Saved = False
    6. ExcelApp.DisplayAlerts = False
    7. ExcelApp.Visible = False
    8. ExcelSeite = CType(ExcelBuch.Worksheets("Anlage"), Worksheet)
    10. With ExcelSeite.PageSetup
    11. .LeftHeader = "&12&B" & AppName & "-Hardware Heizung"
    12. .CenterHeader = "&12&B" & "Sternweg "
    13. .RightHeader = "&12&B" & "Imob-Nr. " & Einstellungen.IMOB_Objektnummer.ToString
    14. .LeftFooter = "&8" & Vorlagen.Copyright_Lang
    15. .CenterFooter = "&8" & "Printjob " & JobNummer.ToString
    16. End With
    18. ExcelSeite.Select()
    19. With ExcelSeite
    21. Zeile = 2
    23. For I = 0 To Haus.History.Tab_Hardware.Rows.Count - 1
    24. TabellenZeile = Haus.History.Tab_Hardware.Rows(I)
    25. Zeile += 1
    27. .Cells(Zeile, 1) = TabellenZeile("Beschreibung")
    28. .Cells(Zeile, 2) = TabellenZeile("Anlagenteil")
    30. Next I
    32. End With
    34. ExcelSeite.PrintOutEx()
    35. ExcelSeite = Nothing
    36. ExcelBuch = Nothing
    37. ExcelApp.Quit()
    38. ExcelApp = Nothing
    40. End Sub


    Funktionierte bisher fehlerfrei.
    Gruß Markus

    @Westerwälder Auf welche DLL hast Du da einen Verweis gesetzt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    @Westerwälder Diehabichnich.
    Hast Du da was installiert?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Kann ich nun wirklich nicht mehr sagen.
    Der Verweis war schon in der Vorgängerversion meiner App gesetzt.
    Das ist drei Jahre her.

    Wenn das so weitergeht, kann ich das Programm komplett neu schreiben.
    Erst die Probleme beim Erstlauf, nun kein Exceldruck mehr möglich.
    Bekomme langsam die Krise.
    Programmierzeit 9 Monate.

    Nicht das nun alles unklar wird.
    Der Erstlauf hängt seit dem Windows-Update auf Version 1903.
    Da ich letzte Woche noch Druckaufträge ausführen konnte, kann es damit nicht zusammen hängen.

    Denke die am 27.10.2019 installierten Updates sind dafür verantwortlich, dass kein Exceldruck mehr möglich ist.
    Warum bekomme ich Updates für Office 2010 wenn Office 2016 installiert ist?
    Bilder

    • Updates.png

      83,07 kB, 1.920×1.080, 63 mal angesehen
    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()

    Hat denn niemand einen Vorschlag?
    Wie es ausschaut wird bei jedem Update mein Programm instabiler.

    Welche Möglichkeiten bleiben mir nun?
    Im Dezember kommen die Jahresabschlüsse, Januar Nebenkostenabrechnung und im Februar Auswertungen für den Steuerberater.
    Auch wenn mir die Zeit bliebe das Programm neu zuschreiben, ich wüßte nicht wie ich die bestehende Problematik umgehen sollte.
    Habe den Code nicht geändert, die Fehler kommen durch Microsoft-Updates.

    Wenn meine Autowerkstatt mir ein neues Update aufzieht, erwarte ich das er auf der Postion R rückwärts fährt.
    Oder sehe ich das falsch?
    Gruß Markus

    1. Nachdem in Post#59 aufkam, dass das Öffnen einer Exceldatei einen Fehler erzeugt, stellt sich die Frage, ob das auch passieren würde, wenn Dein Programm nicht automatisch startet, sondern Du über ein VB.Net-Programm versuchst, eine Exceldatei zu öffnen.
    2. Ich hatte bei mir früher (Pre-Foren-Zeit) das Problem, dass ich mit einigen Programmen auch Officeprogramme automatisierte, aber der erste Word-/Excelstart nach PC-Neustart immer mit Fehlermeldungen scheiterte. Dann habe ich ein Zusatzprogramm geschrieben, welches nach PC-Start Word und Excel immer ohne Datei startete und sofort wieder schloss. Das Problem für meine anderen Programme war damit gegessen.
    Probier die beiden Vorschläge mal aus.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    @Westerwälder
    Du schreibst, dass du für Office10 Updates bekommst obwohl du Office16 am Laufen hast...?
    Schaue einmal nach, ob du die alte Version noch installiert hast - deinstalliere diese vollständig (da gibt's im Netz eigene Deinstallationsprogramme, die spurenfrei ein altes Office entfernen und völlig aus der Registry löschen)

    VaporiZed: Danke für deine Vorschläge.
    Aber der Fehler beim Öffnen einer Exceldatei besteht nun ständig. Auch bei Zweit- oder Drittstart, selbst in der IDE.

    VB1963: Auch Dir schönen Dank.
    Schließe ich eigentlich auch aus, weil Rechner im Januar neu gekauft wurde.
    Windows 10 war vorinstalliert, Office 16 von Microsoft online
    Check das aber im Laufe des Tages.
    Was mich immer wieder irritiert ist die database enegie 2010 German, passt diese wirklich zu meinem Officepaket (siehe Post #1)?
    Gruß Markus

    Habe Office 365 (2016) komplett neu installiert.
    Microsoft Accsess databas engine 2016 (English) installiert.

    Nun schaut es wie folgt aus:

    Die Exe-Version bricht nun relativ schnell die Aufgaben ab und beendet sich ohne Fehleranzeige. (auch nach dem 3. oder weiteren Start)
    Starte ich aber nun aus der IDE raus, läuft die jetzt im Erststart fehlerfrei durch.
    Exceldruck funktioniert aus der IDE auch wieder.
    Gruß Markus

    Die IDE-Version habe ich nun gleichgesetzt mit der Exe-Version.

    Jetzt kann ich einen Fehler erkennen.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Datenverbindung Öffnen
    3. ''' </summary>
    4. Private Sub Oeffnen()
    5. Try
    6. With Datenverbindung
    7. If .State = ConnectionState.Open Then Exit Sub
    8. If .State = ConnectionState.Connecting Then Exit Sub
    9. .Open() ' Fehler tritt hier auf. Try catch greift nicht
    10. End With
    11. Catch ex As Exception
    12. Journal.Bankfehler.Schreiben(Now, False, "", "Öffnenfehler: " & ex.Message)
    13. End Try
    15. End Sub


    Fehler:

    System.AccessViolationException
    HResult=0x80004003
    Es wurde versucht, im geschützten Speicher zu lesen oder zu schreiben. Dies ist häufig ein Hinweis darauf, dass anderer Speicher beschädigt ist.
    Gruß Markus

    @Westerwälder Sieht aus wie eine native Exception, die in der DLL nicht in eine gemanagede Exception umgeleitet wird.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Der folgende Fehler tritt wohl bei dem Einfrieren ein:

    Assistent für verwaltetes Debuggen "DisconnectedContext" : "Folgender Fehler beim Übergang in den COM-Kontext 0xa97f01a8 für diesen RuntimeCallableWrapper: Systemaufruf ist fehlgeschlagen. (Ausnahme von HRESULT: 0x80010100 (RPC_E_SYS_CALL_FAILED)). Dieser tritt in der Regel auf, da der COM-Kontext 0xa97f01a8, in dem dieser RuntimeCallableWrapper erstellt wurde, getrennt wurde oder aufgrund eines anderen Vorgangs ausgelastet ist. Die Schnittstellen werden aus dem aktuellen COM-Kontext (COM-Kontext 0xa97f02d0) freigegeben. Dies kann Datenbeschädigung oder -verlust zur Folge haben. Um dieses Problem zu vermeiden, müssen Sie sicherstellen, dass alle COM-Kontexte/Apartments/Threads so lange beibehalten werden und für den Kontextübergang verfügbar sind, bis die Anwendung alle RuntimeCallableWrappers, die in ihnen enthaltene COM-Komponenten darstellen, vollständig verarbeitet hat."
    Gruß Markus

    @Westerwälder Wie ist denn .State zu diesem Zeitpunkt?
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Rod, ich habe die Sub Schliessen mal deaktiviert, so erhalte ich keinen Fehler mehr in der Sub Oeffnen. (Post #71)

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Datenverbindung Schliessen
    3. ''' </summary>
    4. Public Sub Schliessen()
    5. Exit Sub '########### NEU ###############################
    6. Try
    7. Datenverbindung.Close()
    8. OleDbConnection.ReleaseObjectPool()
    9. Catch ex As Exception
    10. Journal.Bankfehler.Schreiben(Now, False, "", "Schliessfehler: " & ex.Message)
    11. End Try
    12. End Sub


    Was bleibt ist das Einfrieren (Post #73).
    Gruß Markus

    Westerwälder schrieb:

    ich habe die Sub Schliessen mal deaktiviert
    Du postest immer nur kleine Häppchen, irgenwo ist aber das Große und Ganze verquer. ;(
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Ist halt viel Code.

    Spoiler anzeigen


    Quellcode

    1. Public Class CDatenBank
    3. Private WithEvents Timer_Tabellenupdate As New Timer With {.Enabled = False, .Interval = 250}
    4. Private WithEvents Timer_Tabellenlesung As New Timer With {.Enabled = False, .Interval = 250}
    5. Private Istlesen As Boolean = False
    6. Private Istupdadet As Boolean = False
    7. ''' <summary>
    8. ''' True: Klasse ist initalisiert
    9. ''' False: Klasse ist nicht initalisiert
    10. ''' </summary>
    11. Public IstInitalisiert As Boolean = False
    12. ''' <summary>
    13. ''' True: Klasse wurde initalisiert
    14. ''' False: Klasse wurde nicht initalisiert
    15. ''' </summary>
    16. Public WurdeInitalisiert As Boolean = False
    17. ''' <summary>
    18. ''' True: Alle Aufgaben in MeinInstall wurden erledigt
    19. ''' False: Alle Aufgaben in MeinInstall wurden nicht erledigt
    20. ''' </summary>
    21. Public Bereit As Boolean = False
    22. ''' <summary>
    23. ''' Name der Datatabelle
    24. ''' </summary>
    25. Public TabellenName As String
    26. ''' <summary>
    27. ''' Aktuelle ausgewählte Zeile der Datatabelle
    28. ''' </summary>
    29. Public DataZeile As DataRow
    30. ''' <summary>
    31. ''' Freie Zeile zur Verfügung
    32. ''' </summary>
    33. Public FreieZeile As DataRow
    34. ''' <summary>
    35. ''' 1. Zeile bei Install-Abfragen
    36. ''' </summary>
    37. Public ErsteZeile As DataRow
    38. ''' <summary>
    39. ''' Letzte Zeile der Datatabele
    40. ''' </summary>
    41. Public LetzteZeile As DataRow
    42. ''' <summary>
    43. ''' Freie Zeile für Prüfungen/Abfragen
    44. ''' </summary>
    45. Public PruefZeile As DataRow
    46. ''' <summary>
    47. ''' Freie Zeile der Datatable (Für Neuanlage)
    48. ''' </summary>
    49. Public NeueZeile As DataRow
    50. ''' <summary>
    51. ''' Freie Zeile zum Drucken
    52. ''' </summary>
    53. Public DruckZeile As DataRow
    54. ''' <summary>
    55. ''' Freie Zeile zum Löschen
    56. ''' </summary>
    57. Public LoeschZeile As DataRow
    58. ''' <summary>
    59. ''' Gibt an, ob nummeriert wird
    60. ''' Standard: False
    61. ''' </summary>
    62. Public Wird_Nummeriert As Boolean
    63. ''' <summary>
    64. ''' Freie Suchzeilen
    65. ''' </summary>
    66. Public SuchZeile() As DataRow
    67. ''' <summary>
    68. ''' Rückmeldung Neuanlagen: Nummernkreis freie Nummer möglich
    69. ''' </summary>
    70. Public NeuanlageMoeglich As Boolean
    71. ''' <summary>
    72. ''' Startnummer aus den NummernPool
    73. ''' </summary>
    74. Public Nummer_Von As Integer
    75. ''' <summary>
    76. ''' Endnummer aus dem NummernPool
    77. ''' </summary>
    78. Public Nummer_Bis As Integer
    79. ''' <summary>
    80. ''' Bezeichnung des Nummernfeld: z.Bsp. Nummer oder Kontonummer
    81. ''' </summary>
    82. Public Nummer_Feld As String
    83. ''' <summary>
    84. ''' True: Fehlende Nummer aus dem NummernPool werden vergeben
    85. ''' False: Es wird die nächste Nummer vergeben
    86. ''' </summary>
    87. Public Nummer_Automatic As Boolean
    88. ''' <summary>
    89. ''' Fehlernummer gem. Programm-Fehlersystem
    90. ''' </summary>
    91. Public FehlerNummer As Integer
    92. ''' <summary>
    93. ''' Verbindung zwischen Datenbank und Datentabelle
    94. ''' </summary>
    95. Protected WithEvents DataAdapter As OleDbDataAdapter
    96. ''' <summary>
    97. ''' Datenbefehle Insert, Delete, Update
    98. ''' </summary>
    99. Private DataBuilder As OleDbCommandBuilder
    100. ''' <summary>
    101. ''' Datentabelle: Spiegel der Tabelle der Datenbank
    102. ''' </summary>
    103. Public DataTabelle As DataTable
    104. ''' <summary>
    105. ''' Bezeichnung des Primärschüssel (z.Bsp. ID)
    106. ''' </summary>
    107. Public PrimKeyName As String
    108. ''' <summary>
    109. ''' OleDbConnection - Datenverbindung
    110. ''' </summary>
    111. Public Datenverbindung As New OleDbConnection
    112. ''' <summary>
    113. ''' Beispiel: "Select * From Pfade Order by Nummer"
    114. ''' </summary>
    115. Private VerbindungsAuftrag As String
    116. Private Verbindungsstring As String
    117. Private Speicherversuch As Integer
    118. Private Leseversuch As Integer
    119. Public I As Integer
    120. Private BNr As Integer
    121. Private NameTabelle As String
    123. ''' <summary>
    124. ''' Datenverbindung Schliessen
    125. ''' </summary>
    126. Public Sub Schliessen()
    127. Exit Sub '########### NEU ###############################
    128. 'Try
    129. ' Datenverbindung.Close()
    130. ' OleDbConnection.ReleaseObjectPool()
    131. 'Catch ex As Exception
    132. ' Journal.Bankfehler.Schreiben(Now, False, "", "Schliessfehler: " & ex.Message)
    133. 'End Try
    135. If Datenverbindung.State <> ConnectionState.Closed Then
    137. ' If Not Journal Is Nothing Then Journal.Bankfehler.Schreiben(Now, False, "Schliesse-Status", Datenverbindung.State.ToString)
    138. If Not Datenverbindung.State = ConnectionState.Open Then MsgBox("Schliessen " & Datenverbindung.State.ToString)
    140. Try
    141. Datenverbindung.Close() ' Nun hier der Fehler
    142. Catch ex As Exception
    143. ' MsgBox(Datenverbindung.State.ToString)
    144. End Try
    146. End If
    148. End Sub
    149. ''' <summary>
    150. ''' Datenverbindung Öffnen
    151. ''' </summary>
    152. Private Sub Oeffnen()
    153. 'Try
    154. ' With Datenverbindung
    155. ' If .State = ConnectionState.Open Then Exit Sub
    156. ' If .State = ConnectionState.Connecting Then Exit Sub
    157. ' .Open() ' Fehler tritt hier auf. Try catch greift nicht
    158. ' End With
    159. 'Catch ex As Exception
    160. ' Journal.Bankfehler.Schreiben(Now, False, "", "Öffnenfehler: " & ex.Message)
    161. 'End Try
    163. If Datenverbindung.State <> ConnectionState.Open Then
    164. Schliessen()
    166. ' If Not Journal Is Nothing Then Journal.Bankfehler.Schreiben(Now, False, "Öffnen-Status", Datenverbindung.State.ToString)
    168. If Not Datenverbindung.State = ConnectionState.Closed Then MsgBox("Öffne " & Datenverbindung.State.ToString)
    170. Try
    171. Datenverbindung.Open()
    172. Catch ex As Exception
    173. ' MsgBox(Datenverbindung.State.ToString)
    174. End Try
    176. End If
    178. End Sub
    180. ''' <summary>
    181. ''' Aus Datentabelle lesen
    182. ''' </summary>
    183. ''' <param name="Banknummer"></param>
    184. ''' <param name="TabName"></param>
    185. ''' <param name="Auftrag"></param>
    186. Public Sub Laden(ByVal Banknummer As Integer, ByVal TabName As String, Optional ByVal Auftrag As String = "Select *")
    188. BNr = Banknummer
    189. NameTabelle = TabName
    191. If Auftrag = "Select *" Then
    192. VerbindungsAuftrag = Auftrag & " From " & TabName & " Order By ID"
    193. Else
    194. VerbindungsAuftrag = Auftrag
    195. End If
    197. Select Case Banknummer
    198. Case 1
    199. Verbindungsstring = Daten.Verbindungsstring_MBHome
    200. Datenverbindung = Daten.Verbindung_MBHome
    201. Case 2
    202. Verbindungsstring = Daten.Verbindungsstring_MBMein
    203. Datenverbindung = Daten.Verbindung_MBMein
    204. Case 3
    205. Verbindungsstring = Daten.Verbindungsstring_MBImob
    206. Datenverbindung = Daten.Verbindung_MBImob
    207. Case 9
    208. Verbindungsstring = Daten.Verbindungsstring_MBSoftAlt
    209. Datenverbindung = Daten.Verbindung_MBSoftAlt
    210. End Select
    212. If Istlesen Then
    213. Timer_Tabellenlesung.Enabled = True
    214. Exit Sub
    215. End If
    217. Istlesen = True
    219. Try
    221. Oeffnen()
    223. IstInitalisiert = False
    224. If PrimKeyName = Nothing Then PrimKeyName = "ID"
    225. If Nummer_Feld = Nothing Then Nummer_Feld = "Nummer"
    227. Using Datenverbindung = New OleDbConnection(Verbindungsstring)
    229. DataAdapter = New OleDbDataAdapter(VerbindungsAuftrag, Me.Datenverbindung)
    230. DataBuilder = New OleDbCommandBuilder(DataAdapter) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
    231. DataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    232. DataTabelle = New DataTable
    233. DataAdapter.FillSchema(DataTabelle, SchemaType.Mapped)
    234. DataAdapter.Fill(DataTabelle)
    235. DataTabelle.PrimaryKey = New DataColumn() {DataTabelle.Columns(PrimKeyName)}
    236. TabellenName = DataTabelle.TableName
    237. DataZeile = DataTabelle.NewRow
    238. IstInitalisiert = True
    239. WurdeInitalisiert = True
    240. If Not DataTabelle.Rows.Count < 1 Then
    241. ErsteZeile = DataTabelle.Rows(0)
    242. LetzteZeile = DataTabelle.Rows(DataTabelle.Rows.Count - 1)
    243. End If
    245. End Using
    247. Catch Nobject As NullReferenceException
    249. Vorlagen.JaNein = MessageBox.Show("Dem Lade-/Lesevorgang wurde" & vbNewLine &
    250. "kein Objekt zugewiesen." & vbNewLine & vbNewLine &
    251. "Möchten Sie das Programm nun beenden?", "Datenbank-Lesefehler " & Vorlagen.Copyright_Messagebox,
    252. MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    254. If Vorlagen.JaNein = DialogResult.Yes Then
    255. End
    256. End If
    258. Exit Sub
    260. Catch ex As Exception
    262. Leseversuch += 1
    264. If Leseversuch < 2 Then
    265. Threading.Thread.Sleep(500)
    266. Laden(BNr, Nothing, VerbindungsAuftrag)
    267. Journal.Bankfehler.Schreiben(Now, False, DataTabelle.TableName, "Lesefehler: " & ex.Message)
    268. Schliessen()
    269. Exit Sub
    270. End If
    272. Journal.Bankfehler.Schreiben(Now, True, TabName, "Ladefehler: " & ex.Message)
    273. Leseversuch = 0
    274. Schliessen()
    275. Istlesen = False
    276. Exit Sub
    278. End Try
    280. Istlesen = False
    281. Leseversuch = 0
    282. Schliessen()
    283. MeinInstall()
    285. End Sub
    287. ''' <summary>
    288. ''' Objektspzifische Installierung von Daten und Eigenschaften
    289. ''' </summary>
    290. Protected Overridable Sub MeinInstall()
    291. End Sub
    292. Private Sub Timer_Tabellenlesung_Elapsed(sender As Object, e As ElapsedEventArgs) Handles Timer_Tabellenlesung.Elapsed
    294. If Istupdadet Then Exit Sub
    295. If Istlesen Then Exit Sub
    296. Timer_Tabellenlesung.Enabled = False
    297. Laden(BNr, NameTabelle, VerbindungsAuftrag)
    299. End Sub
    301. Private Sub Timer_Tabellenupdate_Elapsed(sender As Object, e As ElapsedEventArgs) Handles Timer_Tabellenupdate.Elapsed
    303. If Istupdadet Then Exit Sub
    304. If Istlesen Then Exit Sub
    305. Timer_Tabellenupdate.Enabled = False
    306. Speichern()
    308. End Sub
    309. ''' <summary>
    310. ''' Speichert die Datentabelle in der Datenbank
    311. ''' </summary>
    312. Public Sub Speichern()
    314. Try
    316. If Istupdadet Then
    317. Timer_Tabellenupdate.Enabled = True
    318. Exit Sub
    319. End If
    321. Istupdadet = True
    323. Oeffnen()
    324. DataAdapter.Update(DataTabelle)
    325. Istupdadet = False
    326. Speicherversuch = 0
    328. Catch Nobject As NullReferenceException
    330. 'Istupdadet = True
    331. 'Vorlagen.JaNein = MessageBox.Show("Dem Speichervorgang wurde" & vbNewLine &
    332. ' "kein Objekt zugewiesen." & vbNewLine &
    333. ' "Tabelle-Namen: " & DataTabelle.TableName & vbNewLine & vbNewLine &
    334. ' "Möchten Sie das Programm nun beenden?", "Datenbank-Speicherfehler " & Vorlagen.Copyright_Messagebox,
    335. ' MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    337. 'If Vorlagen.JaNein = DialogResult.Yes Then
    338. ' End
    339. 'End If
    341. 'Istupdadet = False
    342. 'Exit Sub
    344. Catch dbcx As DBConcurrencyException
    346. Istupdadet = False
    348. Journal.Bankfehler.Schreiben(Now, False, DataTabelle.TableName, "Speicherfehler: " & dbcx.Message)
    349. ' Speichern()
    350. Exit Sub
    352. Catch ex As Exception
    354. 'If Datenverbindung.State = ConnectionState.Closed Then
    355. ' Speichern()
    356. ' Exit Sub
    358. 'End If
    360. Istupdadet = False
    362. Speicherversuch += 1
    363. If Speicherversuch < 2 Then
    364. Threading.Thread.Sleep(500)
    365. Laden(BNr, DataTabelle.TableName, VerbindungsAuftrag)
    366. Exit Sub
    367. End If
    369. 'Istupdadet = False
    370. 'Journal.Bankfehler.Schreiben(Now, True, DataTabelle.TableName, "Speicherfehler: " & ex.Message)
    372. 'Vorlagen.JaNein = MessageBox.Show("Bei dem Versuch die Datenbank zu aktualisieren ist ein Fehler aufgetreten." & vbNewLine &
    373. ' "Tabellenname: " & DataTabelle.TableName & vbNewLine &
    374. ' "Fehlermeldung:" & vbNewLine &
    375. ' ex.Message & vbNewLine &
    376. ' "Der Fehler wurde im Journal gespeichert." & vbNewLine & vbNewLine &
    377. ' "Möchten Sie nun den Thread beenden? " & vbNewLine &
    378. ' "Bei Verneinung wird das Datenmodell neu geladen." & vbNewLine,
    379. ' "Datenbankmanagement " & Vorlagen.Copyright_Messagebox, MessageBoxButtons.YesNo, MessageBoxIcon.Error)
    381. 'If Vorlagen.JaNein = DialogResult.Yes Then
    382. ' Application.ExitThread()
    383. ' Exit Sub
    384. 'End If
    386. 'If Vorlagen.JaNein = DialogResult.No Then
    387. ' Laden(BNr, TabellenName, VerbindungsAuftrag)
    388. 'End If
    390. End Try
    392. Istupdadet = False
    393. Schliessen()
    395. End Sub
    396. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    397. Private Sub _RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles DataAdapter.RowUpdated
    399. If e.StatementType = StatementType.Insert Then
    400. _IdentityCommand.Connection = e.Command.Connection
    401. _IdentityCommand.Transaction = e.Command.Transaction
    402. e.Row(e.Row.Table.PrimaryKey(0)) = CInt(_IdentityCommand.ExecuteScalar())
    403. End If
    405. End Sub
    406. ''' <summary>
    407. ''' Datentabelle erneut aus Datenbank lesen
    408. ''' </summary>
    410. Public Sub Neuladen()
    412. Try
    414. IstInitalisiert = False
    415. If PrimKeyName = Nothing Then PrimKeyName = "ID"
    416. If Nummer_Feld = Nothing Then Nummer_Feld = "Nummer"
    418. Using Datenverbindung = New OleDbConnection(Verbindungsstring)
    420. DataAdapter = New OleDbDataAdapter(VerbindungsAuftrag, Me.Datenverbindung)
    421. DataBuilder = New OleDbCommandBuilder(DataAdapter) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
    422. DataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    423. DataTabelle = New DataTable
    424. DataAdapter.FillSchema(DataTabelle, SchemaType.Mapped)
    425. DataAdapter.Fill(DataTabelle)
    426. DataTabelle.PrimaryKey = New DataColumn() {DataTabelle.Columns(PrimKeyName)}
    427. TabellenName = DataTabelle.TableName
    428. DataZeile = DataTabelle.NewRow
    429. IstInitalisiert = True
    430. WurdeInitalisiert = True
    431. If Not DataTabelle.Rows.Count < 1 Then
    432. ErsteZeile = DataTabelle.Rows(0)
    433. LetzteZeile = DataTabelle.Rows(DataTabelle.Rows.Count - 1)
    434. End If
    436. End Using
    438. Catch Nobject As NullReferenceException
    440. Vorlagen.JaNein = MessageBox.Show("Dem Lade-/Lesevorgang wurde" & vbNewLine &
    441. "kein Objekt zugewiesen." & vbNewLine & vbNewLine &
    442. "Möchten Sie das Programm nun beenden?", "Datenbank-Lesefehler " & Vorlagen.Copyright_Messagebox,
    443. MessageBoxButtons.YesNo, MessageBoxIcon.Question)
    445. If Vorlagen.JaNein = DialogResult.Yes Then
    446. End
    447. End If
    449. Exit Sub
    451. Catch ex As Exception
    453. Leseversuch += 1
    455. If Leseversuch = 1 Then
    456. Threading.Thread.Sleep(500)
    457. Schliessen()
    458. Neuladen()
    459. Journal.Bankfehler.Schreiben(Now, False, DataTabelle.TableName, "Neuladefehler: " & ex.Message)
    460. Exit Sub
    461. End If
    463. MessageBox.Show("Fehler Datenbank Neu-Laden: " & vbNewLine & ex.Message, AppName, MessageBoxButtons.OK, MessageBoxIcon.Hand)
    464. Journal.Bankfehler.Schreiben(Now, True, DataTabelle.TableName, "Neuladefehler: " & ex.Message)
    465. Leseversuch = 0
    466. Schliessen()
    467. Exit Sub
    469. End Try
    471. Schliessen()
    473. End Sub
    474. ''' <summary>
    475. ''' DataTabelle und DataQuelle werden zerstört
    476. ''' </summary>
    477. Public Sub Entladen()
    478. DataTabelle = New DataTable
    479. IstInitalisiert = False
    480. MeinEntladen()
    481. End Sub
    482. ''' <summary>
    483. ''' Entladen von objektspezifischen Elementen
    484. ''' </summary>
    485. Protected Overridable Sub MeinEntladen()
    486. End Sub
    487. ''' <summary>
    488. ''' Gibt wieder, ob Datentabelle Datensätze beinhaltet
    489. ''' </summary>
    490. ''' <returns></returns>
    491. Property HatDaten As Boolean
    492. Get
    493. If AnzahlDatensaetze = 0 Then
    494. Return False
    495. Else
    496. Return True
    497. End If
    498. End Get
    499. Private Set(value As Boolean)
    500. End Set
    501. End Property
    502. ''' <summary>
    503. ''' Liefert die Anzahl der Datensäte in der Datentabelle
    504. ''' </summary>
    505. ''' <returns></returns>
    506. Property AnzahlDatensaetze As Integer
    507. Get
    509. If DataTabelle Is Nothing Then
    510. Return 0
    511. Exit Property
    512. End If
    513. Return DataTabelle.Rows.Count
    514. End Get
    515. Private Set(value As Integer)
    516. End Set
    517. End Property
    518. ''' <summary>
    519. ''' Liefert die neue neue Nummer lt. Datenpool der Anwendung
    520. ''' </summary>
    521. ''' <returns></returns>
    522. Property NummerNeu As Integer
    523. Get
    524. NeuanlageMoeglich = False
    525. Dim NP As Integer = Daten.NeueNummer_Ermittlung(DataTabelle, Nummer_Von, Nummer_Bis, Nummer_Automatic, Nummer_Feld)
    526. If NP = -1 Then
    527. MessageBox.Show("Eine Neuanlage ist nicht möglich, da keine Nummer" & vbNewLine &
    528. "aus dem Nummernkreis mehr zur Verfügung steht.",
    529. "Datenbankmanagment", MessageBoxButtons.OK, MessageBoxIcon.Error)
    530. NeuanlageMoeglich = False
    531. Return -1
    532. Exit Property
    533. End If
    534. NeuanlageMoeglich = True
    535. Return NP
    536. End Get
    537. Private Set(value As Integer)
    538. End Set
    539. End Property
    540. End Class




    Gruß Markus

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „Westerwälder“ ()

    Westerwälder schrieb:

    ich habe die Sub Schliessen mal deaktiviert
    Meine Open/Close-Mechanismen sehen normalerweise so ähnlich aus

    VB.NET-Quellcode

    1. Function OpenConnection(Optional ForceReconnect As Boolean=False) As Boolean
    2. If ForceReconnect OrElse DbConnection.State <> ConnectionState.Open Then
    3. CloseConnection
    4. DbConnection.Open
    5. End If
    6. Return DbConnection.State = ConnectionState.Open
    7. End Function
    8. Sub CloseConnection()
    9. If DbConnection.State <> ConnectionState.Closed Then DbConnection.Close
    10. End Sub
    Da passieren keine ungewollten Statusveränderungen.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

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

    Hallo petaod, habe das bei mir übernommen, erhalte doch einen Fehler.

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Datenverbindung Schliessen
    3. ''' </summary>
    4. Public Sub Schliessen()
    5. 'Exit Sub '########### NEU ###############################
    6. 'Try
    7. ' Datenverbindung.Close()
    8. ' OleDbConnection.ReleaseObjectPool()
    9. 'Catch ex As Exception
    10. ' Journal.Bankfehler.Schreiben(Now, False, "", "Schliessfehler: " & ex.Message)
    11. 'End Try
    13. If Datenverbindung.State <> ConnectionState.Closed Then Datenverbindung.Close() ' Nun hier der Fehler
    15. End Sub
    16. ''' <summary>
    17. ''' Datenverbindung Öffnen
    18. ''' </summary>
    19. Private Sub Oeffnen()
    20. 'Try
    21. ' With Datenverbindung
    22. ' If .State = ConnectionState.Open Then Exit Sub
    23. ' If .State = ConnectionState.Connecting Then Exit Sub
    24. ' .Open() ' Fehler tritt hier auf. Try catch greift nicht
    25. ' End With
    26. 'Catch ex As Exception
    27. ' Journal.Bankfehler.Schreiben(Now, False, "", "Öffnenfehler: " & ex.Message)
    28. 'End Try
    30. If Datenverbindung.State <> ConnectionState.Open Then
    31. Schliessen()
    32. Datenverbindung.Open()
    33. End If
    35. End Sub


    Fehler bei Schliessen Datenverbindung.Close() ' Nun hier der Fehler
    Assistent für verwaltetes Debuggen "RaceOnRCWCleanup"
    Nachricht = Assistent für verwaltetes Debuggen "RaceOnRCWCleanup" : "Es wurde versucht, einen RCW freizugeben, der derzeit benutzt wird. Der RCW wird im aktiven Thread oder einem anderen Thread verwendet. Der Versuch, einen RCW freizugeben, der gerade verwendet wird, kann Datenbeschädigung oder -verlust zur Folge haben."
    Gruß Markus

Facebook
Telefonspende