Microsoft Access Programmierrezepte

R6.21 Externe Verbindungen löschen

Aufgabe

Eine externe Verbindung soll gelöscht werden.

Lösung DAO

Löschen Sie einfach die lokale Tabelle:

Sub VerbindungLoeschen()
Dim db As DAO.Database
Dim td As DAO.TableDef

   Set db = CurrentDb()
   Set td = db.TableDefs.Delete("TestTable1")
End Sub

Lösung ADO

Es genügt ein Löschen der entsprechenden Tabelle (in der Access-Datenbank), um die Verbindung zu trennen.

Sub Verbindung_löschen()
Dim catalog As New ADOX.catalog

    catalog.ActiveConnection = Application.CurrentProject.Connection
    catalog.Tables.Delete ("ExterneDBASETabelle")
End Sub