Gibt es eine Möglichkeit installierte Programme automatisch aus VB heraus zu ändern/reparieren?

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

    Gibt es eine Möglichkeit installierte Programme automatisch aus VB heraus zu ändern/reparieren?

    Hallo und einen guten Tag zusammen.

    Bei mir treten öfters Probleme mit der Accsess-Datenbank (Office 365 / 2016) und meinem VB-Programm auf.
    Meist geschieht dies, wenn Microsoft Updates für Office übermittelt.

    Mein Programm kann dann Datensätze nicht mehr richtig abspeichern. Bei Excelausdruck friert das Programm ein.

    Repariere dann manuell die
    Microsoft Accsess database engine 2010 (German) und die
    Microsoft Office - de - de.

    Danach funktioniert i.d.R. wieder die Kommunikation mit der Datenbank.
    Der Exceldruck funktioniert meist nur aus der IDE. Mit Exe-Version habe ich ständig Probleme.

    Bild2)
    Es werden vier eMailkonten überprüft.
    Tagesdaten sind Wetter, Benzin, Heizöl, Pelletspreise. Werden dann nicht abgespeichert.

    Die Frage nun:
    Kann man aus VB heraus die o.a. Programme automatisch reparieren lassen?


    Vielleicht stimmt mit meinem Datenmodell was nicht, obwohl ich damit schon seit 10 Jahren arbeite.

    Spoiler anzeigen

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Aus Datentabelle lesen
    3. ''' </summary>
    4. ''' <param name="Banknummer"></param>
    5. ''' <param name="TabName"></param>
    6. ''' <param name="Auftrag"></param>
    7. Public Sub Laden(ByVal Banknummer As Integer, ByVal TabName As String, Optional ByVal Auftrag As String = "Select *")
    9. BNr = Banknummer
    10. NameTabelle = TabName
    12. If Auftrag = "Select *" Then
    13. VerbindungsAuftrag = Auftrag & " From " & TabName & " Order By ID"
    14. Else
    15. VerbindungsAuftrag = Auftrag
    16. End If
    18. Select Case Banknummer
    19. Case 1
    20. Verbindungsstring = Daten.Verbindungsstring_MBHome
    21. Datenverbindung = Daten.Verbindung_MBHome
    22. Case 2
    23. Verbindungsstring = Daten.Verbindungsstring_MBMein
    24. Datenverbindung = Daten.Verbindung_MBMein
    25. Case 3
    26. Verbindungsstring = Daten.Verbindungsstring_MBImob
    27. Datenverbindung = Daten.Verbindung_MBImob
    28. End Select
    30. Try
    32. Oeffnen()
    34. IstInitalisiert = False
    35. If PrimKeyName = Nothing Then PrimKeyName = "ID"
    36. If Nummer_Feld = Nothing Then Nummer_Feld = "Nummer"
    38. Using Datenverbindung = New OleDbConnection(Verbindungsstring)
    40. DataAdapter = New OleDbDataAdapter(VerbindungsAuftrag, Me.Datenverbindung)
    41. DataBuilder = New OleDbCommandBuilder(DataAdapter) With {.QuotePrefix = "[", .QuoteSuffix = "]"}
    42. DataAdapter.MissingSchemaAction = MissingSchemaAction.AddWithKey
    43. DataTabelle = New DataTable
    44. DataAdapter.FillSchema(DataTabelle, SchemaType.Mapped)
    45. DataAdapter.Fill(DataTabelle)
    46. DataTabelle.PrimaryKey = New DataColumn() {DataTabelle.Columns(PrimKeyName)}
    47. TabellenName = DataTabelle.TableName
    48. DataZeile = DataTabelle.NewRow
    49. IstInitalisiert = True
    50. WurdeInitalisiert = True
    51. If Not DataTabelle.Rows.Count < 1 Then
    52. ErsteZeile = DataTabelle.Rows(0)
    53. LetzteZeile = DataTabelle.Rows(DataTabelle.Rows.Count - 1)
    54. End If
    56. End Using
    58. Catch ex As Exception
    59. Daten.Steuerung.Fehler.Schreiben(Now, "Daten Lesen", DataTabelle.TableName, Datenverbindung.State, ex.Message)
    60. End Try
    62. Schliessen()
    63. MeinInstall()
    65. End Sub


    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Datenverbindung Öffnen
    3. ''' </summary>
    4. Private Sub Oeffnen()
    6. If Not Daten.Steuerung.Einstellung.VerbindungOeffnen Then Exit Sub
    8. Try
    9. If Datenverbindung.State <> ConnectionState.Open Then
    10. If Datenverbindung.State <> ConnectionState.Connecting Then
    11. Datenverbindung.Open()
    12. End If
    13. End If
    15. Catch ex As Exception
    16. Daten.Steuerung.Fehler.Schreiben(Now, "Daten Oeffnen", DataTabelle.TableName, Datenverbindung.State, ex.Message)
    17. End Try
    19. End Sub

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Speichert die Datentabelle in der Datenbank
    3. ''' </summary>
    4. Public Sub Speichern()
    6. Try
    8. Oeffnen()
    9. DataAdapter.Update(DataTabelle)
    11. Catch ex As Exception
    13. Daten.Steuerung.Fehler.Schreiben(Now, "Daten Speichern", DataTabelle.TableName, Datenverbindung.State, ex.Message, True)
    14. End Try
    16. Schliessen()
    18. End Sub
    20. Private _IdentityCommand As New OleDbCommand("SELECT @@IDENTITY")
    21. Private Sub _RowUpdated(ByVal sender As Object, ByVal e As OleDbRowUpdatedEventArgs) Handles DataAdapter.RowUpdated
    23. If Not Daten.Steuerung.Einstellung.ZeileIdent Then Exit Sub
    25. If e.StatementType = StatementType.Insert Then
    26. _IdentityCommand.Connection = e.Command.Connection
    27. _IdentityCommand.Transaction = e.Command.Transaction
    28. e.Row(e.Row.Table.PrimaryKey(0)) = CInt(_IdentityCommand.ExecuteScalar())
    29. End If
    31. End Sub

    VB.NET-Quellcode

    1. ''' <summary>
    2. ''' Datenverbindung Schliessen, Absolut ohne Beachtung der Einstellungen
    3. ''' </summary>
    4. ''' <param name="Absolut"></param>
    5. Public Sub Schliessen(Optional ByVal Absolut As Boolean = False)
    7. If Absolut Then
    8. Try
    9. Datenverbindung.Close()
    10. Catch ex As Exception
    11. Daten.Steuerung.Fehler.Schreiben(Now, "Daten Schliessen (Absolut)", DataTabelle.TableName, Datenverbindung.State, ex.Message)
    12. End Try
    13. Exit Sub
    14. End If
    16. If Not Daten.Steuerung.Einstellung.VerbindungSchliessen Then Exit Sub
    18. Try
    19. Datenverbindung.Close()
    20. Catch ex As Exception
    21. Daten.Steuerung.Fehler.Schreiben(Now, "Daten Schliessen", DataTabelle.TableName, Datenverbindung.State, ex.Message)
    22. End Try
    24. End Sub



    Beiträge zusammengefügt. ~Thunderbolt
    Bilder

    • DB_Setup.png

      117,54 kB, 3.840×2.160, 39 mal angesehen

    • Datenbankfehler.png

      114,25 kB, 3.840×2.160, 36 mal angesehen
    Gruß Markus

    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „Thunderbolt“ ()