Im Artikel ” Access und SQL Server-FileTables” (www.vbentwickler.de\/489) haben wir gezeigt, wie man einer SQL Server-Datenbank eine sogenannte FileTable-Tabelle hinzufügt, in der man Dateien speichern kann, die gleichzeitig in einem vom SQL Server verwalteten Verzeichnis liegen. Im vorliegenden Artikel kommt nun Microsoft Access als Frontend ins Spiel, mit dem wir nicht nur die Dateien in der FileTable-Tabelle im SQL Server verwalten wollen, sondern wir möchten diese am Beispiel von Bilddateien auch in Access-Formularen anzeigen. Letzteres ist leicht realisierbar, denn wir können dem Bild-Steuerelement einfach den Pfad zu der jeweiligen Datei in dem von SQL Server verwalteten Bereich des Dateisystems zuweisen. Etwas aufwendiger ist es, erst einmal über Access an diese Daten in der FileTable-Tabelle zu gelangen. Wie dies gelingt und wie wir die darin gespeicherten Dateien letztlich verwalten können, zeigen wir auf den folgenden Seiten.<\/b><\/p>\n
Zugriff auf FileTables von Access über eine per ODBC verknüpfte Tabelle<\/h2>\n
Erst einmal die schlechte Nachricht vorneweg: Ein Zugriff auf die FileTable<\/b>-Tabelle als eingebundene Tabelle in Access ist nicht möglich.<\/p>\n
Die Tabelle lässt sich zwar einbinden und wir können uns auch den Entwurf ansehen (siehe Bild 1).<\/p>\n
![\"Entwurfsansicht](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_001.png\")
<\/p>\n
Bild 1: Entwurfsansicht einer per ODBC eingebundenen FileTable-Tabelle<\/span><\/b><\/p>\n Aber wir erhalten keinen Zugriff auf die Daten, sondern die Fehlermeldung ODBC-Aufruf fehlgeschlagen<\/b>, wenn wir versuchen, die Tabelle in der Datenblattansicht anzuzeigen (siehe Bild 2).<\/p>\n Bild 2: Versuch, die Tabellenverknüpfung mit der FileTable-Tabelle in der Datenblattansicht zu öffnen<\/span><\/b><\/p>\n Woran liegt dies und wie kann man das ändern? Es sollte einen Weg geben, denn Microsoft propagiert ja nicht umsonst seit Jahren, dass man für den Zugriff auf SQL Server-Datenbanken ODBC und DAO nutzen soll.<\/p>\n Mit ADODB können wir problemlos auf die Daten dieser Tabelle zugreifen.<\/p>\n Aber nun wenden wir uns wieder der Frage zu, woran der Zugriff per ODBC-verknüpfter Tabelle und per DAO scheitert.<\/p>\n Das Problem wird durch die beiden Felder path_locator <\/b>und parent_path_locator <\/b>der FileTable<\/b>-Tabelle ausgelöst. Diese haben den Datentyp hierarchyid<\/b>, der interessanterweise eine Methode namens ToString() <\/b>bereitstellt. Und siehe da – mit einer gespeicherten Prozedur gelingt auch der Zugriff per DAO. Diese legen wir wie folgt für die Datenbank mit der FileTable<\/b>-Tabelle an:<\/p>\n Danach legen wir eine neue Abfrage an, die wir in eine PassThrough-Abfrage umwandeln. In dieser legen wir den folgenden SQL-Befehl fest:<\/p>\n Außerdem hinterlegen wir für die Eigenschaft ODBC-Verbindung <\/b>die Verbindungszeichenfolge zum SQL Server, die beispielsweise wie in Bild 3 aussieht.<\/p>\n Bild 3: PassThrough-Abfrage für den Zugriff auf eine gespeicherte Prozedur<\/span><\/b><\/p>\n Und siehe da: Die Pass-Through-Abfrage pt_spFileTable <\/b>liefert alle gewünschten Daten (siehe Bild 4), sogar die aus den Feldern path_locator <\/b>und parent_path_locator<\/b>.<\/p>\n Bild 4: Ergebnis der PassThrough-Abfrage<\/span><\/b><\/p>\n In einer reinen Access-Anwendung würde man, um zu einem Produkt eines oder mehrere Bilder anzuzeigen, den Pfad zur Bilddatei an der entsprechenden Stelle unterbringen.<\/p>\n Wenn es nur ein Produktbild geben soll, könnte man dieses direkt in die Tabelle tblProdukte <\/b>integrieren, andernfalls würde man eine Tabelle namens tblProduktbilder <\/b>hinzufügen, in der beispielsweise ein Feld namens Bildbeschreibung <\/b>und ein weiteres namens Bildpfad <\/b>gespeichert werden.<\/p>\n Diese Tabelle, nennen wir sie tblProduktbilder<\/b>, würde dann über ein Fremdschlüsselfeld namens ProduktID <\/b>mit der Tabelle tblProdukte <\/b>verknüpft werden.<\/p>\n Gehen wir also zunächst davon aus, dass wir eine sehr einfache Tabelle namens tblProdukte <\/b>im SQL Server angelegt haben, deren Entwurf in Bild 5 zu sehen ist.<\/p>\n Bild 5: Entwurf der Tabelle tblProdukte im SQL Server<\/span><\/b><\/p>\n Außerdem aktivieren wir für das Feld ProduktID <\/b>den Autowert über die Eigenschaft Identitätsspezifikation<\/b>, die wir unten in den Spalteneigenschaften dieses Feldes finden.<\/p>\n In den folgenden Abschnitten schauen wir uns gleich beide Konstellationen an:<\/p>\n Als Erstes legen wir eine neue FileTable<\/b>-Tabelle an, die tblProduktbilder <\/b>heißen soll.<\/p>\n Dazu verwenden wir die folgende T-SQL-Anweisung, die zunächst die grundlegende FileTable<\/b>-Tabelle erstellt und für diese das Verzeichnis Produktbilder <\/b>zu dem Verzeichnis für die Dateien der FileTable<\/b>-Tabellen des SQL Servers hinzufügt, das wir wie im Artikel Access und SQL Server-FileTables <\/b>(www.vbentwickler.de\/489<\/b>) beschrieben angelegt haben:<\/p>\n Leider können wir einer FileTable<\/b>-Tabelle keine eigenen Spalten hinzufügen, sonst hätten wir wie üblich ein Primärschlüsselfeld wie ProduktID <\/b>und gegebenenfalls noch ein Feld wie Bildbeschreibung hinzufügen können.<\/p>\n Stattdessen können wir aber auch das Primärschlüsselfeld der FileTable<\/b>-Tabelle verwenden, um die Tabelle tblProdukte <\/b>über ein geeignetes Fremdschlüsselfeld damit zu verknüpfen.<\/p>\n Dazu fügen wir der Tabelle tblProdukte <\/b>mit der folgenden T-SQL-Anweisung im SQL Server Management Studio das Feld ProduktbildID<\/b> hinzu:<\/p>\n Danach führen wir die folgende Anweisung aus, um eine Beziehung zwischen den beiden Tabellen herzustellen:<\/p>\n Das Feld ProduktbildID <\/b>der Tabelle tblProdukte <\/b>verweist nun auf das Primärschlüsselfeld stream_id <\/b>der Tabelle tblProduktbilder<\/b>.<\/p>\n Nun erstellen wir eine gespeicherte Prozedur, die uns die Daten der Tabelle tblProduktbilder <\/b>in den nachfolgend beschriebenen Feldern liefert:<\/p>\n Die gespeicherte Prozedur erstellen wir mit dieser Anweisung (zum späteren Ändern muss CREATE <\/b>durch ALTER <\/b>ersetzt werden):<\/p>\n Sie filtert außerdem nach dem Wert png <\/b>für das Feld file_type <\/b>und liefert nur Dateien zurück (is_directory = 0<\/b>).<\/p>\n Nachdem wir dem Verzeichnis einige Beispielbilder hinzugefügt haben, können wir die gespeicherte Prozedur mit EXEC spProduktbilder <\/b>ausführen und erhalten das Ergebnis aus Bild 6.<\/p>\n Bild 6: Gespeicherte Prozedur, die alle .png-Dateien liefert<\/span><\/b><\/p>\n Damit wechseln wir zur Access-Anwendung. Dieser fügen wir eine Tabellenverknüpfung zur SQL Server-Tabelle tblProdukte <\/b>hinzu.<\/p>\n Außerdem legen wir eine PassThrough-Abfrage namens pt_spProduktbilder <\/b>an, mit der wir die Daten der gespeicherten Prozedur spProduktbilder <\/b>in Access verfügbar machen wollen.<\/p>\n Öffnen wir diese PassThrough-Abfrage, sehen wir in der Datenblattansicht die gleichen Daten, welche die gespeicherte Prozedur im SQL Server Management Studio geliefert hat (siehe Bild 7).<\/p>\n Bild 7: PassThrough-Abfrage, die alle Daten der gespeicherten Prozedur spProduktbilder liefert<\/span><\/b><\/p>\n Nun stellt sich die Frage, wie wir einem Produkt ein Bild hinzufügen können. Dies geschieht durch folgende Aktionen:<\/p>\n Die Bilddatei, die wir der FileTable<\/b>-Tabelle hinzufügen wollen, wollen wir per Dateiauswahl-Dialog ermitteln.<\/p>\n Dazu nutzen wir die folgende Funktion, welche die FileDialog<\/b>-Klasse der Office<\/b>-Bibliothek nutzt. Diese Bibliothek müssen wir zunächst über den Verweise<\/b>-Dialog des VBA-Editors zum Projekt hinzufügen. Die Bibliothek heißt Microsoft Office 16.0 Object Library<\/b>.<\/p>\n Die Funktion zum Anzeigen und Auslesen des Dateidialogs legen wir wie folgt an:<\/p>\n Zum Hinzufügen eines Bildes zur Tabelle tblProduktbilder<\/b> können wir zunächst die folgende T-SQL-Anweisung nutzen:<\/p>\n In dieser sind sowohl der Name des Bildes in der Tabelle tblProduktbilder <\/b>als auch der Pfad, aus dem das Bild bezogen werden soll, fest verdrahtet.<\/p>\n In der Praxis müssen wir diese Werte jedoch variabel einfügen können. Wir müssen also eine Möglichkeit finden, wie wir dem SQL Server die notwendigen Daten übergeben.<\/p>\n Die erste Idee dazu ist, eine gespeicherte Prozedur anzulegen, welche die entsprechenden Parameter entgegennimmt und diesen Befehl ausführt.<\/p>\n Das ist aus verschiedenen Gründen problematisch, zum Beispiel weil wir den Pfad der einzufügenden Datei in dieser Anweisung nicht einfach als Parameter einfügen können (das ist eine technische Limitierung dieser speziellen Anweisung).<\/p>\n Wir müssten die Anweisung als SQL-String zusammenstellen und sie dann mit sp_executesql <\/b>ausführen.<\/p>\n Wenn wir die Anweisung mit fest vorgegebenem Pfad in einer gespeicherten Prozedur angeben würden, könnten wir anschließend leicht den Wert des Primärschlüsselfeldes für die Tabelle tblProduktbilder <\/b>ermitteln (das Primärschlüsselfeld in FileTable<\/b>-Tabellen ist übrigens das Feld path_locator<\/b>).<\/p>\n Dazu könnten wir die folgende Abfrage nutzen:<\/p>\n Wenn wir die Anweisung allerdings als Parameter von sp_executesql <\/b>ausführen, findet dies in einem anderen Kontext statt als der, auf den wir mit SELECT SCOPE_IDENTITY <\/b>zugreifen können. Wir müssten also anderweitig ermitteln, welcher Datensatz soeben angelegt wurde.<\/p>\n Dazu können wir zum Beispiel eine Abfrage verwenden, die den Datensatz mit einem Kriterium ermittelt, das den Inhalt des Feldes name <\/b>des neuen Datensatzes enthält.<\/p>\n Und auch das ist nur eindeutig, wenn wir die FileTable<\/b>-Tabelle nur zum einfachen Ablegen von Dateien nutzen, ohne Unterverzeichnisse zu verwenden – denn dann könnten wiederum mehrere Datensätze den gleichen Wert im Feld name <\/b>enthalten, bei unterschiedlichem Wert im Feld parent_path_locator<\/b>.<\/p>\n Vorausgesetzt, dass wir die Dateien nur im Hauptverzeichnis der FileTable<\/b>-Tabelle ablegen, was in den meisten Fällen kein Problem ist, können wir mit diesem Wissen auch gleich eine VBA-Funktion anlegen, welche die T-SQL-Anweisung zum Hinzufügen der Datei zur FileTable<\/b>-Tabelle hinzufügt und aufgrund des Wertes im Feld name beispielsweise den Wert des Feldes stream_id <\/b>des neu hinzugefügten Datensatzes ermittelt.<\/p>\n Diesen können wir dann nutzen, um die Tabelle tblProdukte mit dem entsprechenden Datensatz der Tabelle tblProduktbilder zu verknüpfen.<\/p>\n Also legen wir eine Funktion an, die eine entsprechende SQL-Anweisung zusammenstellt, diese in eine temporäre PassThrough-Abfrage schreibt, ein Recordset auf Basis dieser Abfrage erstellt und damit die ID des angelegten Datensatzes ermittelt.<\/p>\n Diese Funktion finden wir in Listing 1. Die Funktion erwartet die beiden folgenden Parameter:<\/p>\n Listing 1: Anlegen eines neuen Bildes in der Tabelle tblProduktbilder<\/span><\/b><\/p>\n Die Prozedur stellt zunächst in der Variablen strConnect <\/b>die Verbindungszeichenfolge für die SQL Server-Datenbank zusammen. Diese musst Du gegebenenfalls an Deine Konstellation anpassen.<\/p>\n Danach stellt sie in der Variablen strSQL <\/b>die auszuführenden Anweisungen zusammen. Wenn wir vom Wert c:\\pic001.png<\/b> für strBildpfad <\/b>und pic001.png <\/b>für strBildname <\/b>ausgehen, würde der Inhalt von strSQL wie folgt aussehen:<\/p>\n Danach holt die Funktion einen Verweis auf das aktuelle Database<\/b>-Objekt in die Variable db <\/b>und legt mit dessen Methode CreateQueryDef<\/b> eine neue, temporäre Abfrage in der Variablen qdf <\/b>an.<\/p>\n Für dieses QueryDef<\/b>-Objekt stellt sie dann die Eigenschaft Connect <\/b>auf die Verbindungszeichenfolge aus strConnect <\/b>ein. Die Einstellung True <\/b>für die Eigenschaft ReturnsRecords <\/b>legt fest, dass die enthaltenen Anweisungen ein Ergebnis zurückliefern sollen.<\/p>\n Für die Eigenschaft SQL <\/b>übergeben wir die Anweisungen aus strSQL<\/b>. Schließlich führen wir die Abfrage mit der OpenRecordset<\/b>-Methode aus und referenzieren das resultierende Recordset mit der Variablen rst<\/b>.<\/p>\n Wenn das Recordset vorhanden und nicht leer ist, lesen wir daraus den Wert des ersten Feldes aus, den wir im Falle des Wertes NULL <\/b>noch mit der Nz<\/b>-Funktion durch eine leere Zeichenkette ersetzen. Das Ergebnis speichern wir in der Variablen strStreamID<\/b>.<\/p>\n Danach schließen wir das Recordset und leeren die verwendeten Objektvariablen. Die Funktion gibt den Wert aus strStreamID <\/b>als Ergebnis zurück.<\/p>\n Der testweise Aufruf dieser Funktion erfolgt so:<\/p>\n Die Prozedur füllt die Parameter strBildpfad <\/b>und strBildname <\/b>mit den Testwerten und ruft damit die Funktion auf. Das Ergebnis wird direkt der Variablen strStreamID <\/b>zugewiesen, deren Inhalt wir am Ende mit Debug.Print <\/b>im Direktbereich des VBA-Editors ausgeben.<\/p>\n Rufen wir diese Prozedur einmalig auf, legt diese erfolgreich einen Datensatz in der Tabelle tblProduktbilder <\/b>an. Beim erneuten Aufruf mit den gleichen Parametern erhalten wir allerdings den Fehler ODBC-Aufruf fehlgeschlagen<\/b> in der folgenden Zeile:<\/p>\n Wir fassen diese Zeile in eine Fehlerbehandlung ein, um den genauen Fehler zu ermitteln:<\/p>\n Der Fehler lautet:<\/p>\n Logisch: Wir versuchen, erneut einen Datensatz einzufügen, dessen Dateiname im eindeutigen Feld name <\/b>bereits vorhanden ist.<\/p>\n Also fügen wir direkt hinter dem Deklarationsbereich der Funktion noch eine Bedingung ein, die prüft, ob bereits ein Datensatz mit dem angegebenen Bildnamen in der Tabelle tblProduktbilder <\/b>vorhanden ist, und den Benutzer fragt, ob das vorhandene Bild gelöscht werden soll. <\/p>\n Dazu erstellen wir im SQL Server zunächst eine gespeicherte Prozedur, die das Löschen des Bildes durchführt und den Wert des Feldes name<\/b> als Parameter erwartet.<\/p>\n Die gespeicherte Prozedur legen wir wie folgt an:<\/p>\n Die gespeicherte Prozedur ermittelt zunächst den Wert des Feldes stream_id <\/b>des Datensatzes der Tabelle tblProduktbilder <\/b>für den mit dem Parameter @Bildname <\/b>übergebenen Dateinamen und speichert diesen in der Variablen @stream_id<\/b>.<\/p>\n Dann aktualisiert sie den Datensatz der Tabelle tblProdukte<\/b>, dem dieser Wert von @stream_id <\/b>im Feld ProduktbildID <\/b>zugeordnet ist, indem sie den Wert dieses Feldes auf NULL <\/b>einstellt.<\/p>\n Wir erinnern uns: Weiter oben haben wir für die Tabellen tblProdukte <\/b>und tblProduktbilder <\/b>eine Beziehung mit referenzieller Integrität definiert. Wenn wir einen Datensatz der Tabelle tblProduktbilder <\/b>einem Datensatz der Tabelle tblProdukte <\/b>zugeordnet haben, können wir diesen also nicht einfach löschen. Daher müssen wir die Beziehung vor dem Löschen zunächst aufheben, was wir erledigen, indem wir den Wert des Fremdschlüsselfeldes ProduktbildID <\/b>der Tabelle tblProdukte <\/b>leeren. Dann löscht die gespeicherte Prozedur den entsprechenden Datensatz aus der Tabelle tblProduktbilder <\/b>und gibt die Anzahl der gelöschten Datensätze mit dem Parameter @rows_deleted <\/b>zurück.<\/p>\n In der Funktion ProduktbildEinfuegen_PT <\/b>fügen wir direkt hinter den Deklarationszeilen nun Folgendes hinzu:<\/p>\n Die DLookup<\/b>-Funktion nutzt die PassThrough-Abfrage, die wir bereits weiter oben angelegt haben, um die Bilder samt Pfad und ID auszulesen, und liefert die ID eines Datensatzes zurück, der im Feld Bildname <\/b>den Wert aus strBildname <\/b>enthält.<\/p>\n Ist das Ergebnis nicht Null<\/b>, ruft die Funktion eine weitere Funktion namens BildLoeschen <\/b>auf und übergibt dieser den Bildnamen aus strBild<\/b>.<\/p>\n Liefert diese einen Wert größer 0<\/b> zurück, wurde die Datei erfolgreich gelöscht und wir können die Datei neu anlegen. Anderenfalls wird die Funktion mit einer entsprechenden Meldung verlassen.<\/p>\n Die Funktion zum Löschen des Bildes ist wie in Listing 2 aufgebaut. Sie erwartet den Bildnamen als Parameter und erstellt ähnlich wie die Funktion ProduktbildEinfuegen_PT <\/b>eine temporäre PassThrough-Abfrage, dieses Mal aber mit der gespeicherten Prozedur spDELETEProduktbild<\/b>.<\/p>\n Listing 2: Funktion zum Löschen eines Eintrags der Tabelle tblProduktbilder<\/span><\/b><\/p>\n Außerdem wird die gespeicherte Prozedur hier nicht mit OpenRecordset <\/b>geöffnet, sondern sie wird mit Execute <\/b>ausgeführt.<\/p>\n Die Funktion legt zunächst wieder die Verbindungszeichenfolge fest und öffnet die Connection.<\/p>\n Dann erstellt sie ein neues ADODB.Command<\/b>-Objekt, weist die Verbindungszeichenfolge zu und legt fest, dass die gespeicherte Prozedur spDELETEProduktbild <\/b>ausgeführt werden soll.<\/p>\n Dann legt sie zuerst den Rückgabeparameter ReturnValue <\/b>als Integer <\/b>fest und hängt diesen an die Parameters<\/b>-Auflistung des Command<\/b>-Objekts an.<\/p>\n Außerdem definiert sie den Parameter @Bildname<\/b>, der zur Übergabe des Namens des zu löschenden Bildes verwendet werden soll, und weist den Wert aus strBildname <\/b>zu.<\/p>\n Danach führt sie das Command <\/b>mit der Execute<\/b>-Methode aus und liest den Wert des Rückgabeparameters @ReturnValue <\/b>als Funktionsergebnis ein.<\/p>\n Rufen wir diese Funktion nun mit der folgenden Anweisung auf, erhalten wir gleich die Anzahl der gelöschten Einträge als Ergebnis:<\/p>\n Diesen Prozess wollen wir direkt in einem Formular abbilden, das wir frmProdukte <\/b>nennen.<\/p>\n Hier würden wir bei Verwendung von Access-Tabellen eine Abfrage als Datensatzquelle des Formulars verwenden, die etwa wie die Abfrage qryProdukteMitBildpfad <\/b>in Bild 8 aufgebaut ist und die genau die Daten liefert, die wir im Formular anzeigen wollen – nämlich die Daten der Tabelle tblProdukte <\/b>und zusätzlich den Pfad zu der zu dem Produkt gehörenden Bilddatei aus der FileTable<\/b>-Tabelle tblProduktbilder<\/b>.<\/p>\n Bild 8: Abfrage für Produkte mit Bildern<\/span><\/b><\/p>\n Allerdings verwenden wir hier als eine der zugrunde liegenden Quellen eine PassThrough-Abfrage auf Basis der gespeicherten Prozedur spProduktbilder<\/b>, die wir bereits weiter oben erstellt haben. Würde die Abfrage auf reinen Access-Tabellen bestehen, könnten wir diese sogar noch bearbeiten.<\/p>\n Die Ergebnisse einer PassThrough-Abfrage sind aber grundsätzlich nicht editierbar. Deshalb müssen wir hier einen etwas komplizierteren Weg als bei der Verwendung mit reinen Access-Tabellen einschlagen.<\/p>\n Dabei binden wir das Formular über die Eigenschaft Datensatzquelle <\/b>einfach nur an die Tabelle tblProdukte<\/b>. Aus dieser ziehen wir die Felder ProduktID<\/b>, Produkt <\/b>und Einzelpreis <\/b>in den Formularentwurf. Zusätzlich fügen wir ein Textfeld namens txtBildpfad <\/b>und ein Bild-Steuerelement namens picProdukt <\/b>hinzu sowie eine Schaltfläche namens cmdDateiauswahl<\/b>. <\/p>\n Danach sieht der Formularentwurf wie in Bild 9 aus.<\/p>\n Bild 9: Formular zur Anzeige von Produkten mit Produktbild<\/span><\/b><\/p>\n Nun benötigen wir aber noch den Pfad des Bildes, um diesen im Textfeld txtBildpfad<\/b> und im Bild-Steuerelement picProdukt <\/b>anzuzeigen. Diesen ermitteln wir mit der Abfrage aus Bild 10.<\/p>\n Bild 10: Abfrage der Produktbilder<\/span><\/b><\/p>\n Die Abfrage ist ähnlich wie die Abfrage aufgebaut, die wir eigentlich als Datensatzquelle für das Formular nutzen wollten, aber sie enthält nur noch die notwendigsten Felder, nämlich ProduktID <\/b>und Bildpfad<\/b>. Die ProduktID <\/b>benötigen wir, um den passenden Datensatz zum aktuell angezeigten Produkt zu ermitteln. Das Feld Bildpfad <\/b>aus der gespeicherten Prozedur pt_spProduktbilder <\/b>liefert uns den Pfad der anzuzeigenden Bilddatei.<\/p>\n Damit das Formular jeweils das Bild zum aktuellen Produkt ermittelt, benötigen wir eine Prozedur, die beim Anzeigen eines jeden Datensatzes ausgelöst wird. Dazu nutzen wir das Ereignis Beim Anzeigen<\/b>, für das wir die Ereignisprozedur aus Listing 3 hinterlegen.<\/p>\n Listing 3: Laden und Zuweisen des Bildpfads<\/span><\/b><\/p>\n Diese ermittelt per DLookup <\/b>den Bildpfad aus der Abfrage qryProduktbilder<\/b>, dessen Feld ProduktID <\/b>mit dem Wert des gleichnamigen Feldes des aktuell angezeigten Produkts übereinstimmt, und schreibt diesen in die Eigenschaft Steuerelementinhalt <\/b>der beiden Steuerelemente txtBildpfad <\/b>und picProdukt<\/b>.<\/p>\n Allerdings haben wir nun noch keine Bilder über das Formular hinzugefügt. Das haben wir bisher nur testweise über die Prozedur Test_ProduktbildEinfuegen_PT <\/b>erledigt, welche die Funktion ProduktbildEinfügen_PT<\/b> aufgerufen und damit die angegebene Bilddatei in der FileTable<\/b>-Tabelle tblProduktbilder <\/b>gespeichert hat.<\/p>\n Nun wollen wir für die Schaltfläche cmdDateiauswahl <\/b>eine Funktionalität hinterlegen, die das gewählte Bild anlegt, den Wert des Feldes Stream_ID <\/b>des neuen Datensatzes in der FileTable<\/b>-Tabelle tblProduktbilder <\/b>ermittelt und diesen gleich dem Feld ProduktbildID <\/b>des aktuellen Datensatzes der Tabelle tblProdukte <\/b>zuweist, damit die Verbindung zwischen den Datensätzen der Tabellen tblProdukte <\/b>und tblProduktbilder <\/b>hergestellt ist.<\/p>\n Das erledigen wir mit der Ereignisprozedur, die durch das Ereignis Beim Klicken <\/b>der Schaltfläche cmdDateiauswahl<\/b> ausgelöst wird (siehe Listing 4).<\/p>\n![\"Versuch,](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_002.png\")
<\/p>\nCREATE PROC [dbo].[spFileTable_name]\r\nAS\r\nSELECT stream_id, file_stream, name, path_locator.ToString() AS PathLocator, \r\n parent_path_locator.ToString() AS ParentPathLocator, file_type, is_directory FROM dbo.tblFiletable;<\/pre>\n
EXEC spFileTable_name<\/pre>\n
![\"PassThrough-Abfrage](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_015.png\")
<\/p>\nODBC;DRIVER={ODBC Driver 18 for SQL Server};SERVER=AMVDESKTOP2023\\SQLEXPRESS;DATABASE=FileTableDB;Trusted_Connection=Yes;TrustServerCertificate=Yes;OPTION=3;LOG_QUERY=1;<\/pre>\n![\"Ergebnis](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_016.png\")
<\/p>\nBeispiel Produktbilder<\/h2>\n
![\"Entwurf](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_017.png\")
<\/p>\nZwei Beispiele: Ein Bild und mehrere Bilder je Produkt<\/h2>\n
\n
Beispiel: Ein Bild je Produkt<\/h2>\n
CREATE TABLE dbo.tblProduktbilder\r\nAS FILETABLE\r\nWITH\r\n(\r\n FILETABLE_DIRECTORY = N''Produktbilder'',\r\n FILETABLE_COLLATE_FILENAME = database_default\r\n);<\/pre>\n
ALTER TABLE dbo.tblProdukte\r\nADD ProduktbildID UNIQUEIDENTIFIER NULL;<\/pre>\n
ALTER TABLE dbo.tblProdukte\r\nADD CONSTRAINT FK_tblProdukte_tblProduktbilder\r\n FOREIGN KEY (ProduktbildID)\r\n REFERENCES dbo.tblProduktbilder (stream_id);<\/pre>\n
\n
CREATE PROC dbo.spProduktbilder\r\nAS\r\nSELECT stream_id AS ProduktbildID, \r\n name As <\/span>Bildname,\r\n CONCAT(FileTableRootPath(), file_stream.GetFileNamespacePath()) As <\/span>Bildpfad\r\nFROM tblProduktbilder\r\nWHERE file_type = ''png'' AND is_directory = 0<\/pre>\n![\"Gespeicherte](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_018.png\")
<\/p>\nGespeicherte Prozedur für Bilder per PassThrough-Abfrage in Access verfügbar machen<\/h2>\n
![\"PassThrough-Abfrage,](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_019.png\")
<\/p>\nProdukte und Produktbilder verwalten<\/h2>\n
\n
Auswahl der gewünschten Bilddatei<\/h2>\n
Public Function <\/span>ChooseFolder() As String<\/span>\r\n Dim <\/span>objFileDialog As <\/span>Office.FileDialog\r\n Dim <\/span>strTemp As String<\/span>\r\n Set<\/span> objFileDialog = _\r\n Application.FileDialog( _\r\n msoFileDialogFilePicker)\r\n With<\/span> objFileDialog\r\n .Title = \"Datei auswählen\"\r\n .ButtonName = \"Auswählen\"\r\n .InitialFilename = CurrentProject.Path & \"\\\"\r\n .Filters.Clear\r\n .Filters.Add \"Bilddateien\", \"*.png\"\r\n If <\/span>.Show = True<\/span> Then<\/span>\r\n strTemp = .SelectedItems(1)\r\n End If<\/span>\r\n End With<\/span>\r\n ChooseFolder = strTemp\r\nEnd Function<\/span><\/pre>\nHinzufügen der Bilddatei zur Tabelle tblProduktbilder<\/h2>\n
INSERT INTO dbo.tblProduktbilder (name, file_stream)\r\nOUTPUT inserted.stream_id\r\nSELECT ''pic001.png'', BulkColumn\r\nFROM OPENROWSET(\r\n BULK C:\\pic001.png,\r\n SINGLE_BLOB\r\n) AS FileData;<\/pre>\n
SELECT SCOPE_IDENTITY() AS ID<\/pre>\n
Wert des Feldes stream_id für den neuen Datensatz ermitteln<\/h2>\n
Public Function <\/span>ProduktbildEinfuegen_PT(ByVal strBildpfad As String<\/span>, ByVal strBildname As String<\/span>) As String<\/span>\r\n Dim <\/span>db As <\/span>DAO.Database\r\n Dim <\/span>qdf As <\/span>DAO.QueryDef\r\n Dim <\/span>rst As <\/span>DAO.Recordset\r\n Dim <\/span>strSQL As String<\/span>\r\n Dim <\/span>strConnect As String<\/span>\r\n Dim <\/span>strStreamID As String<\/span>\r\n strConnect = \"ODBC;Driver=ODBC Driver 18 for SQL Server;Server=amvDesktop2023\\SQLEXPRESS;\" _\r\n & \"Database=FileTableDB;Trusted_Connection=yes;Encrypt=no;\"\r\n strSQL = \"INSERT INTO dbo.tblProduktbilder (name, file_stream)\" & vbCrLf<\/span>\r\n strSQL = strSQL & \"OUTPUT inserted.stream_id\" & vbCrLf<\/span>\r\n strSQL = strSQL & \"SELECT ''\" & strBildname & \"'', BulkColumn\" & vbCrLf<\/span>\r\n strSQL = strSQL & \"FROM OPENROWSET(\" & vbCrLf<\/span>\r\n strSQL = strSQL & \" BULK ''\" & strBildpfad & \"'',\" & vbCrLf<\/span>\r\n strSQL = strSQL & \" SINGLE_BLOB\" & vbCrLf<\/span>\r\n strSQL = strSQL & \") AS FileData;\"\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> qdf = db.CreateQueryDef(\"\")\r\n With<\/span> qdf\r\n .Connect = strConnect\r\n .ReturnsRecords = True<\/span>\r\n .SQL = strSQL\r\n Set<\/span> rst = .OpenRecordset(dbOpenSnapshot)\r\n End With<\/span>\r\n If <\/span>Not<\/span> rst Is Nothing Then<\/span>\r\n If <\/span>Not<\/span> rst.EOF Then<\/span>\r\n strStreamID = Nz(rst.Fields(0).Value, \"\")\r\n End If<\/span>\r\n rst.Close\r\n End If<\/span>\r\n Set<\/span> rst = Nothing\r\n Set<\/span> qdf = Nothing\r\n Set<\/span> db = Nothing\r\n ProduktbildEinfuegen_PT = strStreamID\r\nEnd Function<\/span><\/pre>\n\n
INSERT INTO dbo.tblProduktbilder (name, file_stream)\r\nOUTPUT inserted.stream_id\r\nSELECT pic001.png, BulkColumn\r\nFROM OPENROWSET(\r\n BULK C:\\pic001.png,\r\n SINGLE_BLOB\r\n) AS FileData;<\/pre>\n
Public Sub <\/span>Test_ProduktbildEinfuegen_PT()\r\n Dim <\/span>strBildpfad As String<\/span>\r\n Dim <\/span>strBildname As String<\/span>\r\n Dim <\/span>strStreamID As String<\/span>\r\n strBildname = \"pic001.png\"\r\n strBildpfad = \"C:\\...\\pic001.png\"\r\n strStreamID = _\r\n ProduktbildEinfuegen_PT(strBildpfad, strBildname)\r\n Debug.Print<\/span> \"Neue Stream_ID: \" & strStreamID\r\nEnd Sub<\/span><\/pre>\nSet<\/span> rst = .OpenRecordset(dbOpenSnapshot)<\/pre>\nOn Error Resume Next<\/span>\r\nSet<\/span> rst = .OpenRecordset(dbOpenSnapshot)\r\nIf <\/span>Not<\/span> Err.Number = 0 Then<\/span>\r\n Debug.Print<\/span> Errors(0).Description\r\nEnd If<\/span>\r\nOn Error GoTo<\/span> 0<\/pre>\n[Microsoft][ODBC Driver 18 for SQL Server][SQL Server]Verletzung der UNIQUE KEY-Einschränkung \"UQ__tblProdu__A236CBB37972D295\". Ein doppelter Schlüssel kann in das dbo.tblProduktbilder-Objekt nicht eingefügt werden. Der doppelte Schlüsselwert ist (<NULL>, pic001.png).<\/pre>\n
CREATE PROC dbo.spDELETEProduktBild\r\n(\r\n @Bildname varchar(50)\r\n)\r\nAS\r\nBEGIN\r\n SET NOCOUNT ON;\r\n DECLARE @stream_id uniqueidentifier;\r\n DECLARE @rows_deleted int;\r\n SELECT @stream_id = stream_id \r\n FROM dbo.tblProduktbilder \r\n WHERE name = @Bildname;\r\n UPDATE dbo.tblProdukte\r\n SET ProduktbildID = NULL\r\n WHERE ProduktbildID = @stream_id;\r\n DELETE FROM dbo.tblProduktbilder\r\n WHERE stream_id = @stream_id;\r\n SET @rows_deleted = @@ROWCOUNT;\r\n RETURN @rows_deleted;\r\nEND;<\/pre>\n
...\r\nIf Not<\/span> IsNull(DLookup(\"ProduktbildID\", _\r\n \"pt_spProduktbilder\", _\r\n \"Bildname=''\" & strBildname & \"''\")) Then\r\n If MsgBox<\/span>(\"Der Bildname ''\" & strBildname _\r\n & \"'' ist bereits vorhanden. Soll die Datei\" _\r\n & \" überschrieben werden?\", _\r\n vbYesNo + vbExclamation, \"Datei vorhanden\") _\r\n = vbYes Then\r\n If <\/span>BildLoeschen(strBildname) > 0 Then<\/span>\r\n MsgBox<\/span> \"Das Bild wurde gelöscht und wird \" _\r\n & \"nun neu angelegt.\"\r\n Else<\/span>\r\n MsgBox<\/span> \"Das Bild konnte nicht gelöscht \" _\r\n & \"werden.\"\r\n Exit Function<\/span>\r\n End If<\/span>\r\n Else<\/span>\r\n MsgBox<\/span> \"Das Bild für das Produkt wurde nicht \" _\r\n & \"gespeichert.\"\r\n Exit Function<\/span>\r\n End If<\/span>\r\nEnd If<\/span>\r\n...<\/pre>\nPublic Function <\/span>BildLoeschen(strBildname As String<\/span>) As Long<\/span>\r\n Dim <\/span>cnn As <\/span>ADODB.Connection\r\n Dim <\/span>cmd As <\/span>ADODB.Command\r\n Dim <\/span>prmReturn As <\/span>ADODB.Parameter\r\n Dim <\/span>strConnection As String<\/span>\r\n \r\n On Error GoTo<\/span> Err_Handler\r\n strConnection = \"Provider=MSOLEDBSQL;Server=amvDesktop2023\\SQLEXPRESS;Database=FileTableDB;Trusted_Connection=Yes;\"\r\n Set<\/span> cnn = New<\/span> ADODB.Connection\r\n cnn.Open strConnection\r\n Set<\/span> cmd = New<\/span> ADODB.Command\r\n cmd.ActiveConnection = cnn\r\n cmd.CommandType = adCmdStoredProc\r\n cmd.CommandText = \"dbo.spDELETEProduktBild\"\r\n Set<\/span> prmReturn = cmd.CreateParameter(\"ReturnValue\", adInteger, adParamReturnValue)\r\n cmd.Parameters.Append prmReturn\r\n cmd.Parameters.Append cmd.CreateParameter(\"@Bildname\", adVarChar, adParamInput, 50, strBildname)\r\n cmd.Execute\r\n BildLoeschen = prmReturn.Value\r\nExit_Handler:\r\n On Error Resume Next<\/span>\r\n Set<\/span> cmd = Nothing\r\n If <\/span>Not<\/span> cnn Is Nothing Then<\/span> cnn.Close: Set<\/span> cnn = Nothing\r\n Exit Function<\/span>\r\nErr_Handler:\r\n Debug.Print<\/span> \"Fehler: \"; Err.Number; Err.Description\r\n Resume Exit_Handler\r\nEnd Function<\/span><\/pre>\nDebug.Print<\/span> BildLoeschen(\"test.png\")<\/pre>\nProdukte plus Produktbilder per Formular anlegen<\/h2>\n
![\"Abfrage](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_020.png\")
<\/p>\n![\"Formular](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_021.png\")
<\/p>\n![\"Abfrage](\"..\/fileadmin\/_temp_\/2026_01\/pic_489_025.png\")
<\/p>\nPrivate Sub <\/span>Form_Current()\r\n Dim <\/span>strBildpfadFileTable As String<\/span>\r\n strBildpfadFileTable = Nz(DLookup(\"Bildpfad\", \"qryProduktbilder\", \"ProduktID = \" & Nz(Me.ProduktID, 0)), \"\")\r\n Me.txtBildpfad = strBildpfadFileTable\r\n Me.picProdukt.Picture = strBildpfadFileTable\r\nEnd Sub<\/span><\/pre>\nBild zu einem Produkt hinzufügen<\/h2>\n
Private Sub <\/span>cmdDateiauswahl_Click()\r\n Dim <\/span>strBildpfad As String<\/span>\r\n Dim <\/span>strBildname As String<\/span>\r\n Dim <\/span>strBildpfadFileTable As String<\/span>\r\n Dim <\/span>strStreamID As String<\/span>\r\n strBildpfad = ChooseFolder\r\n \r\n strBildname = \"pic\" & Format(Me.ProduktID, \"000000\") & \".png\"\r\n Me.Dirty = False<\/span>\r\n strStreamID = ProduktbildEinfuegen_PT(strBildpfad, strBildname)\r\n strStreamID = Replace<\/span>(strStreamID, \"{guid \", \"\")\r\n strStreamID = Replace<\/span>(strStreamID, \"}}\", \"}\")\r\n \r\n Me.ProduktbildID = strStreamID\r\n \r\n strBildpfadFileTable = DLookup(\"Bildpfad\", \"pt_spProduktbilder\", \"ProduktbildID = ''\" & strStreamID & \"''\")\r\n \r\n Me.txtBildpfad = strBildpfadFileTable\r\n Me.picProdukt.Picture = Me.txtBildpfad\r\nEnd Sub<\/span><\/pre>\n