![\"Tabelle](\"..\/tl_files\/images\/pic_218_001.png\")
<\/a><\/p>\nBild 1: Tabelle mit einem OLE-Feld<\/p>\n
Außerdem erstellen wir ein Formular, mit dem wir den Import und den Export der Bilder steuern. Dieses Formular soll frmOLEBilder <\/b>heißen. Wir statten es zunächst mit einer Schaltfläche aus, mit der Sie einen Dateiauswahl-Dialog anzeigen können. Diese erhält die Beschriftung Dateien hinzufügen <\/b>und den Namen cmdDateienHinzufuegen<\/b>. Eine weitere Schaltfläche mit der Beschriftung Datei exportieren <\/b>und dem Namen cmdDateiexport <\/b>legen Sie gleich daneben an. Das Formular enthält außerdem ein Unterformular-Steuerelement, welches das Unterformular sfmOLEBilder <\/b>aufnimmt. Dieses Formular verwendet die soeben erstellte Tabelle tblOLEBilder <\/b>als Datenherkunft und zeigt diese in der Datenblatt-Ansicht an. Im Entwurf sieht das Formular wie in Bild 2 aus.<\/p>\n
Bild 2: Formular zum Importieren und Exportieren von Bilddateien<\/p>\n Die Schaltfläche cmdDateiHinzufuegen<\/b> löst die Prozedur aus Listing 1 aus. Diese deklariert zunächst zwei Variablen: strDatei nimmt eine durch das Tabulator-Zeichen getrennte Liste mehrere Dateien auf, strDateien() ist ein String-Array, dass jeweils einen der durch die Tabulator-Zeichen getrennten Zeichenketten pro Datenfeld aufnimmt. Was steckt dahinter Wir verwenden eine Funktion namens OpenFileNameMultipe <\/b>zum Anzeigen eines Dateiauswahl-Dialogs, der die Auswahl mehrerer Dateien gleichzeitig erlaubt. Diese Funktion ist so ähnlich aufgebaut wie die aus dem Artikel Dialog zur Auswahl von Dateien anzeigen<\/b>. Sie finden diese Funktion im Modul mdlTools <\/b>der Beispieldatenbank.<\/p>\n Listing 1: Vorbereitungen für das Einlesen einer oder mehrerer Dateien in ein OLE-Feld<\/p>\n Der Aufruf der Funktion OpenFileNameMultiple <\/b>erwartet als Parameter das Startverzeichnis (hier das mit CurrentProject.Path <\/b>ermittelte aktuelle Anwendungsverzeichnis), einen Titel sowie die Angabe des Filters für die anzuzeigenden Dateien.<\/p>\n Das Ergebnis des Dialogs, der etwa wie in Bild 3 aussieht, ist die erwähnte Zeichenkette, welche Pfad und Name aller ausgewählten Dateien getrennt durch das Tabulator-Zeichen enthält. Wir verwenden nun die Split-Funktion von VBA, um die einzelnen Elemente dieser Zeichenkette auf die Felder eines Arrays aufzuteilen, und zwar genau an den Tabulator-Zeichen, die durch die Zeichenkonstante vbTab <\/b>identifiziert werden.<\/p>\n Bild 3: Dialog zum Auswählen der zu importierenden Dateien<\/p>\n Dieses Array durchlaufen wir nun in einer For…Next<\/b>-Schleife, die den Index des ersten Elements mit der LBound<\/b>-Funktion ermittelt und den des letzten Elements mit UBound<\/b>. Für alle in den Feldern enthaltenen Dateinamen ruft die Prozedur jeweils einmal eine weitere Routine namens DateiEinlesen <\/b>auf.<\/p>\n Diese finden Sie in Listing 2. Die Prozedur erwartet den Dateinamen als Parameter. Sie deklariert ein Database<\/b>– und ein Recordset<\/b>-Objekt, um per DAO auf die Tabelle tblOLEBilder <\/b>zugreifen und das neue Bild in einen neuen Datensatz einfügen zu können. Das dazu erstellte Recordset liefert allerdings keine Datensätze, da es als Kriterium den Ausdruck 1=2 verwendet. Der Grund ist, dass diese Prozedur lediglich einen Datensatz anfügen soll und nicht auf vorhandene Datensätze zugreift. Die Variable lngFileID <\/b>nimmt die Nummer auf, mit der die später einzulesende Datei beim öffnen gekennzeichnet wird. Damit eine noch nicht verwendete Nummer für den Zugriff verwendet wird, ermitteln wir diese mit der VBA-Funktion FreeFile<\/b> und speichern sie in lngFileID<\/b>.<\/p>\n Listing 2: Einlesen einer Datei in ein OLE-Feld<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/a><\/p>\nEinlesen einer Bilddatei<\/h2>\n
Private Sub <\/span>cmdDateienHinzufuegen_Click()\r\n Dim <\/span>strDatei As String<\/span>\r\n Dim <\/span>strDateien() As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n strDatei = OpenFileNameMultiple(CurrentProject.Path, \"Bild auswählen\", _\r\n \"Bilddateien (*.png;*.bmp,*.jpg,*.tif,*.gif)|Alle Dateien (*.*)\")\r\n strDateien = Split<\/span>(strDatei, vbTab)\r\n For i = LBound<\/span>(strDateien) To UBound<\/span>(strDateien)\r\n DateiEinlesen strDateien(i)\r\n Next<\/span> i\r\nEnd Sub<\/span><\/pre>\n<\/a><\/p>\nBilddatei einlesen<\/h2>\n
Public Sub <\/span>DateiEinlesen(strDatei As String<\/span>)\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>lngFileID As Long<\/span>\r\n Dim <\/span>Buffer() As Byte<\/span>\r\n Dim <\/span>lngFileLen As Long<\/span>\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> rst = db.OpenRecordset(\"SELECT * FROM tblOLEBilder WHERE 1=2\", dbOpenDynaset)\r\n rst.AddNew<\/span>\r\n lngfileid = FreeFile\r\n Open strDatei For Binary Access Read Lock Read Write As <\/span>lngFileID\r\n lngFileLen<\/span> = LOF(lngFileID)\r\n ReDim Buffer(lngFileLen)\r\n rst.AddNew<\/span>\r\n rst!OLEBild = Null\r\n rst!Bildname = Mid<\/span>(strDatei, InStrRev<\/span>(strDatei, \"\\\") + 1)\r\n Get lngfileid, , Buffer\r\n rst!OLEBild.AppendChunk Buffer\r\n rst.Update\r\n rst.Close\r\n Set<\/span> rst = Nothing\r\n Set<\/span> db = Nothing\r\n Me!sfmOLEBilder.Form.Requery\r\nEnd Sub<\/span><\/pre>\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