HINWEIS
BEISPIEL
HINWEIS
Abbildung 9.43 Vergeblicher Versuch, die Daten zu editieren
Verknüpfte Excel-Daten können Sie nicht bearbeiten
1
!
Reaktivieren einer Verbindung
Sollte sich die Position der eingebundenen Tabelle ändern, brauchen Sie nicht die Verbindung zu löschen.
Es genügt, wenn Sie den neuen Pfad angeben und die Methode RefreshLink aufrufen.
Eine Verbindung wird reaktiviert
Dim db As Database
Dim td As TableDef
Set db = CurrentDB()
Set td = db.TableDefs![Eingebundene Tabelle XYZ]
td.Connect = " dBASE 5;DATABASE=c:\dbNeu"
td.RefreshLink
Löschen einer Verbindung
Eine Verbindung löschen Sie, wenn Sie den entsprechenden Eintrag aus der TableDefs-Auflistung ent-
fernen. Verwenden Sie dazu die Delete-Methode:
CurrentDatabase.TableDefs.Delete "Eingebundene Tabelle XYZ"
Natürlich löschen Sie mit Delete nur die aktive Verbindung, nicht die verbundene Tabelle!
Verwenden der ADOX
Erstellen einer Verbindung
Zwecks Erstellen einer Verbindung mit Hilfe der ADOX binden Sie zunächst die entsprechende Library ein.
Nachfolgend können Sie, genau wie mit den DAO, eine Verbindung erzeugen.
1
Lustige Lösungsmöglichkeit in der Microsoft Knowlegebase: Editieren Sie die Daten in Excel ...
573
Einbinden externer Tabellen
BEISPIEL
Kapitel 9: Fortgeschrittene Datenbankprogrammierung
Verknüpfen einer dBase-Tabelle
Dim cat As New ADOX.Catalog
Dim tbl As New ADOX.Table
cat.ActiveConnection = CurrentProject.Connection
Neues Objekt erstellen:
tbl.Name = "ExterneDBASETabelle"
Set tbl.ParentCatalog = cat
Eigenschaften setzen:
tbl.Properties("Jet OLEDB:Create Link") = True
tbl.Properties("Jet OLEDB:Link Provider String") = "dBase 5.0;"
tbl.Properties("Jet OLEDB:Link Datasource") = "C:\TEMP"
tbl.Properties("Jet OLEDB:Remote Table Name") = "Personen.dbf"
Anfügen nicht vergessen:
cat.Tables.Append tbl
Wie Sie sehen, kommen Sie nicht um die Verwendung von speziellen Eigenschaften herum, auch wenn der
Ablauf dem normalen Erstellen einer Tabelle gleicht. Die folgende Tabelle zeigt die Bedeutung.
Eigenschaft Beschreibung
Jet OLEDB:Create Link Setzen Sie diesen Wert auf True, um eine Verknüpfung zu erzeugen
Jet OLEDB:Exclusive Link Setzen Sie diesen Wert auf True, wenn Sie exklusiven Zugriff auf die Datenquelle wünschen
Jet OLEDB:Link Datasource Datenbankname (meist der Verzeichnisname)
Jet OLEDB:Link Provider String Der eigentliche Connection-String, mit dem Sie auch den Datentyp spezifizieren (z.B. "Excel 8.0;")
Jet OLEDB:Remote Table Name Der Tabellenname
Jet OLEDB:Cache Link Name/Password Setzen Sie diesen Wert auf True, wenn Sie gegebenenfalls Anmeldenamen und -passwort in der
Access-Datenbank abspeichern möchten.
Tabelle 9.24 Eigenschaften für das Erstellen von Verbindungen
Bevor Sie am Connection-String verzweifeln, machen Sie es sich doch einfach. Sie erstellen mit Access die
gewünschte Verknüpfung, öffnen diese im Entwurfsmodus und wählen danach Eigenschaften. Unter Be-
schreibung finden Sie die gewünschten Einträge.
Abbildung 9.44 Abfragen der Verbindungseigenschaften
574

Get Microsoft Office Access 2007-Programmierung - Das Handbuch now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.