Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

VB6 - Access OLE-Objekt hinzufügen / öffnen / als Datei speichern

Empfohlene Antworten

Veröffentlicht

Hallo!!

Ich habe eine Access (2000) DB mit VB-Frontend.

In der DB werden in einer Tabelle Anlagen (Bilder, PDFs, Dokumente, ...)gespeichert.

Wie kann ich so ein gespeichertes Objekt denn in der entsprechenden Anwendung öffnen lassen, bzw auf Wunsch so eine Datei auch wieder von der DB aus in ein beliebiges Verzeichnis zu speichern?

Danke!

Hi,

Du speicherst doch nicht die Daten als Blob o.ä., oder ?

Normalerweise speichert man sowas, in dem man die Pfade zu den Dateien ablegt.

Einfach mal nach "ShellExecute" API suchen, die öffnet Dir die angegebene Datei mit der Standardanwendung.

doch... ich sollte die dateien in der DB speichern... weil ich die DB mit pwd schützen kann, nicht aber die einzelne datei...

außerdem habe ich hier das problem, dass verschiedenste dateien aus 25 niederlassungen irgendwo in deutschland abgelegt werden sollen... also haut das allein mit der pfadangabe auch nicht hin

in der DB habe ich eine Tabelle angelegt, die OLE-Objekte - also Dateien, speichern kann... ich bekomme die Dateien da auch rein... aber wie wieder raus bzw zur anzeige (O:

Hmm, dat kann ich Dir nicht sagen, ich weigere mich, so etwas zu machen und konnte es auch immer abwehren bzw. andere Vorschläge begründen und anwenden. Außerdem wird Access bei vielen Dateien sehr langsam.

Schau Dir mal das OLE Objekt an, vielleicht gehts damit.

Eventuell kommt man über den Umweg, dass man die Daten ausliehst, temporär speichert, anzeigt und dann wieder löscht weiter, kann ich leider aber nicht testen bzw. bestätigen, musst Du ausprobieren.

Womit greifst Du auf die DB zu, ADO oder DAO?

Falls ADO, versuch mal:


Dim oStream   As ADODB.Stream

Dim sFileName As String


sFileName = "C:\Test.pdf"

With oStream

      .Type = adTypeBinary

      Call .Open

      Call .Write( Rs.Fields("File").Value)

      Call .SaveToFile(sFileName)

      Call .Close

End With

Archiv

Dieses Thema wurde archiviert und kann nicht mehr beantwortet werden.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.