<\/p>\n
Gelegentlich importiert oder verknüpft man eine Textdatei, eine Excel-Tabelle oder auch eine Tabelle einer anderen Datenbank, um sich der darin enthaltenen Daten zu bemächtigen. Je nachdem, welche Quelle zum Einsatz kommt, wie die Daten beschaffen sind und ob die Daten nur einmal oder regelmäßig importiert werden sollen, wählt man unterschiedliche Strategien. Wir stellen einige davon vor und liefern Tipps und Tricks rund um den Import von Daten.<\/b><\/p>\n
Beschaffenheit und Quelle der Daten<\/b><\/p>\n
Daten können sehr unterschiedlich aussehen: So liefern Tabellen aus Textdateien oder von Excel meist eher nicht normierte Daten, während dies beim Import von Daten aus bestehenden Datenbanken schon eher der Fall ist. Auch XML-Dokumente kommen immer öfter für den Datenaustausch zum Einsatz, wobei die enthaltenen Daten nicht unbedingt besser strukturiert sein müssen als in anderen Datenformaten.<\/p>\n
Die Struktur der Daten fremder Datenquellen ist aber fast nie so gestaltet, dass Sie diese direkt in die Zieltabellen übernehmen können.<\/p>\n
Ein direkter Import ist daher nur dann möglich, wenn Sie selbst Daten aus eigenen Datenbanken konsolidieren möchten – beispielsweise, wenn Außendienstler mit den Daten ihrer Kunden unterwegs sind und zu bestimmten Zeiten, also beispielsweise kurz vor Feierabend oder dem Wochenenhde, ihre Daten zur Zentrale schicken, wo diese der zentralen Datenbank einverleibt werden sollen.<\/p>\n
Wenn Sie Daten wie Adressen aus Quellen wie Exceltabellen oder Textdateien erhalten, sind diese meist nicht normiert, was bedeutet, dass diese beispielsweise redundante Daten enthalten (für die weitere Beschreibung gehen wir davon aus, dass wir es mit einer Excel- oder Textdatei zu tun haben, die aus einer oder mehreren Zeilen besteht und einzelne Felder durch Trennzeichen wie das Semikolon oder Tabs voneinander getrennt sind).<\/p>\n
Das beste Beispiel hierfür sind die Anreden in einer Adressentabelle: Die zu importierenden Tabellen enthalten dafür meist ein eigenes Feld mit Werten wie Herr<\/b>, Herrn <\/b>oder Frau<\/b>. Unter Access würde man eine eigene Tabelle anlegen, die alle Anreden enthält, wobei jeder Anrede ein eindeutiger Schlüssel zugeordnet ist (beispielsweise 1 <\/b>für Herr<\/b>, 2 <\/b>für Frau<\/b>).<\/p>\n
In die eigentliche Adressentabelle braucht man dann im einfachsten Fall statt der Anrede nur noch den der Anrede entsprechenden Wert einzutragen. Wenn die Daten dann in Formularen oder Berichten bearbeitet oder angezeigt werden sollen, sorgen eine Verknüpfung zwischen den beiden Tabellen und eine entsprechende Abfrage dafür, dass die Adresse wieder mit dem in der Anredentabelle enthaltenen Ausdruck verknüpft wird.<\/p>\n
Lange Rede, kurzer Sinn: Die Daten aus der Quelltabelle müssen beim Import so auf die Adressen- und die Anreden-Tabelle aufgeteilt werden, dass anschließend jede Adresse über die Verknüpfung zwischen Adresse und Anrede wieder die richtige Anrede erhält.<\/p>\n
Importhäufigkeit<\/b><\/p>\n
Wichtig für den Import ist auch der Zeitpunkt: Soll dieser nur einmal geschehen, um Daten aus verschiedenen Datenquellen zu konsolidieren Oder laufen regelmäßig Daten aus verschiedenen Quellen auf, die einer Hauptdatenbank zugeführt werden sollen<\/p>\n
Bei einem einmaligen Import weniger Daten wird man sich wesentlich weniger Mühe geben, einen möglichst vollautomatischen Import zu kreieren. In diesem Fall legt man vielleicht sogar hier und da selbst Hand an, um Daten geradezubiegen.<\/p>\n
Ein Beispiel hierfür sind Adressen aus Excel-Tabellen, deren Felder zwar theoretisch einem bestimmten Datentyp entsprechen sollten (etwa Datum beim Geburtstag), aber tatsächlich nicht nur ein Datum, sondern auch noch weitere Informationen enthalten (zum Beispiel 23.1.1971 – wichtig!<\/b>).<\/p>\n
Wenn der Import jedoch regelmäßig geschieht, steckt man wahrscheinlich viel mehr Zeit und Mühe in einen sauberen und automatischen Import, bei dem man am besten nur noch eine Schaltfläche betätigen muss und die Daten dann auf einen Rutsch in die Zieltabellen gelangen.<\/p>\n
Der Import-Assistent von Access<\/b><\/p>\n
In einigen Fällen leistet der Import-Assistent von Access wertvolle Dienste – man sollte ihn einfach ausprobieren, bevor man sich an die Programmierung eines Imports macht. Außerdem lassen sich die Parameter eines Imports auch speichern, um diesen später erneut auszuführen.<\/p>\n
Die Import-Assistenten für verschiedene Importformate rufen Sie unter Access 2007 über das Ribbon-Tab Externe Daten <\/b>auf (siehe Bild 1). Bei älteren Access-Versionen finden Sie diese Befehle unter Datei|Externe Daten|Importieren… <\/b>Im dortigen Importieren<\/b>-Dialog wählen Sie die Datenquelle aus, während dies unter Access 2007 bereits über die Auswahl der entsprechenden Ribbon-Schaltfläche geschieht.<\/p>\n
![\"pic001.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic001.png\")
<\/p>\n
Bild 1: Auswahl des Import-Formats im Ribbon von Access 2007<\/span><\/b><\/p>\n Verknüpfen oder importieren<\/b><\/p>\n Je nach Vorgehensweise importieren Sie die Daten nicht gleich, sondern machen diese zunächst in Form einer verknüpften Tabelle verfügbar. In diesem Fall wählen Sie unter Access 2003 und älter nicht den Menüeintrag Datei|Externe Daten|Importieren…<\/b>, sondern Datei|Externe Daten|Tabellen verknüpfen… <\/b>aus.<\/p>\n Unter Access 2007 haben Sie noch einen Schritt länger Zeit, sich zwischen einem Import oder einer Verknüpfung zu entscheiden: Hier legen Sie dies erst im folgenden Dialog fest.<\/p>\n Das Resultat beider Vorgänge sieht indes ähnlich aus: Beim Import entsteht eine Tabelle, die Sie wie die übrigen Tabellen über das Datenbankfenster beziehungsweise den Navigationsbereich öffnen können, beim Verknüpfen erscheint ebenfalls ein neuer Eintrag neben den übrigen Tabellen.<\/p>\n Dieser ist allerdings durch ein spezielles Symbol als Verknüpfung gekennzeichnet. Auch nach dem Öffnen einer importierten oder verknüpften Tabelle lassen sich kaum Unterschiede feststellen, denn Access zeigt die Daten unabhängig von der Quelle in der für Access-Tabellen üblichen Datenblattansicht an.<\/p>\n Verknüpfte Textdateien<\/b><\/p>\n Textdateien sind ein probates Mittel, um Inhalte zwischen Anwendungen zu transferieren. XML bietet zwar aufgrund seiner Strukturierung mehr Möglichkeiten, aber nicht alle Anwendungen erlauben den Export und Import von Daten in diesem Format.<\/p>\n Nehmen wir also an, Sie erhalten Daten im Textformat, wobei jede Zeile einen Datensatz enthält und die einzelnen Felder durch Trennzeichen wie ein Semikolon oder ein Tabulator-Zeichen voneinander getrennt sind.<\/p>\n Nehmen wir weiterhin an, dass die Daten regelmäßig neu geliefert werden – beispielsweise einmal pro Tag, und zwar nachts.<\/p>\n Damit Sie die Daten bequem über eine verknüpfte Tabelle anpacken können, brauchen Sie nur einmalig eine Verknüpfung zu erstellen und können die dahinter verborgene Textdatei beliebig austauschen – Access greift immer wieder auf die richtige Textdatei zu, wenn die Verknüpfung richtig definiert und die Datei an gleicher Stelle unter gleichem Namen zu finden ist.<\/p>\n Nachdem Sie dem Importassistenten mitgeteilt haben, dass Sie eine Verknüpfung erstellen möchten und auf welcher Textdatei diese basiert, zeigt dieser die enthaltenen Daten an (siehe Bild 2).<\/p>\n Bild 2: Erstellen einer Verknüpfung mit einer Textdatei<\/span><\/b><\/p>\n <\/p>\n Im folgenden Schritt legen Sie fest, ob die erste Zeile der Datei Spaltenüberschriften enthält und welches Trennzeichen die einzelnen Feldinhalte voneinander trennt (siehe Bild 3).<\/p>\n Bild 3: Sind Spaltenüberschriften vorhanden Welches Trennzeichen wird verwendet<\/span><\/b><\/p>\n Schließlich legen Sie Details für jede einzelne Spalte fest: Welchen Feldnamen soll das Feld erhalten Welchen Datentyp besitzen die darin gespeicherten Werte Soll das Feld gegebenenfalls gar nicht in der verknüpften Tabelle erscheinen (siehe Bild 4)<\/p>\n Bild 4: Festlegen der Eigenschaften für die verknüpften Felder<\/span><\/b><\/p>\n In einem weiteren Dialog, den Sie über die Schaltfläche Weitere…<\/b> öffnen, finden Sie alle eingestellten Parameter in einer Übersicht. Den Parametersatz für diesen Import können Sie mit der Schaltfläche Speichern unter… <\/b>speichern und später wieder herstellen (siehe Bild 5).<\/p>\n Die Verknüpfung finden Sie anschließend zwischen den übrigen Tabellen der Datenbank im Datenbankfenster beziehungsweise im Navigationsbereich der Anwendung. Bild 6 zeigt einige Beispiele für verknüpfte Tabellen, so zum Beispiel mit einer Access-Tabelle (tblBeispielAccess<\/b>), einer Excel-Tabelle (tblBeispielExcel<\/b>) und einer Textdatei (tblBeispielText<\/b>) als Quelle.<\/p>\n Bild 5: Übersicht der Parameter für eine Verknüpfung mit einer Textdatei<\/span><\/b><\/p>\n Bild 6: Navigationsbereich mit einigen Verknüpfungen<\/span><\/b><\/p>\n Verknüpfung zu Textdatei erneuern<\/b><\/p>\n Möglicherweise wird die Quell-Textdatei einmal unter einem anderen Dateinamen geschickt oder sie landet in einem anderen Verzeichnis. Das Öffnen der Verknüpfung in Access führt dann zu einem Fehler, der besagt, dass Access das Objekt mit dem betreffenden Dateinamen nicht finden kann.<\/p>\n Da Sie typischerweise nicht direkt über den Eintrag im Datenbankfenster oder im Navigationsbereich auf die Daten zugreifen, sondern dies über ein Formular oder eine VBA-Routine geschieht, sollten Sie diesen Fehler abfangen und dem Benutzer die Gelegenheit bieten, die benötigte Datei erneut auszuwählen – am besten über einen Datei öffnen<\/b>-Dialog.<\/p>\n Die Prüfung auf Funktionstüchtigkeit der Verknüpfung erledigt die folgende kleine Funktion:<\/p>\n Wenn diese Funktion den Wert False<\/b> zurückliefert, konnte die Verknüpfung nicht geöffnet werden. Das kann verschiedene Gründe haben: Es kann beispielsweise gar keine Verknüpfung mit dem als Parameter angegebenen Namen vorhanden sein, oder sie ist vorhanden, aber Access kann nicht auf die angegebene Datenquelle zugreifen. Da die Funktion CheckLinkedTable<\/b> keine Fehlerursache zurückliefert, müssen Sie selbst sicherstellen, dass die Verknüpfung zumindest vorhanden ist – wenn auch ohne entsprechende Datenquelle.<\/p>\n Oberflächlich betrachtet sollte es reichen, wenn man irgendwo in den Eigenschaften der Verknüpfung den Pfad beziehungsweise den Dateinamen ändert, um diese auf eine andere Datei umzubiegen.<\/p>\n Schauen wir uns also an, wo diese Informationen liegen. Eine ganze Reihe finden wir gleich in der Systemtabelle MSysObjects<\/b>, die Sie entweder im Datenbankfenster beziehungsweise Navigationsbereich finden, wenn die Anzeige von Systemobjekten aktiviert ist.<\/p>\n Falls nicht, behelfen Sie sich schnell mit der Eingabe des folgenden Befehls im Direktfenster:<\/p>\n Im Access-Fenster finden Sie nun diese Tabelle vor, die Informationen zu allen Access-Objekten enthält. Verknüpfungen erkennen Sie hier schnell daran, dass die ersten beiden Felder Connect <\/b>und Database <\/b>gefüllt sind (siehe Bild 7).<\/p>\n Bild 7: Informationen zu verknüpften Datenquellen finden Sie in der Systemtabelle MSysObjects.<\/span><\/b><\/p>\n Für unsere Zwecke ist das erste Feld Connect <\/b>besonders interessant. Es enthält die Verbindungszeichenfolge, die für unsere Textdatei so aussieht:<\/p>\n Im Feld Database <\/b>ist der Pfad der Quelldatei gespeichert, und ForeignName <\/b>enthält den Dateinamen, wobei der Punkt zwischen Name und Endung durch eine Raute (#<\/b>) ersetzt wurde. Das Feld Name <\/b>enthält den Namen der Verknüpfung im Navigationsbereich.<\/p>\n Also, warum ändern wir nicht einfach die entsprechenden Inhalte dieser Tabelle, wenn eine Quelldatei einen neuen Dateinamen erhält Ganz einfach: Die Systemtabellen von Access sind sämtlich schreibgeschützt.<\/p>\n Wir kommen jedoch über das TableDef<\/b>-Objekt an die Definition einer Verknüpfung heran. Den Inhalt der beiden Felder Connect <\/b>und Database <\/b>liefert beispielsweise die folgende Anweisung, wenn Sie diese im Direktfenster absetzen:<\/p>\n Auch den Dateinamen können Sie abfragen, und zwar über die Eigenschaft SourceTableName<\/b>:<\/p>\n Leider lässt sich diese Eigenschaft nicht per VBA einstellen. Der Versuch, dies zu tun, ruft einen Fehler mit der Nummer 3268 <\/b>und dem Meldungstext Die Eigenschaft kann nicht festgelegt werden, wenn das Objekt Teil einer Auflistung ist <\/b>auf den Plan.<\/p>\n Genau genommen will Access uns damit sagen, dass die Eigenschaft für bereits bestehende Tabellen schreibgeschützt ist.<\/p>\n Wie also können wir den Dateinamen einer Quelldatei ändern Ganz einfach: Wir erstellen einfach ein neues TableDef<\/b>-Objekt, weisen diesem die Kombination aus vorhandenen und neuen Eigenschaften zu, löschen das Original-TableDef<\/b>-Objekt und geben der neu erstellten Verknüpfung den Namen der ursprünglichen Verknüpfung. Diese Aufgabe erledigt die Prozedur aus Listing 1.<\/p>\n Listing 1: Diese Funktion ändert Pfad und Name der Quelldatei einer Verknüpfung zu einer Textdatei.<\/p>\n Die Routine erwartet als Parameter den Namen der Verknüpfung mit der Textdatei. Sie teilt dem Benutzer zunächst mit, dass er die Quelle für die Verknüpfung neu auswählen muss, und öffnet dann einen Dialog zum Auswählen der neuen Quelldatei (die dazu verwendete Funktion OpenFileName <\/b>finden Sie im Modul mdlTools <\/b>der Beispieldatenbank).<\/p>\n Wenn der Benutzer eine Datei ausgewählt hat, teilt die Prozedur deren Bezeichnung in Dateipfad und Dateiname auf.<\/p>\n Sie erzeugt einen Verweis auf die aktuelle Datenbank und speichert diesen in der Variablen db<\/b>. Diese ermöglicht wiederum den Zugriff auf die TableDef<\/b>-Objekte der Datenbank, wobei wir erstmal einen Verweis auf die zu ändernde Verknüpfung in tdfOld <\/b>speichern.<\/p>\n Nun gilt es, die Connect<\/b>-Zeichenkette so zu ändern, dass diese für den Parameter Database <\/b>nicht mehr das vorherige, sondern das neue Verzeichnis enthält. Dies könnte man mit Zeichenkettenfunktionen erledigen, es geht aber auch eleganter.<\/p>\n Dabei machen wir uns zunutze, dass die einzelnen Name-Wert-Paare der Connect<\/b>-Zeichenkette durch Semikola voneinander getrennt sind. Mit der Split<\/b>-Funktion können wir so leicht das Array strConnect() <\/b>mit den einzelnen Name-Wert-Paaren aus der Connect<\/b>-Eigenschaft des TableDef<\/b>-Objekts tdfOld <\/b>füllen.<\/p>\n Die folgende Schleife durchläuft alle Elemente des Arrays, die ja wiederum über die Split<\/b>-Funktion aufgeteilt werden können – nur, dass diesmal das Gleichheitszeichen (=<\/b>) als Trennzeichen dient.<\/p>\n Dort, wo das Element vor dem Gleichheitszeichen den Wert Database<\/b> besitzt, ändern wir den Wert hinter dem Gleichheitszeichen in das Verzeichnis der neu ausgewählten Datei.<\/p>\n Dann erstellt die CreateTableDef<\/b>-Methode ein neues TableDef<\/b>-Objekt und weist diesem mit ihrem ersten Parameter den Namen zu, der aus dem Namen der anzupassenden Verknüpfung und dem Anhängsel _TEMP <\/b>besteht (also beispielsweise tblBeispielText_TEMP<\/b>).<\/p>\n Der Connect<\/b>-Eigenschaft weist die Prozedur das mit der Join<\/b>-Funktion wieder in eine Zeichenkette zurückverwandelte Array aus strConnect() <\/b>zu. Da das neue TableDef<\/b>-Objekt noch nicht gespeichert wurde, können wir an dieser Stelle gleich noch die SourceTableName<\/b>-Eigenschaft mit dem Dateinamen füllen.<\/p>\n Nun hängen wir das noch im freien Raum schwebende TableDef<\/b>-Objekt an die TableDefs<\/b>-Auflistung der aktuellen Datenbank an. Schließlich löschen wir noch die ursprüngliche Verknüpfung und ändern den Namen der neuen Verknüpfung entsprechend.<\/p>\n Dieses Procedere ist übrigens nur notwendig, wenn sich der Dateiname der Datenquelle geändert hat. Wenn diese bloß verschoben wurde, reicht es aus, per Connect<\/b>-Eigenschaft den neuen Pfad anzugeben und die Verknüpfung mit RefreshLink <\/b>zu aktualisieren.<\/p>\n Weitere Verarbeitung der Daten<\/b><\/p>\n Normalerweise liegen die Daten nach dem Verknüpfen oder Importieren noch nicht in der Form vor, in der Sie diese benötigen. Aber Sie haben schon einen großen Schritt geschafft: Die Daten liegen, egal ob in einer verknüpften oder importieren Tabelle, in einer Form vor, auf die Sie mit den Access-eigenen Mitteln zugreifen können. Nun haben Sie die Qual der Wahl:<\/p>\n![\"pic002.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic002.png\")
<\/p>\n![\"pic003.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic003.png\")
<\/p>\n![\"pic004.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic004.png\")
<\/p>\n![\"pic005.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic005.png\")
<\/p>\n![\"pic006.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic006.png\")
<\/p>\nPublic Function CheckLinkedTable(strTable As _\r\n String) As Boolean\r\n Dim db As DAO.Database\r\n Dim rst As DAO.Recordset\r\n Set db = CurrentDb\r\n On Error Resume Next\r\n Set rst = db.OpenRecordset("SELECT * FROM " _\r\n & strTable, dbOpenDynaset)\r\n If Err.Number = 0 Then\r\n CheckLinkedTable = True\r\n Else\r\n CheckLinkedTable = False\r\n End If\r\n rst.Close\r\n Set rst = Nothing\r\n Set db = Nothing\r\nEnd Function<\/pre>\nDoCmd.OpenTable "MSysObjects"<\/pre>\n
![\"pic007.png\"](\"..\/fileadmin\/_temp_\/2010_02\/ImportierenUndVerknuepfen-web-images\/pic007.png\")
<\/p>\nText;DSN=_Beispiel Verknüpfungsspezifikation;FMT=Delimited;HDR=NO;IMEX=2;CharacterSet=1252;ACCDB=YES;<\/pre>\n
CurrentDB.TableDefs("tblBeispielText").Connect\r\nText;DSN=_Beispiel Verknüpfungsspezifikation;\r\nFMT=Delimited;HDR=NO;IMEX=2;CharacterSet=1252;\r\nACCDB=YES;DATABASE=C:\\Daten\\Fachartikel\\AccessImUnternehmen\\2010\\02\\ImportierenUndVerknüpfen<\/pre>\n CurrentDb.TableDefs("tblBeispielText").\r\nSourceTableName\r\nBeispiel.txt<\/pre>\nPublic Function ReconnectLink(strTable As String) As Boolean\r\n Dim db As DAO.Database\r\n Dim tdfOld As DAO.TableDef\r\n Dim tdfNew As DAO.TableDef\r\n Dim strConnect() As String\r\n Dim i As Integer\r\n Dim strFilePathAndName As String\r\n Dim strFilepath As String\r\n Dim strFileExtension As String\r\n Dim strFileName As String\r\n MsgBox "Die Datenquelle der Tabelle ''" & strTable & "'' wurde nicht gefunden. Bitte wählen Sie\r\n im folgenden Dialog die Quelldatei aus."\r\n strFilePathAndName = OpenFileName(CurrentProject.Path, "Quelldatei auswählen",\r\n "Quelldatei (*." & strFileExtension & ")|Alle Dateien (*.*))")\r\n If Len(strFilePathAndName) > 0 Then\r\n strFileName = Mid(strFilePathAndName, InStrRev(strFilePathAndName, "\\") + 1)\r\n strFilepath = Mid(strFilePathAndName, 1, InStrRev(strFilePathAndName, "\\"))\r\n Set db = CurrentDb\r\n Set tdfOld = db.TableDefs(strTable)\r\n strConnect = Split(tdfOld.Connect, ";")\r\n For i = LBound(strConnect) To UBound(strConnect)\r\n Select Case Split(strConnect(i), "=")(0)\r\n Case "Database"\r\n strConnect(i) = Split(strConnect(i), "=")(0) & "=" & strFilepath\r\n End Select\r\n Next i\r\n Set tdfNew = db.CreateTableDef(strTable & "_TEMP")\r\n tdfNew.Connect = Join(strConnect, ";")\r\n tdfNew.SourceTableName = strFileName\r\n db.TableDefs.Append tdfNew\r\n db.TableDefs.Delete strTable\r\n db.TableDefs(strTable & "_TEMP").Name = strTable\r\n End If\r\nEnd Function<\/pre>\n