<\/p>\n
Autor: Klaus Giesen, Wuppertal<\/p>\n
<\/b><\/p>\n
Mit Microsoft Access können nicht nur die üblichen Daten wie Nachname, Vorname oder Artikelnummern, sondern beispielsweise auch Bilder gespeichert und mit der entsprechenden Funktionalität verwaltet werden. Typische Anwendungsbeispiele dafür sind beispielsweise Abbildungen zu Artikeln und Produkten oder auch nur ein reines Bildarchiv.<\/b><\/p>\n
Access stellt Ihnen verschiedene Möglichkeiten zur Speicherung von Bildern bzw. Bildinformationen in unterschiedlichen Steuerelementtypen zur Verfügung, die sich in verschiedener Hinsicht voneinander unterscheiden.<\/p>\n
Access speichert Bilder als so genannte OLE-Objekte in einem entsprechenden Felddatentyp.<\/p>\n
Zusätzlich tauchen in diesem Zusammenhang auch noch Begriffe wie gebunden und ungebunden, sowie Einbetten bzw. Verknüpfen auf.<\/p>\n
Wir wollen uns an dieser Stelle aber nicht mit langen Erklärungen aufhalten, sondern mit einem ganz einfachen Beispiel beginnen. Die wichtigsten Begriffe zum Verständnis des gesamtem Vorgangs werden Sie dann im Verlauf dieses Beitrags näher kennen lernen.<\/p>\n
OLE-Objekt in Datenbank speichern<\/b><\/p>\n
Als Voraussetzung zur Speicherung von OLE-Daten muss ein Tabellenfeld auf den Felddatentyp OLE-Objekt eingestellt sein. Nur dann können verknüpfte oder eingebettete OLE-Objekte auch in einer Tabelle gespeichert werden.<\/p>\n
Die folgende Methode ist von Access standardmäßig zum Speichern von OLE-Objekten vorgesehen. <\/p>\n
Auch zum Einfügen eines solchen Objekts gibt es mehrere Möglichkeiten, von denen an dieser Stelle nun eine genauer beschrieben werden soll.<\/p>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic001.png\")
<\/p>\n
<\/b><\/p>\n
Bild 1: Auswahl des Objekttyps<\/span><\/b><\/p>\n <\/b><\/p>\n Abb. 2: Objekt aussuchen und einfügen<\/b><\/p>\n <\/b><\/p>\n Bild 3: Anzeige des OLE-Servers im Tabellenfeld<\/span><\/b><\/p>\n Das Einfügen eines OLE-Objekts über dieses Dialogfenster ist aus naheliegenden Gründen für den Anwender sehr flexibel: Er kann dort jeden auf seinem Computer vorhandenen OLE-fähigen Dateityp bequem auswählen. <\/p>\n Um weitere Bilder in Ihre Datenbank einzufügen, klicken Sie einfach mit der rechten Maustaste auf das Objektfeld und wählen Sie aus dem Kontextmenü den Befehl Objekt aus. Daraufhin wird wieder das Dialogfenster Objekt einfügen (siehe Bild 1) angezeigt.<\/p>\n Damit ist dieses einfache Beispiel abgeschlossen und das Bild wird im Formular angezeigt (siehe Bild 4).<\/p>\n Einfügen von OLE-Objekten per VBA<\/b><\/p>\n Es versteht sich von selbst, dass unter Access das Einfügen eines solchen Bildes auch per VBA möglich ist – beispielsweise über eine Schaltfläche Neu im Formular.<\/p>\n Schon die einzelne Codezeile<\/p>\n innerhalb einer Beim Klicken-Ereignisprozedur öffnet das bereits bekannte Dialogfenster Objekt einfügen.<\/p>\n Allerdings gilt es auch bei dieser einfachen Variante einiges zu beachten. Wenn ein Objekt eingefügt wird, wird auch der Programmcode weiter abgearbeitet. Beim Klick auf die Schaltfläche Abbrechen tritt allerdings ein Laufzeitfehler mit der Fehlernummer 2001 auf.<\/p>\n <\/b><\/p>\n Bild 4: Bilder einfügen per Schaltfläche<\/span><\/b><\/p>\n Eine wiederum einfache Lösung ist, die Fehlerbehandlung von Access vollständig zu umgehen. Der Programmcode dazu sieht wie folgt aus:<\/p>\n Eine ausführlichere und auch elegantere Lösung würde den Laufzeitfehler 2001 explizit abfangen. Weiterhin bietet sich an zu überprüfen, ob in dem OLE-Feld bereits ein Objekt vorhanden ist.<\/p>\n Daraufhin sollte der Anwender entscheiden können, ob dieses Feld überschrieben werden soll oder nicht.<\/p>\n Begriffserläuterungen und Hintergrundinformationen<\/b><\/p>\n An dieser Stelle ist es notwendig einige Begriffe zu klären, damit unmissverständlich deutlich wird, was eigentlich geschehen ist und welche Alternativen beim Import von Bildern möglich sind.<\/p>\n In dem Listenfeld Objekttyp (Schritt 2) werden die Objekte aller OLE-fähigen Anwendungen auf Ihrem Computersystem angezeigt. Mit Hilfe der OLE-Technik können bekanntlich verschiedene Anwendungen innerhalb einer Anwendung miteinander kombiniert werden.<\/p>\n Hierbei ist es jedoch von entscheidender Bedeutung, dass eine Anwendung zur Bearbeitung des OLE-Objektes – in unserem Beispiel ein entsprechendes Grafikprogramm – auf dem Computersystem auch ordnungsgemäß (= lauffähig) installiert ist. Nur dann kann das Objekt auch bearbeitet werden.<\/p>\n Wenn Sie eine derartige Datenbank weitergeben, müssen Sie auf jeden Fall sicherstellen, dass eine Anwendung zur Bearbeitung des entsprechenden Dateityps auch auf dem betreffenden Computer vorhanden ist. <\/p>\n Bei unserem Beispiel haben wir in Schritt 2 die Option Aus Datei erstellen ausgewählt. Das setzt allerdings das physikalische Vorhandensein der betreffenden Datei auf einem Datenträger voraus.<\/p>\n Bei Auswahl der Option Neu erstellen braucht – wie die Bezeichnung vermuten lässt – die Datei nicht auf einem Datenträger vorhanden sein. In diesem Fall wird das zugehörige Anwendungsprogramm – beispielsweise das Programm Microsoft Paint – gestartet und Sie können eine Grafik erstellen.<\/p>\n Anschließend kehren Sie über einen entsprechend angepassten Menübefehl von Paint zu Access zurück (siehe Bild 5).<\/p>\n Bei dieser Vorgehensweise ist es wichtig im Hinterkopf zu behalten, dass die neu erstellte Grafikdatei – falls sie nicht ausdrücklich gespeichert wird – nur in der Datenbank und nicht als Datei auf einem Datenträger vorhanden ist.<\/p>\n <\/b><\/p>\n Bild 5: Erstellen einer Grafik in Paint<\/span><\/b><\/p>\n <\/b><\/p>\n Auf die gleiche Art und Weise kann die in der Datenbank gespeicherte Grafikdatei auch bearbeitet werden. <\/p>\n Im Schritt 3 wurde das unscheinbare Kontrollkästchen Verknüpfen im mittleren Teil des Dialogfensters nicht aktiviert.<\/p>\n Das aber impliziert automatisch, dass das Grafikobjekt eingebettet ist.<\/p>\n Doch was bedeutet das genau und wo liegen die Unterschiede zwischen diesen beiden Methoden<\/p>\n Zunächst zum Begriff Einbetten: Einbetten bedeutet vereinfacht ausgedrückt, dass eine Kopie der Herkunftsdatei in der Datenbank gespeichert wird.<\/p>\n Das Original bleibt als solches separat erhalten und kann weiterhin bearbeitet werden. Diese änderungen werden allerdings vom Objekt, welches in der Datenbank gespeichert ist, nicht übernommen. Umgekehrt – für die Bearbeitung des in der Datenbank gespeicherten Objekts – gilt das Gleiche.<\/p>\n Der Speicherplatzbedarf der Datenbank ist bei dieser Methode extrem hoch. Neben der Größe der importierten Grafikdatei ist dafür in erster Linie der so genannte OLE-Overhead verantwortlich, der ein Mehrfaches der Grafikdateigröße beträgt. Kurz gesagt: Die Datenbank wird extrem aufgebläht.<\/p>\n Je nach Hardwareausstattung Ihres Computers kann die Performance der Datenbank negativ beeinflusst werden. <\/p>\n Dagegen kann sich je nach vorliegendem Fall eine Datensicherung vereinfachen. Bei einem Bildarchiv beispielsweise brauchen so nicht Hunderte von Bilddateien, sondern nur eine Datenbankdatei gesichert werden.<\/p>\n Der Begriff Verknüpfen dagegen bedeutet, dass lediglich ein Hinweis auf ein Objekt erstellt wird. Dabei kann es sich entweder um eine bestehende Datei oder um ein mit der Herkunftsanwendung neu erstelltes Objekt handeln.<\/p>\n Alle änderungen an der verknüpften Datei werden automatisch in der Datenbank sichtbar. Dabei ist unerheblich, ob Sie die für die Durchführung der änderung verwendete Anwendung direkt von der Datenbank aus oder außerhalb von Access öffnen. <\/p>\n Vor allem in einer Mehrbenutzerumgebung bietet sich diese Methode an, denn so können – falls erforderlich – mehrere Anwender das Herkunftsobjekt bearbeiten. <\/p>\n Die vorhergehenden Ausführungen haben Ihnen hoffentlich deutlich gemacht, dass die Entscheidung für eine dieser beiden Methoden quasi von strategischer Bedeutung ist und in erster Linie vom jeweiligen Anwendungs- bzw. Verwendungszweck abhängt.<\/p>\n Bei unserem Beispiel ist von Access ohne großes Nachfragen ein gebundenes OLE-Objekt erstellt worden. Grund dafür war, dass unser Ausgangspunkt das OLE-Feld in der Tabelle war. Damit steht auch schon die Definition:<\/p>\n Gebundene OLE-Objekte sind immer an ein entsprechendes Tabellenfeld gebunden. Daraus ergibt sich eben auch, dass die in einem solchen Feld gespeicherten Objekte aus der Datenbank heraus angezeigt und bearbeitet werden können.<\/p>\n Ungebundene OLE-Objekte definieren sich gegenteilig zum eben Beschriebenen: Sie werden nicht in einem Tabellenfeld, sondern lediglich in einem Formular oder Bericht gespeichert. Deswegen kann dieses Thema auch relativ schnell abgehandelt werden.<\/p>\n Eine mögliche Einfügemethode ist der Weg über die Zwischenablage von Windows:<\/p>\n <\/b><\/p>\n Bild 6: Ungebundenes OLE-Objekt in einem Formular<\/span><\/b><\/p>\n Ungebundene OLE-Objekte dienen in erster Linie dazu, statische Objekte wie beispielsweise Firmenlogos darzustellen oder auch Sounddateien abzuspielen.<\/p>\n Andererseits eignen sich ungebundene OLE-Felder vorzüglich dazu, mit externen Daten verbunden zu werden. Ein Beispiel dazu finden Sie in Absatz 3.<\/p>\n Ausgewählte Eigenschaften von OLE-Objekten<\/b><\/p>\n Die Eigenschaften von gebundenen und ungebundenen OLE-Objekten können sich je nach Herkunfts- und Verknüpfungsart doch recht deutlich voneinander unterscheiden. Deshalb werden an dieser Stelle nur einige ausgewählte Eigenschaften vorgestellt.<\/p>\n <\/b><\/p>\n Bild 7: Das Eigenschaftsfenster<\/span><\/b><\/p>\n über die Eigenschaft Größenanpassung wird die Darstellung des OLE-Objekts im Formular beeinflusst. Dabei stehen drei Möglichkeiten zur Auswahl: Abschneiden, Dehnen und Zoomen.<\/p>\n <\/b><\/p>\n Bild 8: Bildanzeige mit der Größenanpassung Dehnen<\/span><\/b><\/p>\n Wenn als Wert der Eigenschaft Zoomen ausgewählt ist, wird das OLE-Objekt an die Größe des Steuerelements angepasst, wobei sein Seitenverhältnis bei-behalten wird. Dadurch treten keine Verzerrungen auf.<\/p>\n <\/p>\n über die Eigenschaft Anzeigeart wird festgelegt, auf welche Weise das OLE-Feld seinen Inhalt anzeigen soll. Die beiden möglichen Werte für die Eigenschaften heißen Inhalt und Symbol.<\/p>\n Wenn die Eigenschaft den Wert Inhalt hat, werden die Daten des OLE-Objekts angezeigt. Im Fall des Wertes Symbol wird lediglich das Symbol des OLE-Objekts angezeigt (siehe Bild 9).<\/p>\n <\/b><\/p>\n Bild 9: Symbol eines OLE-Objekts im Formular<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 10: Das Formular Bildarchiv<\/span><\/b><\/p>\n Diese Einstellung kann aus mehreren Gründen sinnvoll sein.<\/p>\n Zum einen braucht ein Symbol bedeutend weniger Platz auf dem Formular und der Inhalt kann ja auf Doppelklick angezeigt werden.<\/p>\n Zum anderen kann die grafische Darstellung von OLE-Objekten – gerade beim Datensatzwechsel – recht zeitraubend sein.<\/p>\n Falls die grundsätzlichen Eigenschaften gebundener (hoher Speicherplatzbedarf) und ungebundener (mangelnde Flexibilität) OLE-Objekte stören, bietet sich eine interessante Alternative an:<\/p>\n In einer Tabelle werden lediglich Dateinamen und -pfad der Bilder gespeichert. Angezeigt werden die entsprechenden Bilder zur Laufzeit in einem ungebundenen OLE-Objekt. So könnte beispielsweise die Lösung für ein Bildarchiv realisiert werden.<\/p>\n Access wäre nicht Access, wenn alle diese Funktionalitäten nicht auch per VBA-Programmierung erledigt werden könnten.<\/p>\n Das folgende Beispiel setzt dies um und beinhaltet unter anderem auch die Möglichkeit, Bilddateien über ein unter Windows übliches Dialogfeld zur Dateiauswahl auszuwählen und alle Bilder eines Verzeichnisses in einem Rutsch laden zu können.<\/p>\n <\/b><\/p>\n Bild 11: Das Steuerelement Bild in der Toolbox<\/span><\/b><\/p>\n Das Steuerelement Bild<\/b><\/p>\n Bestandteil dieser Lösung ist das Steuerelement Bild. Dieses Steuerelement ist im Grunde genommen ein ungebundenes OLE-Objekt und speziell für die Anzeige von Bildern entwickelt worden. Sein Vorteil gegenüber einem Objektfeld ist, dass es wesentlich schneller geladen wird.<\/p>\n Der Verwendung dieses Steuerelementes bietet sich allerdings nur dann an, wenn das Bild nicht aktualisiert werden muss. Anderenfalls ist die Verwendung eines gebundenen OLE-Objekts notwendig.<\/p>\n Bild 10 zeigt die Toolbox mit dem Steuerelement Bild. Die Toolbox wird durch einen Klick auf die gleichnamige Schaltfläche der Symbolleiste in der Entwurfsansicht von Formularen angezeigt.<\/p>\n <\/b><\/p>\n Bild 12: Der Dialog Datei öffnen<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 13: Dateiname und -pfad in der Tabelle<\/span><\/b><\/p>\n Einzelne Bilddatei aus einem Ordner laden<\/b><\/p>\n Die fertige Lösung erlaubt zunächst die Auswahl einer einzelnen Grafikdatei.<\/p>\n Beim Klick auf die Schaltfläche Datei laden im Formular frmBildArchiv der Beispieldatenbank BilderImport.mdb (siehe Bild 10) wird die folgende Ereignisprozedur aufgerufen:<\/p>\n Aus Gründen der übersichtlichkeit fehlen die Fehlerbehandlungsroutinen. Der Ablauf ist relativ simpel.<\/p>\n Zunächst wird die Funktion DateiOeffnen() aus dem Modul modWindowsDialoge aufgerufen, das Sie in der Beispieldatenbank BilderImport.mdb finden.<\/p>\n Daraufhin wird der normale Datei öffnen-Dialog angezeigt, in dem das aktuelle Verzeichnis voreingestellt ist.<\/p>\n Falls keine Datei ausgewählt wird, wird die Routine beendet. Falls doch, wird die Variable FName$ mit Dateiname und Pfad gefüllt und im Feld txtFoto der Tabelle gespeichert. Dann wird mit dem Variableninhalt die Eigenschaft Picture oder Bild des Bild-Steuerelements gesetzt. Das war es schon. Ein Blick in die Tabelle zeigt, dass dort tatsächlich Dateiname und -pfad gespeichert sind.<\/p>\n Damit die Bilder auch beim öffnen des Formulars und beim Datensatzwechsel angezeigt werden, ist noch eine zweite Ereignisprozedur notwendig. Diese wird beim Ereignis Beim Anzeigen oder Current des Formulars ausgeführt (s. Quellcode 1).<\/p>\n Die beiden in diesem Zusammenhang entscheidenden Schritte sind in den beiden folgenden Codezeilen enthalten.<\/p>\n In der Zeile<\/p>\n wird eine Variable mit dem Dateipfad gefüllt, mit dem in der Zeile<\/p>\n die Eigenschaft Picture des Bild-Steuerelements entsprechend eingestellt wird.<\/p>\n Alle Bilddateien aus einem Ordner einlesen<\/b><\/p>\n Mit dem Formular frmBildArchiv der Beispieldatenbank BilderImport.mdb ist es möglich, den Inhalt eines kompletten Ordners mit Grafikdateien quasi auf einen Rutsch einzulesen.<\/p>\n Dazu ist ein Klick auf die Schaltfläche Verzeichnis einlesen notwendig. Die daraufhin aufgerufene Ereignisprozedur btnDir_Click finden Sie im Klassenmodul FORM_frmBildArchiv der Beispieldatenbank. Sie wird hier in ihren wesentlichen Passagen erläutert.<\/p>\n Durch den notwendigen Deklarationsteil wird festgelegt, dass nur Dateien mit drei bestimmten Dateiendungen eingelesen werden können. Dies ist deshalb notwendig, weil der weitere Verlauf der Prozedur keine Auswahlmöglichkeit von Dateien vorsieht.<\/p>\n In der folgenden Zeile ruft die Funktion OpenFolder aus dem Modul modWindowsDialoge der Beispieldatenbank ein Dialogfenster auf:<\/p>\n Als Ergebnis wird das Dialogfenster Ordner suchen (siehe Bild 14) angezeigt, in dem der gewünschte Ordner ausgewählt werden kann.<\/p>\n <\/b><\/p>\n Bild 14: Das Dialogfenster Ordner suchen<\/span><\/b><\/p>\n Das ist übrigens die einzige Benutzerschnittstelle dieser Routine.<\/p>\n Durch die Codezeile<\/p>\n wird die Prozedur beendet, falls das ausgewählte Verzeichnis leer ist.<\/p>\n Dateiname und -pfad werden nach dem öffnen eines Recordsets in einer Schleife eingelesen (s. Quellcode 2).<\/p>\n Zusätzlich werden die Felder Kategorie und Stichwort mit Defaultwerten gefüllt. Das Feld Kategorie erhält beispielsweise den Eintrag Neu. Dies ist notwendig, weil nach Ablauf dieser Routine nur die neu eingelesenen Bilder der Datenbank im Formular angezeigt werden sollen.<\/p>\n Die dazu notwendige änderung der Datenherkunft oder Recordsource des Formulars erledigen die beiden folgenden Codezeilen:<\/p>\n Datensätze aus dem Formularheraus löschen<\/b><\/p>\n Das Löschen von Datensätzen erfolgt komfortabel über Befehlsschaltflächen.<\/p>\n Beim Klick auf die Schaltfläche Satz löschen wird eine Ereignisprozedur mit den folgenden Zeilen aufgerufen:<\/p>\n Nach der Variablendeklaration wird zunächst sichergestellt, dass die Prozedur verlassen wird, wenn sich der Datensatzzeiger auf einem neuen, noch gespeicherten Datensatz befindet.<\/p>\n Anschließend erfolgt die obligatorische Sicherheitsabfrage (siehe Bild 15).<\/p>\n <\/b><\/p>\n Bild 15: Sicherheitsabfrage<\/span><\/b><\/p>\n Falls die Abfrage bejaht wird, kann der Primärschlüssel des aktuellen Datensatzes im Formular in einer Variablen gespeichert werden.<\/p>\n Anschließend wird der Datensatz mit dem SQL-Kommando Delete gelöscht und die Formularanzeige aktualisiert.<\/p>\n Die Prozedur zum Löschen aller Datensätze unterschiedet sich von der vorherigen lediglich durch das SQL-Kommando, bei dem die Beschränkung auf den aktuellen Datensatz fehlt.<\/p>\n Steuerung der Größenanzeige im Formular<\/b><\/p>\n Mit Hilfe der Optionsgruppe Bildanzeige wird die oben erwähnte Eigenschaft Größenanpassung des OLE-Felds komfortabel gesteuert (siehe Bild 16).<\/p>\n <\/b><\/p>\n Bild 16: Die Optionsgruppe Bildanzeige im Formular<\/span><\/b><\/p>\n Die Bezeichnung der Optionen wurde bei diesem Beispiel allgemeinverständlicher gewählt und entspricht den oben besprochenen Einstellungen der Eigenschaft Größenanpassung.<\/p>\n Beim Laden des Formulars wird in einer Ereignisprozedur als Standardwert 3 (Zoomen) eingestellt:<\/p>\n Anstelle des Zahlenwerts 3 könnte auch die VBA-Konstante acOLESizeZoom verwendet werden. <\/p>\n Der Vollständigkeit halber enthält Tab. 1 noch die Zahlenwerte und Konstanten für die weiteren Eigenschaftseinstellungen.<\/p>\n Option<\/b><\/p>\n<\/td>\n Zahlenwert<\/b><\/p>\n<\/td>\n Konstante<\/b><\/p>\n<\/td>\n<\/tr>\n Abschneiden<\/p>\n<\/td>\n 0<\/p>\n<\/td>\n acOLESizeClip<\/p>\n<\/td>\n<\/tr>\n Dehnen<\/p>\n<\/td>\n 1<\/p>\n<\/td>\n acOLESizeStretch<\/p>\n<\/td>\n<\/tr>\n Einpassen<\/p>\n<\/td>\n 3<\/p>\n<\/td>\n acOLESizeZoom<\/p>\n<\/td>\n<\/tr>\n<\/table>\n Tab. 1: Einstellungen der Eigenschaft Größenanpassung<\/b><\/p>\n Damit eine Veränderung der Optionsauswahl in dieser Optionsgruppe Wirkung zeigt, muss beim Nach Aktualisierung-Ereignis der Optionsgruppe der neue Wert gesetzt werden. Dies geschieht durch die folgende Ereignisprozedur:<\/p>\n Kategorienauswahl und Steuerung der Anzeige<\/b><\/p>\n Das Anlegen von Kategorien erfolgt im Listenfeld Kategorie. Dort braucht lediglich ein Begriff eingegeben zu werden, der dann anschließend aus dem Listenfeld heraus anderen Bilder zugeordnet werden kann.<\/p>\n <\/b><\/p>\n Bild 17: Auswahl der Kategorie im Listenfeld<\/span><\/b><\/p>\n Nach der Eingabe eines neuen Begriffs muss die Anzeige im Listenfeld aktualisiert werden. Dies muss an zwei Stellen erfolgen: Erstens durch eine Ereignisprozedur, die durch das Nach Aktu-alisierung-Ereignis des Listenfeldes ausgeführt wird.<\/p>\n Quellcode 3<\/b><\/p>\n <\/b><\/p>\n Bild 18: Nur eine Kategorie von Bildern im Formular<\/span><\/b><\/p>\n In der letzten Zeile der Prozedur wird die Datenherkunft des Listenfelds neu mit dem Wert gesetzt, der über eine Variable aus dem Listenfeld übernommen worden ist.<\/p>\n Zweitens muss die eben neu erstellte Datenherkunft des Listenfelds erneut abgefragt werden, damit der neue Wert dort auch angezeigt werden kann.<\/p>\n Dies erfolgt im Nach Aktualisierung-Ereignis des Formulars, das nach änderung eines Datensatzes auftritt.<\/p>\n Das Ganze ist eigentlich relativ trivial.<\/p>\n Interessanter ist da schon die Möglichkeit, die Anzeige der Bilder im Formular auf eine einzige Kategorie zu beschränken. Diese kann natürlich bequem ausgewählt werden.<\/p>\n Standardmäßig werden immer alle Kategorien von Bildern im Formular angezeigt. Die Auswahl erfolgt über das Listenfeld Anzeigen. Die Anzeige aller Kategorien wird durch ein Sternchen (*) im Listenfeld gekennzeichnet.<\/p>\n Verantwortlich dafür ist eine Ereignisprozedur, die durch das Beim Laden-Ereignis des Formulars ausgeführt wird.<\/p>\n Nach der Auswahl einer Kategorie im Listenfeld Anzeigen werden im Formular nur noch die zu dieser Kategorie gehörigen Bilder angezeigt.<\/p>\n Um wieder alle Bilder anzuzeigen, muss das Formular nicht etwa geschlossen und wieder geöffnet werden – es reicht ein Klick auf die rechts neben dem Listenfeld liegende Schaltfläche. Dann wird die Ereignisprozedur aus Quellcode 4 ausgeführt.<\/p>\n Die Bewertung der vorgestellten Methode<\/b><\/p>\n Das alleinige Speichern des Bildpfads anstelle eines OLE-Objekts in der Datenbank hat ohne Zweifel den Vorteil, dass sich die mdb-Datei von Access nicht so gewaltig aufbläht.<\/p>\n Demgegenüber steht der Nachteil, dass jedes Bild beim Datensatzwechsel ständig neu eingelesen werden muss. Dies ist auch an der Verlaufsanzeige zu erkennen, die je nach Größe der Grafikdatei beim öffnen des Formulars und beim Datensatzwechsel kürzer oder länger sichtbar wird (siehe Bild 19).<\/p>\n <\/b><\/p>\n Bild 19: Die Verlaufsanzeige<\/span><\/b><\/p>\n In einer Netzwerkumgebung, in der die Bilddateien auf einem Netzwerkserver liegen, spielt dabei natürlich auch die Leistungsfähigkeit des Netzes eine Rolle.<\/p>\n Ob das Vorhandensein einer großen Anzahl von Grafikdateien in Bezug auf Datensicherung oder unbeabsichtigtes Löschen nachteilig ist oder nicht, hängt ganz von den individuellen Umständen ab.<\/p>\n Das Speichern von Bildern als Binärstrom in einem OLE-Feld ist eine weitere interessante Al-ternative zum Thema Bildimport (s. Abschn. 4.6).<\/p>\n Zur Realisierung dieser Methode ist allerdings eine gewisser Programmieraufwand notwendig, der jedoch in diesem Abschnitt vorgestellt und erläutert wird. Die Beispiellösung wurde für Access 2000 entwickelt und befindet sich in der Datenbank BinaryImport.mdb.<\/p>\n Notwendige Datenbankobjekte<\/b><\/p>\n Die beiden wichtigen Datenbankobjekte für die Beispiellösung sind die Tabelle tabProdukte und das Formular frmProdukte aus der Beispieldatenbank BinaryImport.mdb. Die Abfrage qryfrmProdukte, auf der das Formular basiert, sortiert lediglich die Tabelle tabProdukte und braucht deshalb nicht weiter beachtet zu werden.<\/p>\n <\/b><\/p>\n Bild 20: Entwurfsansicht der Tabelle<\/span><\/b><\/p>\n <\/b><\/p>\n Bild 21: Entwurfsansicht des Formulars<\/span><\/b><\/p>\n Die Tabelle muss in jedem Fall ein Feld mit dem Felddatentyp OLE-Objekt enthalten (siehe Bild 20). In diesem Feld werden die eingelesenen Bilddaten als so genannte Binary Large Objects oder abgekürzt BLOBs gespeichert.<\/p>\n Im Formular muss ein Bild-Steuerelement enthalten sein, damit die importierten Bilder auch angezeigt werden können. Die eigentliche Funktionalität der Beispielanwendung verbirgt sich hinter den beiden Schaltflächen Neues Bild einlesen und Bild entfernen, durch die Ereignisprozeduren bzw. Funktionen aufgerufen werden.<\/p>\n Ablauf derVerarbeitung<\/b><\/p>\n Die grundsätzliche Verarbeitung der Beispielanwendung läuft in zwei Schritten ab:<\/p>\n Der Ablauf dieser beiden Schritte wird nun detailliert vorgestellt und erläutert.<\/p>\n Die ausgeführten Sub-Prozeduren bzw. Funktionen sind hier teilweise aus Gründen der übersichtlichkeit nur auszugsweise abgedruckt.<\/p>\n Den vollständigen Code finden Sie im Modul Form_frmProdukte der Beispieldatenbank BinaryImport.mdb.<\/p>\n Grafikdatei einlesen und in der Datenbank speichern<\/b><\/p>\n Beim Klick auf die Schaltfläche Neues Bild einlesen wird eine Ereignisprozedur aufgerufen. Nach dem Deklarationsteil muss auf einen existierenden Datensatz verwiesen werden (s. Quellcode 5).<\/p>\n Dann wird ein Datei öffnen-Dialog aufgerufen, in welchem eine Grafikdatei auf die übliche Art und Weise ausgewählt werden muss (s. Quellcode 6).<\/p>\n Anschließend wird für den aktuellen Datensatz ein Recordset geöffnet und die Funktion LoadFileToField mit dem übergebenen Dateinamen aus dem Auswahldialog aufgerufen (s. Quellcode 7).<\/p>\n Die Funktion LoadFileToField liest die angegebene Datei binär aus (s. Quellcode 8).<\/p>\n Diese Daten werden anschließend in dem OLE-Feld der Datenbank gespeichert. Den Abschluss bildet der Aufruf der Prozedur ShowPicture.<\/p>\n Grafik auslesen, speichern undanzeigen<\/b><\/p>\n In der Prozedur ShowPicture wird zunächst eine Konstante für die temporäre Bilddatei erstellt und dann wieder ein Recordset für den aktuellen Datensatz geöffnet.<\/p>\n Eine eventuell vorhandene temporäre Bilddatei wird gelöscht und die Bilddaten aus dem Datenbankfeld werden durch den Aufruf der Funktion SaveFileToField binär auf der Festplatte unter dem temporären Dateinamen gespeichert:<\/p>\n <\/b><\/p>\n Bild 22: Die Tabelle mit den gespeicherten Binär-Daten<\/span><\/b><\/p>\n Falls dieser Vorgang erfolgreich war, das heißt, der Rückgabewert der Funktion True ist, wird die Eigenschaft Bild oder Picture des Bild-Steuerelements im Formular auf die temporäre Grafikdatei eingestellt. Damit kann in diesem Steuerelement das Bild im Formular angezeigt werden.<\/p>\n über den erfolgreichen Abschluss der ganzen Aktion wird der Anwender durch eine Meldung informiert.<\/p>\n Die Prozedur ShowPicture wird auch beim öffnen des Formulars und beim Datensatzwechsel ausgeführt. <\/p>\n Gespeichertes Bild aus derDatenbank entfernen<\/b><\/p>\n Gespeicherte Bilder in der Datenbank können problemlos ausgetauscht werden. Dazu ist ein Klick auf die Schaltfläche Bild entfernen erforderlich. Damit wird – Sie ahnen es sicher schon – eine Ereignisprozedur aufgerufen:<\/p>\n In der Ereignisprozedur wird innerhalb eines Recordsets der Inhalt des OLE-Feldes gelöscht, und nicht etwa der aktuelle Datensatz.<\/p>\n Den Abschluss bildet wieder der Aufruf der Prozedur ShowPicture mit einer leeren Zeichenkette als Dateinamen. Dadurch wird in dem Steuerelement auch nichts angezeigt und das Formular steht zum Laden eines neuen Bildes bereit.<\/p>\n Die Bewertung dieser Methode<\/b><\/p>\n Bei dieser Speichermethode wird nur der Speicherplatz der reinen Bilddatei in der Datenbank benötigt. Es fehlt der vollständige OLE-Overhead, der letztendlich für das Aufblähen der mdb-Datei verantwortlich ist.<\/p>\n Außerdem kann beispielsweise bei Anwendung dieser Methode eine Datenbank mit tausenden von Bildern weitergegeben werden, ohne dass bei dieser Aktion auch tausende von Bilddateien mit weitergegeben werden müssen.<\/p>\n In Tab. 2 finden Sie eine Auflistung der vorgestellten Methoden und deren Vor- und Nachteile.<\/p>\n Methode<\/b><\/p>\n<\/td>\n Vorteile<\/b><\/p>\n<\/td>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic002.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
Me!oleBild.Action = acOLEInsertObjDlg<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic003.png\")
<\/p>\n'' Beim Auftreten eines Laufzeitfehlers\r\n'' wird mit der nächsten Anweisung \r\n'' fortgefahren\r\nOn Error Resume Next\r\n'' öffnet den Dialog Objekt einfügen\r\nMe!oleBild.Action = acOLEInsertObjDlg\r\n'' Deaktiviert alle aktivierten\r\n'' Fehlerbehandlungsroutinen\r\nOn Error GoTo 0<\/pre>\n
Objekttyp<\/h3>\n
Praxis-Tipp<\/h3>\n
Neu erstellen – aus bestehender Datei erstellen<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic004.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic005.png\")
<\/p>\nPraxis-Tipp<\/h3>\n
Einbetten – Verknüpfen<\/h3>\n
Praxis-Tipp<\/h3>\n
Praxis-Tipp<\/h3>\n
Gebunden – Ungebunden<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic006.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic007.png\")
<\/p>\nGrößenanpassung<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic008.png\")
<\/p>\nAnzeigeart<\/h3>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic009.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic010.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic011.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic012.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic013.png\")
<\/p>\nPrivate Sub btnLoad_Click()\r\n Dim FName$\r\n FName$ = DateiOeffnen(CurDir$, _ \"Bildladen:\")\r\n If FName$ = \"\" Then Exit Sub\r\n Me.[txtFoto] = FName$\r\n Me.[picFoto].Picture = FName$\r\n DoEvents\r\nEnd Sub<\/pre>\n
PicFName$ = Me.[txtFoto]<\/pre>\n
Me.[picFoto].Picture = PicFName$<\/pre>\n
Private Sub Form_Current()\r\n Dim PicFName$\r\n On Error Resume Next\r\n DoCmd.Hourglass True\r\n If Not IsNull(Me.[txtFoto]) Then\r\n PicFName$ = Me.[txtFoto]\r\n If Dir$(PicFName$) <> \"\" Then\r\n Me.[picFoto].Picture = PicFName$\r\n Else\r\n Me.[picFoto].Picture = \"\"\r\n DoEvents\r\n Beep\r\n MsgBox \"Bilddatei nicht gefunden!\"\r\n End If\r\n Else\r\n Me.[picFoto].Picture = \"\"\r\n End If\r\n DoCmd.Hourglass False\r\nEnd Sub\r\nSet DB = CurrentDb()\r\n Set rs = DB.OpenRecordset(\"tabBildArchiv\", _ dbOpenDynaset)\r\n For i = 1 To MaxTyp\r\n DoEvents\r\n X$ = Dir$(P$ + BildTyp(i))\r\n While X$ <> \"\"\r\n On Error Resume Next\r\n rs.AddNew\r\n rs(\"txtFoto\") = P$ + X$\r\n If Err <> 0 Then GoTo Skip\r\n rs(\"txtKategorie\") = \"Neu\"\r\n rs(\"txtStichwort\") = \"Neues Bild\"\r\n rs.Update\r\nSkip:\r\n On Error GoTo 0\r\n X$ = Dir$()\r\n Wend\r\n Next i\r\n rs.Close<\/pre>\n
Eingrenzung der Dateitypen<\/h3>\n
Const MaxTyp = 3\r\nDim DB As Database\r\nDim rs As Recordset\r\nDim SQL$, P$, X$, i%\r\nDim BildTyp(1 To MaxTyp)\r\n BildTyp(1) = \"*.bmp\"\r\n BildTyp(2) = \"*.gif\"\r\n BildTyp(3) = \"*.jpg\"<\/pre>\n
Verzeichnisauswahl<\/h3>\n
P$ = OpenFolder(\"Bilder aus Verzeichnis importieren:\")<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic014.png\")
<\/p>\nIf P$ = \"\" Then Exit Sub<\/pre>\n
Bildpfade einlesen<\/h3>\n
SQL$ = \"select * from [tabBildArchiv] where [txtKategorie]= ''Neu'';\"\r\nMe.RecordSource = SQL$<\/pre>\n
Aktuellen Datensatz löschen<\/h3>\n
Dim Msg$, Taste%, SQL$, Foto_Nr As Long\r\n If Me.NewRecord Then\r\n Beep\r\n Exit Sub\r\n End If<\/pre>\n
Msg$ = \"Diesen Satz wirklich löschen\"\r\n Beep\r\n Taste = MsgBox(Msg$, vbYesNo + _ vbQuestion, \"Satz löschen\")\r\n If Taste <> vbYes Then Exit Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic015.png\")
<\/p>\nFoto_Nr = Me.[Foto Nr]<\/pre>\n
SQL$ = \"delete * from [tabBildArchiv] \"\r\nSQL$ = SQL$ & \"where [Foto Nr]= \"\r\nSQL$ = SQL$ & CStr(Foto_Nr) & \";\"\r\nDoCmd.RunSQL SQL$\r\nMe.Requery\r\nDoEvents<\/pre>\n
Alle Datensätze löschen<\/h3>\n
SQL$ = \"delete * from [tabBildArchiv];\"\r\nDoCmd.RunSQL SQL$\r\nMe.Requery\r\nDoEvents<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic016.png\")
<\/p>\nPrivate Sub Form_Load()\r\n Me.rbAnzeige = 3\r\nEnd Sub<\/pre>\n
\n
\n \n \n \n \n \n \n \n \n \n \n \n \n \n \n \n Private Sub rbAnzeige_AfterUpdate()\r\n Me.picFoto.SizeMode = rbAnzeige.Value\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic017.png\")
<\/p>\nPrivate Sub ctlKatAusw_AfterUpdate()\r\n Dim f$, SQL$\r\n On Error Resume Next\r\n f$ = Me.ctlKatAusw\r\n If Err <> 0 Then Exit Sub\r\n SQL$ = \"select * from [tabBildArchiv] where [txtKategorie]= ''\" _ & f$ & \"'' order by txtStichwort;\"\r\n Me.RecordSource = SQL$\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic018.png\")
<\/p>\nPrivate Sub Form_AfterUpdate()\r\n Me.ctlKategorie.Requery\r\n Me.ctlStichwort.Requery\r\nEnd Sub<\/pre>\n
Private Sub btnAll_Click()\r\n Dim SQL$\r\n Me.ctlKatAusw = \"*\"\r\n SQL$ = \"select * from [tabBildArchiv] order by \"\r\n SQL$ = SQL$ & \"txtKategorie,txtStichwort;\"\r\n Me.RecordSource = SQL$\r\n DoEvents\r\nEnd Sub<\/pre>\n
Private Sub Form_Load()\r\n Me.ctlKatAusw = \"*\"\r\nEnd Sub<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic019.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic020.png\")
<\/p>\n![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic021.png\")
<\/p>\nDie Tabelle<\/h3>\n
Das Formular<\/h3>\n
Dim Dateiname As String\r\nDim rstData As ADODB.Recordset\r\nDim SQL As String\r\n If Me.NewRecord Then\r\n MsgBox \"Bitte wechseln Sie zuerst zu dem \" _ & \"gewünschten Datensatz!\", vbCritical\r\n Exit Sub\r\n End If\r\nDateiname = DateiOeffnen(CurDir$, \"Bild laden:\")\r\n If Dateiname = \"\" Then Exit Sub\r\n If Dir(Dateiname) = \"\" Then\r\n MsgBox \"Die Datei existiert nicht!\"\r\n Exit Sub\r\n End If\r\nQuellcode 6\r\nSQL = \"SELECT * FROM tabProdukte WHERE ID=\" & CStr(Me.ID)\r\n Set rstData = New ADODB.Recordset\r\n With rstData\r\n .LockType = adLockOptimistic\r\n .CursorLocation = adUseServer\r\n .CursorType = adOpenDynamic\r\n .Source = SQL\r\n .ActiveConnection = CurrentProject.Connection\r\n .Open\r\n LoadFileToField Dateiname, rstData!oleBild\r\n .Update\r\n .Close\r\n End With\r\nFileID = FreeFile\r\n FileLength = FileLen(Filename)\r\n Open Filename For Binary Access Read Lock _ Read Write As FileID\r\n ReDim Buffer(FileLength)\r\n Feld.Value = Null\r\n Get FileID, , Buffer\r\n Close FileID\r\n Feld.AppendChunk Buffer\r\n LoadFileToField = True<\/pre>\n
Const TempFilename = _ \"C:\\db_temp.jpg\"\r\nDim rstData As _ ADODB.Recordset\r\nDim SQL As String<\/pre>\n
![](\"..\/fileadmin\/_temp_\/{4FF101B7-94F8-4712-B0EA-BA7E632BDE9A}\/pic022.png\")
<\/p>\nKill TempFilename\r\n On Error GoTo 0\r\n If SaveFieldToFile(TempFilename, _ rstData!oleBild) = True Then\r\n Me.picFoto.Picture = TempFilename\r\n End If<\/pre>\n
Hinweis<\/h3>\n
With rstData\r\n .LockType = adLockOptimistic\r\n .CursorLocation = adUseServer\r\n .CursorType = adOpenDynamic\r\n .Source = SQL\r\n .ActiveConnection = _ CurrentProject.Connection\r\n .Open\r\n rstData!oleBild = Null\r\n .Update\r\n .Close\r\nEnd With<\/pre>\n
\n
\n \n \n \n