|
Hey Leute,
ich hab nen Code gebastelt welcher mit einer Oracle SQL Abfrage BLOB-Daten von der Datenbank zieht und als .jpg in einem vorgegebenen Pfad ablegt. Das Funktioniert.
Was nicht funktioniert ist, das zu den Bildern die passenden Bildnamen vergeben werden.
Der String für die Bildnamen wird mit einem zweiten SQL Statement aus mehreren tabellen zusammengesetzt. Dieses SQL Statement funktioniert auch und kann mit .GetString im Direktfenster per Debug.Print ausgegeben werden. (Im Direktfenster erscheinen in der passenden Anzahl wie es Bilder gibt auch die Bildnamen.)
Ich bin VBA Anfänger und würde mich über konkrete Hilfestellungen sehr freuen da ich nun schon seit ein paar tagen an diesem Problem sitze. Danke!
'//SETTINGS String bauen
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
'//SETTINGS Bilder ziehen
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 'Zählfunktion für Rückmeldung
mstream.Write rs.Fields("daten").Value
mstream.SaveToFile (filepath & rs2.GetString & ".jpg"), adSaveCreateOverWrite 'varline
rs.MoveNext
Loop
Loop
MsgBox ("Es wurden " & bildnummer & " Bilder in den vorgegebenen Ordner exportiert."), vbInformation
bildnummer = 0
rs.Close
cn.Close
End Sub |