![\"Verweis](\"..\/tl_files\/images\/pic_215_001.png\")
<\/a><\/p>\nBild 1: Verweis auf die neue DAO-Bibliothek<\/p>\n
Struktur von Anlage-Feldern<\/h2>\n
Bevor wir uns mit VBA an das Lesen und Bearbeiten eines Anlage-Feldes heranwagen, schauen wir uns die zugrunde liegende Struktur an. Am besten gelingt dies, wenn Sie eine neue Abfrage erstellen und eine Tabelle als Datenherkunft hinzufügen, die ein Anlage-Feld enthält. Dies sieht etwa wie in Bild 2 aus.<\/p>\n
Bild 2: Das Anlage-Feld im Abfrageentwurf<\/p>\n Wechseln Sie zur Datenblattansicht dieser Abfrage, erkennen Sie, dass jeder Datensatz für jede enthaltene Anlage je einmal erscheint (siehe Bild 3). Der Datensatz mit dem Wert 3 <\/b>im Feld DateiID<\/b> enthält beispielsweise fünf Dateien im Anlagefeld. Dementsprechend erscheint der Datensatz fünf Mal, jeweils mit einer anderen Anlage.<\/p>\n Bild 3: Abfrage, die jeden Datensatz entsprechend der Anzahl der enthaltenen Anlagen anzeigt.<\/p>\n Dies weist darauf hin, dass die in Anlage-Feldern gespeicherten Daten möglicherweise in einer weiteren, für Benutzeraugen nicht sichtbaren, Tabelle gespeichert werden. In der Tat findet sich in einer Datenbank, nachdem Sie eine Tabelle mit einem Anlage-Feld hinzugefügt haben, eine zusätzliche Tabelle mit einem kryptischen Namen wie f_AE1ADE703D174BDAADDFFEBC068B79C8_Test<\/b> (diese lässt sich allerdings nicht öffnen).<\/p>\n Und wenn die Daten des Anlage-Feldes schon in einer verknüpften Tabelle landen, finden wir sicher auch unter DAO einen alternativen Weg für den Zugriff auf diese Daten.<\/p>\n Wenn Sie die Daten nur lesen möchten, aber nicht bearbeiten, können Sie direkt mit einem Recordset auf Basis der oben beschriebenen Abfrage arbeiten. Für die VBA-Prozeduren legen Sie im VBA-Editor mit Einfügen|Modul <\/b>ein neues Modul namens mdlAnlagen <\/b>an.<\/p>\n Fügen Sie dann die Prozedur mit dem Code aus Listing 1 hinzu. Die Prozedur deklariert und erstellt zunächst die benötigten Objekte, also ein Database<\/b>-Objekt namens db <\/b>und ein Recordset<\/b>-Objekt namens rst <\/b>und durchläuft dann alle Datensätze der Abfrage qryAnlagen <\/b>in einer Do While<\/b>-Schleife.<\/p>\n Listing 1: Einfacher lesender Zugriff über eine Abfrage mit allen Feldern der Tabelle mit dem Anlage-Feld<\/p>\n Dabei gibt eine Debug.Print<\/b>-Anweisung die Inhalte aller Felder im Direktbereich aus. Da der Inhalt des Anlagefeldes selbst, also die Datei, als Zeichenfolge ausgegeben wird, haben wir die Anzahl der Zeichen auf die ersten 100 <\/b>begrenzt (Left(…)<\/b>). Das Ergebnis finden Sie in Bild 4.<\/p>\n Bild 4: Inhalt eines Anlagefeldes<\/p>\n Die Namen der Felder können Sie dabei einfach der Datenblattansicht der Abfrage qryAnlagen<\/b> entnehmen – oder Sie fragen diese etwa mit folgenden Ausdrücken im Direktfenster ab:<\/p>\n Nun stellt sich allerdings die Frage, ob wir auch auf die Datei zugreifen und diese etwa speichern können. Aber mit welcher Methode Zunächst einmal nutzen wir eines der aktualisierten Objekte der neuen DAO-Bibliothek, und zwar Field2<\/b>.<\/p>\n Deklarieren Sie in der Prozedur von oben eine entsprechende Variable dieses Typs namens fld<\/b>. Dann weisen Sie dieser Variablen innerhalb der Schleife den Inhalt des Feldes tblDateien.Datei.Filedata <\/b>zu, also des für das Speichern der Datei zuständigen Feldes innerhalb der verborgenen, verknüpften Tabelle.<\/p>\n Das Objekt des Typs Field2 <\/b>liefert gegenüber der älteren Variante Field <\/b>zum Beispiel die neue Methode SaveToFile<\/b>, die wir in diesem Fall einsetzen um den Inhalt des Feldes in einer als Parameter angegebenen Datei zu speichern. Den angepassten Code der Prozedur finden Sie in gekürzter Form in Listing 2.<\/p>\n Listing 2: Diese Prozedur durchläuft alle Anlagen und speichert diese auf der Festplatte.<\/p>\n Nun haben wir ja bereits ermittelt, dass die Anlagen in einer eigenen Tabelle gespeichert werden. Können wir auf die Elemente dieser Tabelle auch mit einem eigenen Recordset zugreifen Ja, das ist möglich.<\/p>\n Dazu deklarieren Sie zunächst eine weitere Recordset<\/b>-Variable, die aber dem Typ Recordset2 <\/b>entsprechen muss. Dieser weisen Sie dann wiederum den Value<\/b>-Wert des Anlage-Feldes des ersten Recordsets zu. Wir wollen und den Aufbau des Recordsets einmal ansehen und lesen dazu zunächst alle Feldnamen und Felddatentypen dieses Recordsets aus, nach dem wir es referenziert haben.<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\n<\/a><\/p>\nNur lesen<\/h2>\n
Public Sub <\/span>LesenderZugriff()\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"qryAnlagen\", dbOpenDynaset)\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Debug.Print<\/span> rst!DateiID, rst(\"tblDateien.Datei.FileName\"), rst(\"tblDateien.Datei.FileType\"), _\r\n Left<\/span>(rst(\"tblDateien.Datei.FileData\"), 100)\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\n CurrentDb.QueryDefs(\"qryAnlagen\").Fields(1).Name\r\ntblDateien.Datei.FileData<\/pre>\n
Public Sub <\/span>LesenderZugriff()\r\n Dim <\/span>fld As <\/span>DAO.Field2\r\n ...\r\n Do While<\/span> Not<\/span> rst.EOF\r\n Set<\/span> fld = rst.Fields(\"tblDateien.Datei.Filedata\")\r\n fld.SaveToFile CurrentProject.Path & \"\\test_\" & rst(\"tblDateien.Datei.Filename\")\r\n rst.MoveNext<\/span>\r\n Loop<\/span>\r\nEnd Sub<\/span><\/pre>\nAnlagen in eigenem Recordset<\/h2>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Access [basics]<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 400 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t