Access Datenbank verknüpfte Tabellenpfade ermitteln

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

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Volker Bunge.

    Access Datenbank verknüpfte Tabellenpfade ermitteln

    Hallo zusammen,

    für ein kleines Datensicherungsprogramm suche ich eine Möglichkeit, eine Accessdatenbank bzw. deren Tabellen darauf hin zu untersuchen, ob es Tabellen gibt, die in einer anderen Datenbank stehen und in der Frontenddatenbank also nur verknüpft sind.
    Mit diesen Pfaden würde ich dann auch diese mit sichern und somit alle benötigten Datenbanken sichern können. Wenn es möglich ist, dann wäre mir ACCDB und MDB Datenbanken sehr recht.

    Ich habe hierzu schon einiges probiert, aber leider nie den Verknüpfungspfad der jeweiligen Tabellen gefunden.

    Die Lösung soll am Ende alle verknüpften Datenbankpfade mir einmalig anzeigen (das bekomme ich aber selbst hin).

    Was ich aber leider überhaupt nicht hinbekomme, ist das richtige Auslesen der Datenbankpfade

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub AccessDB_Verknuepfte_Tabellen(dbPath As String)
    2. ' Pfad zur Access-Datenbank
    3. ' Dim dbPath As String = "C:\Pfad\zu\deiner\Datenbank.accdb"
    4. ' Verbindung zur Access-Datenbank herstellen
    6. ' Verbindung zur Access-Datenbank herstellen
    7. Using connection As New OleDbConnection($"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={dbPath};")
    8. connection.Open()
    10. ' SQL-Abfrage für die MSysObjects-Tabelle
    11. Dim query As String = "SELECT Database, Name, Type FROM MSysObjects WHERE Type=6" ' Type=1 steht für Tabellen
    13. Using command As New OleDbCommand(query, connection)
    14. Using reader As OleDbDataReader = command.ExecuteReader()
    15. ' Durchlaufen der Datensätze
    16. While reader.Read()
    17. Dim tableName As String = reader("Name").ToString()
    18. Dim tableType As Integer = Convert.ToInt32(reader("Type"))
    20. Console.WriteLine($"Tabelle: {tableName}, Typ: {tableType}")
    21. End While
    22. End Using
    23. End Using
    25. connection.Close()
    26. End Using
    28. Console.ReadLine()
    30. '' Verbindung zur Access-Datenbank herstellen
    31. 'Using connection As New OleDbConnection($"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={dbPath};")
    32. ' connection.Open()
    34. ' ' Abfrage für die MSysObjects-Tabelle, um verknüpfte Tabellen zu finden
    35. ' Dim query As String = "SELECT Name, Connect FROM MSysObjects WHERE Type=6"
    36. ' Using command As New OleDbCommand(query, connection)
    37. ' Using reader As OleDbDataReader = command.ExecuteReader
    38. ' While reader.Read()
    39. ' Dim linkedTableName As String = reader("Name").ToString()
    40. ' Dim linkedDatabasePath As String = reader("Database").ToString()
    42. ' Console.WriteLine($"Verknüpfte Tabelle: {linkedTableName}")
    43. ' Console.WriteLine($" Verknüpft mit: {linkedDatabasePath}")
    44. ' End While
    45. ' End Using
    46. ' End Using
    48. ' connection.Close()
    49. 'End Using
    51. 'Console.ReadLine()
    53. End Sub


    Leider bekomme ich bei beiden Methoden immer in der Zeile Using reader As OleDbDataReader = command.ExecuteReader die Fehlermeldung "System.Data.OleDb.OleDbException: "Record(s) cannot be read; no read permission on 'MSysObjects'.""

    Grundsätzlich ist mir der Fehler schon bewusst, da dies ja eine verdeckte Systemtabelle ist. Ich habe auch eine Möglichkeit gefunden, die vorschlägt, eine Abfrage auf diese Tabelle zu legen und diese Abfrage dann abzufragen. Eine insofern schöne Lösung, da man hier sofort auf die verknüpften Datenbankpfade gruppieren könnte und somit nicht im VB.Net Programm dies erledigen müsste. Nachteil: Ich müsste dann jedes Mal diese Abfrage erstellen. Also habe ich mal versucht, mit diesem Code das zu automatisieren

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Sub AccessDB_Verknuepfte_Tabellen(dbPath As String)
    2. ' Pfad zur Access-Datenbank
    3. ' Dim dbPath As String = "C:\Pfad\zu\deiner\Datenbank.accdb"
    4. ' Verbindung zur Access-Datenbank herstellen
    6. ' Verbindung zur Access-Datenbank herstellen
    7. Using connection As New OleDbConnection($"Provider=Microsoft.ACE.OLEDB.12.0;Data Source={dbPath};")
    8. connection.Open()
    10. ' 1. Erstellen und Speichern einer Abfrage
    11. Dim createQuery As String = "CREATE VIEW GetTablePath AS SELECT MSysObjects.Database FROM MSysObjects WHERE (((MSysObjects.Type)=6)) GROUP BY MSysObjects.Database"
    13. Using command As New OleDbCommand(createQuery, connection)
    14. Try
    15. command.ExecuteNonQuery()
    16. Console.WriteLine("Abfrage erfolgreich erstellt.")
    17. Catch ex As Exception
    18. Console.WriteLine($"Fehler beim Erstellen der Abfrage: {ex.Message}")
    19. ' Fehler beim Erstellen der Abfrage: Record(s) cannot be read; no read permission on 'MSysObjects'.
    21. End Try
    22. End Using
    24. ' 2. Die Informationen holen
    25. ' SQL-Abfrage für die MSysObjects-Tabelle
    26. Dim query As String = "SELECT * FROM GetTablePath" ' Type=1 steht für Tabellen
    28. Using command As New OleDbCommand(query, connection)
    29. Using reader As OleDbDataReader = command.ExecuteReader() ' Fehler: Ein Ausnahmefehler des Typs "System.Data.OleDb.OleDbException" ist in System.Data.dll aufgetreten.
    30. ' Record(s) cannot be read; no read permission On 'MSysObjects'.
    32. ' Durchlaufen der Datensätze
    33. While reader.Read()
    34. Dim tableName As String = reader("Database").ToString()
    36. Console.WriteLine($"Tabelle: {tableName}")
    37. End While
    38. End Using
    39. End Using
    41. ' 3. Löschen der gespeicherten Abfrage
    42. Dim dropQuery As String = "DROP VIEW GetTablePath"
    43. Using command As New OleDbCommand(dropQuery, connection)
    44. Try
    45. command.ExecuteNonQuery()
    46. Console.WriteLine("Abfrage erfolgreich gelöscht.")
    47. Catch ex As Exception
    48. Console.WriteLine($"Fehler beim Löschen der Abfrage: {ex.Message}")
    49. End Try
    50. End Using
    52. connection.Close()
    53. End Using
    55. Console.ReadLine()
    57. end sub


    Leider klappt das auch nicht (siehe Fehlermeldungen im Code). Das Erstellen habe ich auch mal kurz deaktiviert und den zweiten Teil zu testen, aber auch hier eine Fehlermeldung. Den dritten Teil, das Löschen der Abfrage, habe ich noch nicht probiert.

    Jetzt mal eine Frage an Euch: Wie bekomme ich die/den Datenbankpfad einer Frontend bzw. Backend Datenbankanwendung ausgelesen?

    Über kreative Lösungen würde ich mich sehr freuen.

    Gruß

    Volker

    *Topic verschoben*

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()

    Hallo zusammen,

    habe jetzt eine Methode gefunden, die so halb funktioniert. Hier erst einmal der Code

    Spoiler anzeigen
    ​

    VB.NET-Quellcode

    1. ​
    2. Imports Microsoft.Office.Interop.Access
    3. Imports Microsoft.Office.Interop.Access.DaoSub
    4. Sub AccessDB_Verknuepfte_Tabellen(dbPath As String)
    5. Dim accessApp As New Application()
    6. 'Dim dbPath As String = "C:\Pfad\zu\deiner\Datenbank.accdb" ' Pfad zur Access-Datenbank
    7. Dim tableName As String = "Abgeschlossene_Jahre" ' Name der verknüpften Tabelle
    9. Try
    10. accessApp.OpenCurrentDatabase(dbPath)
    12. Dim tableDef As TableDef = accessApp.CurrentDb.TableDefs(tableName)
    14. If tableDef.Connect <> "" Then
    15. Dim linkedDbPath As String = tableDef.Connect.Replace(";", "").Trim()
    16. Console.WriteLine("Der Dateipfad der verknüpften Tabelle ist: " & linkedDbPath)
    17. Else
    18. Console.WriteLine("Die Tabelle ist nicht verknüpft.")
    19. End If
    21. Catch ex As Exception
    22. Console.WriteLine("Fehler: " & ex.Message)
    23. Finally
    24. accessApp.CloseCurrentDatabase()
    25. accessApp.Quit()
    26. End Try
    28. end sub


    Es gibt hier nur noch ein paar kleine Probleme

    1. Durch accessApp.OpenCurrentDatabase(dbPath) wird die Datenbank geöffnet. Das will ich aber nicht (zu mindestens nicht optisch. Wenn sie im Hintergrund unsichtbar geöffnet werden muss, ok)
    2. Erst wenn ich die DB schließe, geht es mit meinem Code weiter. Vorher passiert da gar nichts. Soll natürlich auch nicht sein.
    3. Ich bekomme tatsächlich für die angegebene Tabelle den korrekten Dateipfad auf die verknüpfte Datenbankdatei zurück geliefert. Aber ich möchte ja alle vorhandenen Tabellen untersuchen, ohne deren Tabellennamen zu wissen.
    4. Zum Schluss wird zwar die Datenbank noch einmal geschlossen, aber das Accessprogramm an sich bleibt immer aktiv. Auch ein manuelles Schließen über das X klappt nicht. Datei Schließen ist nicht aktiv. Erst über Taskmanager kann man Access schließen.

    Was auffällt ist, dass die DB ohne Accessgrundfenster gestartet wird. Meine Testdatenbank öffnet ein Dialogformular, welches somit eigentlich mittig ausgerichtet angezeigt wird. Im Hintergrund ist aber das Accessprogramm mit dem X gar nicht zu sehen.

    Wenn Ihr mir helfen könntet, dieses doch wohl nicht so einfache Problem zu lösen, wäre das echt genial.

    Schönen Feiertag und Wochenende noch allen.

    Volker

    Hallo zusammen,

    ich habe jetzt eine wesentlich bessere Möglichkeit gefunden.

    Ursprung: Eigenschaften einer Access Tabelle ermitteln Antwort: 20

    Mit dieser Lösung ein wenig rumgespielt und dann auf den entscheidenden Punkt ".Connect" gekommen.

    Hier mal meine leicht modifizierte Lösung

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Access
    2. Imports Microsoft.Office.Interop.Access.Dao
    3. Module AccessDB_untersuchen
    4. Sub AccessDB_Verknuepfte_Tabellen(databaseName As String)
    6. Dim tbl As Dao.TableDef
    7. Dim s As String
    8. ' Dim databaseName As String = "E:\Cal.mdb"
    9. Dim dbEngine As New Dao.DBEngine()
    10. Dim db As Dao.Database = dbEngine.OpenDatabase(databaseName)
    11. With Startfenster.DataGridView1
    12. .Columns.Add("Tabelle", "Tabelle")
    13. .Columns.Add("Connect", "Connect") ' Diese Zeile ist neu
    14. .Columns.Add("DateCreated", "DateCreated")
    15. .Columns.Add("LastUpdated", "LastUpdated")
    16. .Columns.Add("Recordcount", "Recordcount")
    17. End With
    19. For Each tbl In db.TableDefs
    20. s = TabellenAttribute(tbl)
    21. If s <> "" Then ' Die Zeile habe ich auch umgedreht, denn s = "" funktioniert nur bei nicht verknüpften Tabellen
    22. With tbl
    23. Startfenster.DataGridView1.Rows.Add(.Name, Replace(.Connect,";DATABASE=",""), .DateCreated, .LastUpdated, .RecordCount) ' Das Attribut .Connect ist neu und gibt den Dateipfad wieder. Der Replace habe ich eingefügt, damit am Ende nur der reine Dateipfad übrig bleibt. Kann man natürlich auch später irgendwo einbauen.
    24. End With
    25. End If
    26. Next
    27. End Sub
    28. Public Function TabellenAttribute(tbl As Dao.TableDef) As String
    29. Dim strResult As String = Nothing
    30. With tbl
    31. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbSystemObject) Then
    32. strResult = "SystemObject "
    33. End If
    34. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbHiddenObject) Then
    35. strResult = strResult + "HiddenObject "
    36. End If
    37. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachExclusive) Then
    38. strResult = strResult + "AttachExclusive "
    39. End If
    40. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachSavePWD) Then
    41. strResult = strResult + "AttachSavePWD "
    42. End If
    43. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachedTable) Then
    44. strResult = strResult + "AttachedTable "
    45. End If
    46. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachedODBC) Then
    47. strResult = strResult + "AttachedODBC "
    48. End If
    49. End With
    50. TabellenAttribute = strResult
    51. End Function


    Das Geniale hierbei: Es geht super schnell und ist noch für andere Infos brauchbar.

    Ich habe zwar den Code noch nicht so ganz verstanden (insbesondere die Funktion) aber das ist jetzt erst einmal zweitrangig. Ich werde jetzt das Ganze noch einmal so umschreiben, dass ich am Ende einen String bekomme, der mir alle verknüpften Datenbankpfade einmalig zurück liefert. Wenn der Code fertig ist, dann melde ich mich noch einmal.



    Hier nun noch die versprochene Endlösung (zu mindestens die, die ich haben wollte).

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports Microsoft.Office.Interop.Access
    2. Imports Microsoft.Office.Interop.Access.Dao
    4. Public Function AccessDB_Verknuepfte_Tabellen_Dateipfad(databaseName As String, Optional Trennzeichen As String = ";") As String
    6. Dim Tbl As Dao.TableDef
    7. Dim Attribute As String
    9. Dim VorhDateipfad As String = "" ' Hier stehen später alle Dateipfade drin
    11. ' Baut eine Verbindung zur Datenbank auf
    12. Dim dbEngine As New Dao.DBEngine()
    13. Dim db As Dao.Database = dbEngine.OpenDatabase(databaseName)
    15. ' Es werden jetzt alle Tabellen durchlaufen
    16. For Each Tbl In db.TableDefs
    18. ' und die Tabellenattribute ermittelt
    19. Attribute = TabellenAttribute(Tbl)
    21. ' Wenn es Attribute gibt, dann handelt es sich auch um verknüpfte Tabellen
    22. If Attribute <> "" Then
    24. ' Jetzt die dynamischen Ellemente bearbeiten
    25. With Tbl
    27. ' Da am Ende nur einmalig die verknüpften Dateipfade raus kommen sollen, wir hier geprüft, ob es den aktuellen Dateipfad schon gibt
    28. If InStr(VorhDateipfad, Replace(.Connect, ";DATABASE=", "")) = 0 Then
    30. ' Gibt es den aktuellen Pfad noch nicht, dann wird er dem Endergebnis incl. eines Trennzeichens hinzugefügt
    31. VorhDateipfad = VorhDateipfad & Replace(.Connect, ";DATABASE=", "") & Trennzeichen
    33. End If
    35. End With
    37. Else
    39. ' für Tabellen, die nicht verknüpft sind, kann man hier das gleiche evtl. durchführen
    41. End If
    43. Next
    45. ' Jetzt liegen alle Dateipfade evtl. vor.
    46. If VorhDateipfad <> "" Then
    48. ' Das ggf. letzte Trennzeichen mus/sollte daher noch gelöscht werden
    49. VorhDateipfad = VorhDateipfad.Substring(0, VorhDateipfad.Length - 1)
    51. End If
    53. Return VorhDateipfad
    55. End Function
    56. Public Function TabellenAttribute(tbl As Dao.TableDef) As String
    57. Dim strResult As String = Nothing
    58. With tbl
    59. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbSystemObject) Then
    60. strResult = "SystemObject "
    61. End If
    62. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbHiddenObject) Then
    63. strResult = strResult + "HiddenObject "
    64. End If
    65. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachExclusive) Then
    66. strResult = strResult + "AttachExclusive "
    67. End If
    68. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachSavePWD) Then
    69. strResult = strResult + "AttachSavePWD "
    70. End If
    71. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachedTable) Then
    72. strResult = strResult + "AttachedTable "
    73. End If
    74. If CBool(.Attributes And Dao.TableDefAttributeEnum.dbAttachedODBC) Then
    75. strResult = strResult + "AttachedODBC "
    76. End If
    77. End With
    78. TabellenAttribute = strResult
    79. End Function


    Viel Spaß

    Volker

    Dieser Beitrag wurde bereits 4 mal editiert, zuletzt von „Volker Bunge“ ()

    Hi Volker,
    dein Ansatz(...FROM MSysObjects.....) in Post#1 war schon richtig, du musst aber eine Abfrage vorschalten und eine System.MDW verwenden um zugriff zu erahlten sonst kommt halt die Fehlermeldung


    "System.Data.OleDb.OleDbException: "Record(s) cannot be read; no read permission on 'MSysObjects'.""


    hier ein Bsp. mit SystemMDW

    VB.NET-Quellcode

    1. Option Strict On
    2. Imports System.Data.OleDb
    4. Public Class Form1
    6. Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    7. If IO.File.Exists(System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\Microsoft\Access\System.MDW") Then
    8. DataGridView1.DataSource = GetLinkedTables()
    9. End If
    10. End Sub
    12. Public Function GetLinkedTables() As DataTable
    13. Dim con As New OleDb.OleDbConnectionStringBuilder With
    14. {
    15. .Provider = "Microsoft.ACE.OLEDB.12.0",
    16. .DataSource = "D:\DbCSV_Linked.accdb"
    17. }
    19. con.Add(
    20. "Jet OLEDB:System Database",
    21. System.Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) &
    22. "\Microsoft\Access\System.MDW"
    23. )
    25. Using cn As New OleDb.OleDbConnection With {.ConnectionString = con.ConnectionString}
    27. Using cmd As New OleDb.OleDbCommand With {.Connection = cn}
    28. cmd.CommandText = "GRANT SELECT ON TABLE MSysObjects TO PUBLIC"
    29. Dim dt As New DataTable
    30. cn.Open()
    31. cmd.ExecuteNonQuery()
    33. cmd.CommandText = "SELECT MSysObjects.Name As [Tabellenname], MSysObjects.Database As [Pfad] " & _
    34. "FROM MSysObjects " & _
    35. "GROUP BY MSysObjects.Name, MSysObjects.Database " & _
    36. "HAVING MSysObjects.Database Is Not Null;"
    37. dt.Load(cmd.ExecuteReader)
    38. Return dt
    39. End Using
    40. End Using
    41. End Function
    42. End Class


    hier noch ein Bild


    gutes gelingen mit deinem Projekt