Dim
ary
As
Variant
Dim
iCols
As
Integer
Dim
filep
As
String
Dim
varline
As
Variant
varline = Array()
rs2.Open BildString, cn, adOpenDynamic, adLockOptimistic
mstream.Type = adTypeText
mstream.Open
varline = rs2.GetString
Debug.Print (varline)
MsgBox (
"Bildnamen sind geladen"
)
mstream.Close
rs2.Close
rs2.Open BildString, cn, adOpenDynamic, adLockOptimistic
Do
While
Not
rs2.EOF
varline = rs2.GetRows
rs.Open sqlAbfr, cn, adOpenDynamic, adLockOptimistic
mstream.Type = adTypeBinary
mstream.Open
Do
While
Not
rs.EOF
bildnummer = bildnummer + 1
mstream.Write rs.Fields(
"daten"
).Value
mstream.SaveToFile (filepath & rs2.GetString &
".jpg"
), adSaveCreateOverWrite
rs.MoveNext
Loop
Loop
MsgBox (
"Es wurden "
& bildnummer &
" Bilder in den vorgegebenen Ordner exportiert."
), vbInformation
bildnummer = 0
rs.Close
cn.Close
End
Sub