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!

11.10.1 Bilder aus dem OLE-Feld in einem Formular anzeigen

11.10.2 Bild aus einem OLE-Feld wiederherstellen

Auf diese Art gespeicherte Bilder können Sie natürlich auch wieder in eine Datei umwandeln. Auch dazu können Sie eine passende Schaltfläche im Formular anlegen. Für diese hinterlegen Sie dann den folgenden Code. Die Routine ermittelt zunächst aus dem im Feld Dateiname gespeicherten Wert die Dateiendung und daraus weiter unten das Dateiformat, unter dem die Bilddatei gespeichert werden soll. Zwischendurch erzeugt sie ein Recordset, das genau den soeben im Formular angezeigten Datensatz enthält und schreibt aus dem darin enthaltenen OLE-Feld die passende Datei auf die Festplatte (in das Verzeichnis der aktuellen Anwendung).

Private Sub cmdBildSpeichern_Click()
    Dim objPicture As stdole.StdPicture
    Dim db As DAO.Database
    Dim rst As DAO.Recordset
    Dim fld As DAO.Field
    Dim strFileType As String
    Dim intPicType As PicFileType
    strFileType = Mid(Me.Dateiname, InStrRev(Me.Dateiname, ".") + 1)
    Set db = CurrentDb
    Set rst = db.OpenRecordset("SELECT OLEBild FROM tblOLEBilder " _
        & "WHERE OLEBildID = " & Me.OLEBildID, dbOpenDynaset)
    Set fld = rst.Fields(0)
    Set objPicture = PicFromField(fld)
    InitGDIP
    Select Case strFileType
        Case "bmp"
            intPicType = pictypeBMP
        Case "gif"
            intPicType = pictypeGIF
        Case "png"
            intPicType = pictypePNG
        Case "jpg"
            intPicType = pictypeJPG
        Case "tif"
            intPicType = pictypeTIF
    End Select
    SaveImage objPicture, CurrentProject.Path & "\" & Me!Dateiname, _
        intPicType
    ShutDownGDIP
    Set fld = Nothing
    rst.Close
    Set rst = Nothing
    Set db = Nothing
End Sub

Listing 11.11: Speichern eines Bildes aus einem OLE-Feld in eine Datei

Nächster Abschnitt:

11.10.3 Speichern in verschiedenen Formaten

© 2006-2008 André Minhorst Alle Rechte vorbehalten.