Eksport af billeder fra Access database til mappe

http://support.microsoft.com/kb/103257

Theres a couple of links in a previous question I answerd.

http://www.eksperten.dk/spm/807112

?

jeg vil gerne give point, men indtil videre kan jeg ikke få det til at virke

Can you give more information, what have you tried?

I forlængelse af #1 så er 'bottom line', vba mæssigt, at få feltindhold hevet ud som byte array vha dao recordset's GetShunk funktion og dette binære indhold uskadt overført til en filestream. Mystiske fordoblinger af filstørrelser skyldes uønskede unicode transformeringer - strenge i vba er unicode - "denne" har længden 5 men betår af 10 bytes.
Eksemplet i #1 er, efter min smag, af den slags, hvor man plukker de få ting man skal bruge. Der anvendes den 20 år gamle indbyggede 'Open Destination For Binary As DestFile' lavnivea måde - Et par mere moderne kodeliner:

Sub blob2file(tableN, fieldN, cond, fileName)
    With rsi(tableN, , , cond)
        If Not .eof Then
            binary2File fileName, .RS.Fields(fieldN).GetChunk(0, .RS.Fields(fieldN).FieldSize)
        End If: End With
End Sub

idet rsi er en wrapper omkring et dao recordset.

Anvendelse: blob2file "Camshot","shot","id=1","d:\test.jpg"

inkluderende reference til ado og ...

Sub binary2File(fileName, ByteArray)
    With New ADODB.Stream
        .Type = adTypeBinary
        .Open
        .Write ByteArray
        .SaveToFile fileName, adSaveCreateOverWrite
    End With
End Sub
-----

Måske eksperten der fejlede siden du ikke kunne give point. Jeg behøver ingen.

If you cant get it to work you are welcome to send the dB to me and I'll make the code for you.

wunderfull, send your mail, mine is c t h r a n e @ g m a i l . c o m remove spaces

ekspertenATsanthell.dk

AT = @