automatisch uploaden images in sql sqrver met vba

[manueld]

ik heb een tabel in mssql server met 2 velden. het eerste veld is de bestandsnaam en de 2e een varbinary waar ik een image wil uploaden. de vraag of het verstandig is een image in een database te plaatsen is nu niet aan de orde. deze keuze is weloverwogen gemaakt.

wat ik wil?

ik heb een windows map met images welke ik in een batch wil uploaden in de sql server. hoe kan ik dat doen (access 2010 + MSsql 2008)

 

[manueld]

zelf inmiddels uitgevonden
om een bulk te uploaden naar de sql server

Dim objStream As New ADODB.Stream
    Dim IDAdd As Integer
     objStream.Type = adTypeBinary
    objStream.Open
     
       rs.Open "SELECT  [QrString]  ,[QrCode]  FROM [LMxxxxol].[dbo].[txxx]", cn, adOpenDynamic, adLockOptimistic

Do Until Z = 100
Text = Z
Text = Replace(Text, " ", "%20")
start:
           
    objStream.LoadFromFile "d:\database\qr\new" & Z & ".png"

    rs.AddNew
    rs!QrCode = objStream.Read
    rs!QrString = Z
    rs.Update
                        
Z = Z + 1
Loop

en om ze een voor een weer op te halen en als bestand op te slaan

Dim qr As String
qr = Text24
    Dim cn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim objStream As New ADODB.Stream
    Dim strcon As String
 strcon = "P*******ed_Connection=yes; "
    objStream.Type = adTypeBinary
    objStream.Open
    
    cn.Open strcon
    rs.Open "SELECT  [QrString]  ,[QrCode]  FROM [LM*******R] where QrString = " & qr & "", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        objStream.Write rs!QrCode
        objStream.SaveToFile "d:\database\QR\" & qr & ".png", adSaveCreateOverWrite
        objStream.Close
    End If
    rs.Close
    cn.Close