Office: (Office 2013) Lösungsansatz Dateihandling in Bilddatenbank

Hallo Eberhard,

Danke, das bestätigt meine Annahme, schön es aber nochmal vom Experten zu hören.

Das bestärkt mich auch in meiner Absicht, das Datenmodell nochmal zu ändern. Bis jetzt war ich auf sogenannte Bahnbilder fixiert, mit den doch umfangreichen Zusatzinfos. Ich werde für die Bilder eine schmale Tabelle anlegen und für die zusätzlichen Infos zwei Extratabellen anlegen. Eine Eisenbahnspezifisch und eine für allgemeine Fotos. So wird die Anwendung flexibler und das Bildrecordset schmaler.

 

Hallo,
ich habe da so etwas in dieser Richtung. Mit etwas Anpassung könnte es die von dir gesuchte Lösung sein.

 

Hallo,
evtl. wäre das mit etwas Anpassung die von dir gesuchte Lösung

 

Hallo Rainer,

Danke für Dein Beispiel aber das hilft mir nicht. Der Umgang mit Bildern ist nicht das Problem.
Es geht hier darum, wie man Bilddateien in einem Form verfügbar macht, im konkreten Fall um das Einlesen in ein Treeview.

 

Hallo
das verbessern der Tabellenstrucktur ist immer gut, keine Frage. Aber der entscheiden Faktor in deinem Thema ist die Verwendung des fso-objektes, nicht der Vergleich der gefundenen Dateien mit deiner Datenbank. Das Objekt ist halt langsam, das ist auch langsamer als VBA-Dir. Aber es ist einfacher im Code zu händeln.

 

Problem am Sonntag morgen *boah

Bei dem Code, den ich weiter oben gepostet habe, habe ich in der Tabelle mit seinerzeit 17 Spalten das Feld "stg_bildpfad" indiziert, den Code erstellt und alles lief reibungslos.

Jetzt habe ich das Datenmodel umgebaut. Die Bildtabelle 'tbl_Bilder' enthält nur noch zwei Felder:
bld_id = Autowert + PrimaryKey
bld_bildpfad = Text + Indiziert Ja, ohne Duplikate

Nun meldet mir die Maschine bei
Code:

den Laufzeitfehler 3800; Fehlertext: "'bld_bildpfad' ist in dieser Tabelle kein Index"

Was läuft da nun wieder schief??? Hab versucht, mich schlau zu lesen aber komme nicht weiter *frown.gif*

Edith: Wenn ich den Autowert aus der Tabelle entferne und 'bld_bildpfad' als Primärschlüssel definiere, läuft der Code mit 'rsPic.Index = "PrimaryKey"' ebenfalls bestens. Zudem habe ich gelesen, mann müsse den Namen des Index angeben und nicht den des Feldes?

 

Hallo

Tabelle im Entwurfsmodus öffnen, auf icon Indizes klicken und im Popup entsprechend eintragen.

 

Ja mei, wie einfach, wenn man es weiss. Dankeeeeeeeeeeeeeeeeee*Smilie *Smilie *Smilie