<\/p>\n
Zum Kopieren von Datensätzen aus einer Tabelle in die nächste gibt es verschiedene Varianten. Zunächst einmal gibt es die grobe Aufteilung von Methoden, die rein mit den Befehlen der DAO-Bibliothek auskommen – also solche, die ein Recordset referenzieren oder anlegen und dann die einzelnen Felder füllen. Dann stehen noch die Aktionsabfragen von SQL zur Verfügung, die wiederum über eine Methode der DAO-Bibliothek aufgerufen werden, aber ganz andere Möglichkeiten bieten als AddNew, Edit und Update. Und dann kommen mit Access 2007 noch die Anlagefelder hinzu, die eine eigene hintergelagerte Tabelle zum Speichern ihrer Daten verwenden. Der vorliegende Artikel stellt die verschiedenen Möglichkeiten zum Kopieren von Datensätzen mit Anlagefeldern vor.<\/b><\/p>\n
Grundsätzlich gilt beim Kopieren von Datensätzen wie bei allen anderen Operationen, die das ändern von Daten zum Ziel haben: Das direkt Absetzen von SQL-Anweisungen wie INSERT INTO<\/b>, UPDATE<\/b>, SELECT INTO <\/b>oder DELETE <\/b>sind den DAO-Methoden AddNew<\/b>, Edit<\/b>, Update <\/b>und Delete <\/b>vorzuziehen.<\/p>\n
Dies gilt insbesondere, wenn es sich um mehrere änderungen gleichzeitig handelt – die SQL-Anweisungen liefern dort schlicht eine viel bessere Performance. Allerdings bergen hier die mit Access 2007 eingeführten neuen Datentypen wie das mehrwertige Feld oder das Anlagefeld spezielle Anforderungen in sich.<\/p>\n
Interessant wird dies, wenn Anlagefelder hinzukommen: Diese lassen sich nämlich nicht so einfach samt Inhalt kopieren. Aber sehen Sie selbst …<\/p>\n
Beispieltabellen<\/b><\/p>\n
Als Beispielmaterial für diesen Beitrag haben wir zwei Tabellen erstellt – eine namens tblBeispielanlagen <\/b>und eine namens tblBeispielanlagenZiel<\/b>. Beide sind genau gleich aufgebaut. Den Entwurf der Tabelle tblBeispielanlagen <\/b>finden Sie in Bild 1.<\/p>\n
![\"Beispieltabelle](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_001.png\")
<\/p>\n
Bild 1: Beispieltabelle mit Anlagefeld<\/span><\/b><\/p>\n Der erste Datensatz dieser Tabelle sieht wie in Bild 2 aus. Er enthält lediglich eine Anlage namens pic001.png<\/b>.<\/p>\n Bild 2: Anlagefeld mit einer gespeicherten Datei<\/span><\/b><\/p>\n Wir fügen noch einen zweiten Datensatz mit zwei Anlagen namens pic002.png <\/b>und pic003.png<\/b> hinzu sowie einen Datensatz, dessen Anlagefeld keine Anlage enthält. Die Tabelle sieht dann in der Datenblattansicht wie in Bild 3 aus.<\/p>\n Bild 3: Tabelle mit allen Beispieldatensätzen<\/span><\/b><\/p>\n Diese drei Datensätze wollen wir nun auf verschiedene Arten in die Tabelle tblBeispielanlagenZiel <\/b>kopieren.<\/p>\n Anlagefeld per DAO kopieren<\/b><\/p>\n Starten wir mit einem etwas naiven Versuch, bei dem wir die Prozedur aus Listing 1 ausprobieren. Hier definieren wir zwei Recordset<\/b>-Objekte, die wir jeweils mit einem Verweis auf alle Datensätze der Tabellen tblBeispielanlagen <\/b>und tblBeispielanlagenZiel <\/b>versehen. In einer Do While<\/b>-Schleife über alle Datensätze der Tabelle tblBeispielanlegen <\/b>versuchen wir, jeweils einen neuen Datensatz in der Tabelle tblBeispielanlagenZiel<\/b> zu erstellen und die beiden Felder Beispieltext <\/b>und Beispielanlage <\/b>der Quelltabelle zu füllen.<\/p>\n Listing 1: Naiver Versuch, ein Recordset samt Anlagefeld zu kopieren<\/span><\/b><\/p>\n Dies resultiert allerdings gleich bei der Zuweisung von rst!Beispielanlage <\/b>zum entsprechenden Zielfeld in dem Fehler aus Bild 4: Die Methode “Collect“ für das Objekt “Recordset2“ ist fehlgeschlagen<\/b>. Wenn Sie weder das Objekt Recordset2 <\/b>noch die Methode Collect <\/b>kennen, sind Sie vermutlich nicht allein. Das Objekt Recordset2 <\/b>ist der Nachfolger des Recordset<\/b>-Objekts. Es wird stillschweigend statt des Recordset<\/b>-Objekts verwendet, wenn die Bibliothek Microsoft Office x.0 Access Database Object Library <\/b>verwendet wird. Dies können Sie leicht ermitteln, indem Sie einen Haltepunkt in der Prozedur AnlagePerDAO <\/b>hinter den Set rst…<\/b>-Anweisungen setzen und dann im Direktfenster folgende Anweisung absetzen:<\/p>\n Bild 4: Fehlermeldung beim ersten Kopierversuch<\/span><\/b><\/p>\n Nun scheint das schlichte Kopieren des Inhalts des Anlagefeldes nicht zu gelingen. Warum aber funktioniert dies nicht Der Grund wird etwas offensichtlicher, wenn Sie eine neue Abfrage erstellen und eine Tabelle mit einem Anlagefeld in die Abfrage ziehen. Das Anlagefeld liefert noch einige weitere, scheinbar untergeordnete Felder, was im Abfrageentwurf wie in Bild 5 aussieht.<\/p>\n Bild 5: Anlagefeld im Entwurf einer Abfrage<\/span><\/b><\/p>\n In einem zweiten Anlauf entwerfen wir die Prozedur AnlagePerDAO_II<\/b>, um die Datensätze der Tabelle tblBeispielanlagen <\/b>samt dem Inhalt des Anlagefeldes in die Tabelle tblBeispielanlagenZiel <\/b>zu kopieren (s. Listing 2).<\/p>\n <\/p>\n Listing 2: Dieser Versuch, Datensätze samt Anlagen zu kopieren, ist erfolgreich.<\/span><\/b><\/p>\n Diese Prozedur definiert zwei weitere Recordset<\/b>-Objekte, diesmal explizit vom Typ Recordset2 <\/b>– nämlich rstAnlagen <\/b>und rstAnlagenZiel<\/b>. Sie erstellt wie zuvor zwei Recordsets auf Basis der Quelltabelle tblBeispielanlagen <\/b>und der Zieltabelle tblBeispielanlagenZiel<\/b>. Dann beginnt sie, wie auch die vorherige Version, mit dem Durchlaufen aller Datensätze dieses Recordsets. Sie legt mit der AddNew<\/b>-Methode einen neuen Datensatz in der Tabelle tblBeispielanlagenZiel <\/b>an und füllt das Feld Beispieltext <\/b>mit dem Inhalt des gleichnamigen Felds der Quelltabelle. Dann wird es interessant: Die Prozedur öffnet ein weiteres Recordset und füllt es mit einem Verweis auf die Value<\/b>-Eigenschaft des Anlagefeldes der Tabelle tblBeispielanlagen <\/b>beziehungsweise des Recordsets rstAnlagen<\/b>. Dieses Recordset können Sie genauso durchlaufen wie ein herkömmliches Recordset – und dabei auf die folgenden Felder zugreifen:<\/p>\n Wir benötigen in diesem Fall allerdings nur die beiden Felder FileData <\/b>und FileName<\/b>. Die übrigen sind anderen Anwendungsfällen wie etwa dem Einsatz in Webdatenbanken vorbehalten und sind hier mit dem Wert Null <\/b>gefüllt.<\/p>\n Die Prozedur legt also für jeden Datensatz des in der Value<\/b>-Eigenschaft des Anlagefeldes enthaltenen Recordsets einen neuen Datensatz im Recordset der Value<\/b>-Eigenschaft des Anlagefeldes der Zieldatenbank an. Dabei trägt sie die Werte der beiden Felder FileData <\/b>und FileName <\/b>ein und speichert dann den entsprechenden Datensatz mit der Update<\/b>-Methode.<\/p>\n Nachdem die Prozedur alle Anlagen kopiert hat, speichert sie den eigentlichen Datensatz ebenfalls mit der Update<\/b>-Methode und wendet sich dem nächsten Datensatz der Tabelle tblBeispielanlagen <\/b>zu.<\/p>\n Das hat funktioniert: Alle Datensätze der Tabelle tblBeispielanlagen <\/b>sind in der Tabelle tblBeispielanlagenZiel <\/b>gelandet (s. Bild 6).<\/p>\n Bild 6: Anlagefelder – erfolgreich kopiert<\/span><\/b><\/p>\n Anlagefelder kopieren per SQL<\/b><\/p>\n Nun kommen wir zur Alternative zum Kopieren per DAO: Das Kopieren per SQL-Anweisung. Auch hier starten wir erstmal auf die naive Weise, und zwar mit der Prozedur aus Listing 3.<\/p>\n Listing 3: Erster Versuch, Daten mit Anlagefeld per INSERT INTO zu kopieren<\/span><\/b><\/p>\n Dies liefert umgehend eine Fehlermeldung mit konkreten Anweisungen, was nicht funktioniert (s. Bild 7): SELECT * kann nicht in einer INSERT INTO-Abfrage verwendet werden, wenn die Quell- oder Zieltabelle ein mehrwertiges Feld enthält<\/b>. Ein mehrwertiges Feld Anscheinend werden Anlagefelder also in den Fehlermeldungen mit mehrwertigen Feldern gleichgesetzt. Kein Problem: Greifen wir also in der SQL-Abfrage, die mit der Execute<\/b>-Methode ausgeführt wird, mit den Feldnamen Beispielfeld <\/b>und Beispielanlage <\/b>auf statt des Sternchens (*<\/b>) als Platzhalter für alle Felder auf die zu kopierenden Felder zu:<\/p>\n Bild 7: Fehlermeldung beim Versuch, Datensätze mit Anlagefeld per SELECT * zu referenzieren<\/span><\/b><\/p>\n Das Ergebnis dieses zweiten Versuchs finden Sie in Bild 8. Scheinbar mag Access es auch nicht, wenn man versucht, Anlagefelder mit INSERT INTO <\/b>zu füllen. Vorhin haben wir ja mithilfe eines Abfrageentwurfs aufgezeigt, dass ein Anlagefeld weitere Unterfelder enthält. Vielleicht können wir darüber die Inhalte der mehrwertigen Felder kopieren Probieren wir es, indem wir die INSERT INTO<\/b>-Anweisung durch die folgende Version ersetzen:<\/p>\n Bild 8: INSERT INTO-Abfragen auf Anlagefelder scheinen generell nicht beliebt zu sein …<\/span><\/b><\/p>\n Aber auch dies hilft nicht weiter – die Fehlermeldung lautet diesmal wie folgt:<\/p>\n Dabei kann wohl das Feld FileData <\/b>in der Quelltabelle gefunden werden, jedoch nicht in der Zieltabelle.<\/p>\n Eine Möglichkeit bleibt uns noch: Wir können ja noch die Zielfelder definieren und Access mit der Nase auf das Zielfeld Beispielanlagen.FileData <\/b>stoßen – wie in dieser Variante:<\/p>\n Dies liefert allerdings die folgende Fehlermeldung:<\/p>\n Das ist immerhin ein Hinweis, dass man den Inhalt eines Anlagefeldes per INSERT INTO <\/b>kopieren kann – wenn auch nur einzeln und nicht in Zusammenhang mit anderen Feldern.<\/p>\n INSERT INTO in zwei Schritten<\/b><\/p>\n Was bleibt uns anderes übrig, als auch hier den Kopiervorgang auf zwei Teile aufzusplitten Probieren wir es also mit einer Prozedur wie der aus Listing 4.<\/p>\n Listing 4: Kopieren der Basisdaten und dann der Anlagefelder<\/span><\/b><\/p>\n Hier kopieren wir zunächst nur die Felder BeispielID <\/b>und Beispieltext <\/b>aus der Tabelle tblBeispielanlagen <\/b>in die entsprechenden Felder der Tabelle tblBeispielanlagenZiel<\/b>. Die zweite INSERT INTO-Anweisung soll dann die Inhalte der Unterfelder des Anlagefeldes in die entsprechenden Felder der Tabelle tblBeispielanlagenZiel <\/b>kopieren.<\/p>\n Und da wir es im Rahmen dieses Beitrags ja schon gewohnt sind, uns mithilfe von Fehlermeldungen Schritt für Schritt zum Ziel zu hangeln, geht es gleich weiter: Bild 9 zeigt die Fehlermeldung, die beim Ausführen der obigen Anweisung ausgelöst wird.<\/p>\n Bild 9: Der Sinn dieser Fehlermeldung erschließt sich nicht auf den ersten Blick …<\/span><\/b><\/p>\n Diese kennen Sie vielleicht, wenn Sie einmal versucht haben, eine Abfrage wie etwa in Bild 10 zu erstellen.<\/p>\n Bild 10: Solche eine Abfrage löst den genannten Fehler aus.<\/span><\/b><\/p>\n Diese Abfrage soll alle Datensätze der Tabelle tblKunden <\/b>liefern, auch die, für die kein verknüpfter Datensatz in der Tabelle tblBestellungen <\/b>vorliegt, und gleichzeitig noch die mit der Tabelle tblBestellungen <\/b>verknüpfen Datensätze der Tabelle tblBestelldetails<\/b>.<\/p>\n In diesem Beispiel würden Sie erst eine Abfrage erstellen, welche zwei der drei Tabellen zusammenfasst und diese dann in einer zweiten Abfrage mit der dritten Tabelle zusammenbringen.<\/p>\n Warum aber erscheint die Fehlermeldung bezüglich mehrdeutiger Verknüpfungen – wir verwenden doch nur eine einzige Beziehung zwischen den beiden betroffenen Tabellen<\/p>\n Allerdings nur oberflächlich: Unter der Haube, das haben wir weiter oben bereits erkannt, verwendet Access für Anlagefelder eine eigene Tabelle, welche die Anlagen und ihre Metadaten speichert. Im vorliegenden Fall fassen wir nun die Daten der Quelltabelle tblBeispielanlagen<\/b> als Unterabfrage zusammen und vergeben den Alias T1 dafür. Damit können wir dann die eine Abfrage erstellen, welche die Anlage-Datensätze von der einen in die andere Tabelle überträgt (s. Bild 11):<\/p>\n![\"Anlagefeld](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_002.png\")
<\/p>\n![\"Tabelle](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_003.png\")
<\/p>\nPublic Sub <\/span>AnlagePerDAO()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstZiel As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblBeispielanlagen\", dbOpenDynaset)\r\n Set<\/span> rstZiel = db.OpenRecordset(\"SELECT * FROM tblBeispielanlagenZiel\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n With<\/span> rstZiel\r\n .AddNew<\/span>\r\n !Beispieltext = rst!Beispieltext\r\n !Beispielanlage = rst!Beispielanlage\r\n .Update\r\n End With<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_004.png\")
<\/p>\n Typename(rst)\r\nRecordset2<\/pre>\n
![\"Anlagefeld](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_005.png\")
<\/p>\nPublic Sub <\/span>AnlagePerDAO_II()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>rstZiel As <\/span>DAO.Recordset\r\n Dim <\/span>rstAnlagen As <\/span>DAO.Recordset2\r\n Dim <\/span>rstAnlagenZiel As <\/span>DAO.Recordset2\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblBeispielanlagen\", dbOpenDynaset)\r\n Set<\/span> rstZiel = db.OpenRecordset(\"SELECT * FROM tblBeispielanlagenZiel\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n With<\/span> rstZiel\r\n .AddNew<\/span>\r\n !Beispieltext = rst!Beispieltext\r\n Set<\/span> rstAnlagen = rst.Fields(\"Beispielanlage\").Value\r\n Set<\/span> rstAnlagenZiel = rstZiel.Fields(\"Beispielanlage\").Value\r\n Do While<\/span> Not<\/span> rstAnlagen.EOF\r\n rstAnlagenZiel.AddNew<\/span>\r\n rstAnlagenZiel!FileData = rstAnlagen!FileData\r\n rstAnlagenZiel!FileName = rstAnlagen!FileName\r\n rstAnlagenZiel.Update\r\n rstAnlagen.MoveNext<\/span>\r\n Loop<\/span>\r\n .Update\r\n End With<\/span>\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n\n
![\"Anlagefelder](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_006.png\")
<\/p>\nPublic Sub <\/span>AnlagePerSQL()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblBeispielanlagenZiel SELECT * FROM tblBeispielanlagen\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Fehlermeldung](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_007.png\")
<\/p>\nINSERT INTO tblBeispielanlagenZiel \r\nSELECT Beispielfest, Beispielanlage \r\nFROM tblBeispielanlagen<\/pre>\n
![\"INSERT](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_008.png\")
<\/p>\nINSERT INTO tblBeispielanlagenZiel \r\nSELECT Beispieltext, \r\nBeispielanlage.FileData, \r\nBeispielanlage.FileName \r\nFROM tblBeispielanlagen<\/pre>\n
<b>Die INSERT INTO-Anweisung enthält folgenden unbekannten Feldnamen: ''FileData''. Stellen Sie sicher, \r\ndass Sie den Namen richtig eingegeben haben, und führen Sie dann die Operation nochmals aus<\/b>.<\/pre>\n
INSERT INTO tblBeispielanlagenZiel(\r\n Beispieltext, \r\n Beispielanlage.FileData, \r\n Beispielanlage.FileName\r\n) SELECT Beispieltext, \r\nBeispielanlage.FileData, \r\nBeispielanlage.FileName \r\nFROM tblBeispielanlagen<\/pre>\n
Eine INSERT INTO-Abfrage mit einem mehrwertigen Feld darf kein weiteres Feld enthalten.<\/pre>\n
Public Sub <\/span>AnlagePerSQL_II()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Set<\/span> db = CurrentDb\r\n db.Execute \"INSERT INTO tblBeispielanlagenZiel SELECT BeispielID, Beispieltext " _\r\n "FROM tblBeispielanlagen\", dbFailOnError\r\n db.Execute \"INSERT INTO tblBeispielanlagenZiel(Beispielanlage.FileData, Beispielanlage.FileName) \" _\r\n & \"SELECT Beispielanlage.FileData, Beispielanlage.FileName FROM tblBeispielanlagen \" _\r\n & \"WHERE tblBeispielanlagen.BeispielID = tblBeispielanlagenZiel.BeispielID\", dbFailOnError\r\n Set<\/span> db = Nothing\r\nEnd Sub<\/span><\/pre>\n![\"Der](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_009.png\")
<\/p>\n![\"Solche](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_010.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2014_02\/pic_930_011.png\")
<\/p>\n