Warum noch ein Access-Buch?
Für wen ist das Buch?
Jetzt bestellen
+ direkter Download des eBooks!
Nur EUR 59,95!
Fehler gefunden?
Bitte melden!
Wünsche an das Buch?
Her damit!
Was denken die Leser über dieses Buch?
Lesen Sie aktuelle Rezensionen!
Kapitel des noch nicht veröffentlichten Buchs zum Downloaden, Probelesen und Kommentieren
Beispieldatenbanken
Zusätzliches Material

Das Buch im HTML-Format

Für unbestimmte Zeit bieten Addison-Wesley und André Minhorst den kompletten Inhalt des Buchs als Download an. Schauen Sie rein und informieren Sie sich über den Inhalt! Und wenn Ihnen das Buch nützlich erscheint und Sie glauben, dass Sie etwas gelernt haben oder durch das Gelesene sogar etwas Zeit und somit Geld bei Ihrer Arbeit einsparen konnten, können Sie sich ja beim Autor und beim Verlag revanchieren - beispielsweise durch den Kauf dieses Buchs.

Am schönsten wäre es natürlich, wenn Sie das Buch direkt hier bestellen - Sie erhalten das Buch dann direkt vom Verlag, und der Autor und Verlag haben dann noch mehr davon, als wenn Sie es anderswo kaufen.

Danke für Ihr Interesse!

9.9.6 Dateien aus einem Attachment-Feld auf der Festplatte speichern

9.9.7 Datei in Attachment-Feldern speichern

Andersherum funktioniert dies auch: Die Methode LoadFromFile kennt ebenfalls nur den Parameter FileName. Die Routine AnlageImportieren erwartet zusätzlich die Nummer (ID) des Datensatzes, zu dessen Attachment-Feld die Datei hinzugefügt werden soll.

Beim Speichern einer Datei in einem Attachment-Feld ist grundsätzlich zu beachten, dass Sie sowohl den Datensatz im Recordset des Hauptdatensatzes als auch den des im Attachment-Feld verborgenen Recordsets zum Bearbeiten vorbereiten - also entweder mit AddNew oder Edit - und die Änderung anschließend mit Update übernehmen.

Im vorliegenden Fall soll ein neues Attachment hinzugefügt werden, also wird das übergeordnete Recordset mit Edit und das Attachment-Recordset mit AddNew für das Importieren der Datei vorbereitet.

Public Sub AttachmentImportieren(strDatei As String, lngDateiID As Long)

    Dim db As DAO.Database
    Dim rst As Recordset2
    Dim rstAttachments As Recordset2
    Dim fld As Field2
    
    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT * FROM tblDateien " _
        & "WHERE DateiID = " & lngDateiID, dbOpenDynaset)
    rst.Edit

    Set rstAttachments = rst.Fields("Datei").Value

    rstAttachments.AddNew
    Set fld = rstAttachments.Fields("FileData")
    rstAttachments!FileData.LoadFromFile strDatei
    rstAttachments.Update
    
    rst.Update
    rst.Close
    Set rst = Nothing
    Set db = Nothing

End Sub

Listing 9.50: Importieren einer Datei in das Attachment-Feld eines Recordsets

Nächster Abschnitt:

9.9.8 Löschen von Dateien in Attachment-Feldern

© 2006-2008 André Minhorst Alle Rechte vorbehalten.