Ich habe doch noch eine schönere Lösung mittels 'ADODB.Stream' gefunden. Vorrausetzung ist allerdings, dass man im ODBC-Treiber von PostGre die Option 'bytea to LO' setzt oder den Connectionstring mit 'Trusted_Connection=yes;' erweitert. Mit 'AppendChunk' ist trotzdem nicht viel zu machen. Hier der Code um ein Bild oder irgend eine Datei in die Datenbank (Feldtyp bytea) zu bekommen:
Code:
Dim oStream As New ADODB.Stream
...
With RS
.Filter = "ID=" & lngID
'Binär speichern
oStream.type = adTypeBinary
oStream.Open
oStream.LoadFromFile strPixFile
!Pic = oStream.Read
.Update
oStream.Close
End If
.Close
Set RS = Nothing
End With
... So holt man die Daten wieder aus und schreibt sie als Datei weg:
Code:
Dim oStream As New ADODB.Stream
...
With RS
If .RecordCount > 0 Then
'binäre Feld in Datei File schreiben
oStream.type = adTypeBinary
oStream.Open
oStream.Write !Pic
oStream.SaveToFile strFileName
oStream.Close
End If
End If
.Close
Set RS = Nothing
End With
... LG Sylvio
Lesezeichen