SQL Serverのデータベースに画像ファイルを保存する便利な使い方

    On Error Resume Next
    Dim Rs As New ADODB.Recordset
    Dim FileSource() As Byte                    'バイト型の配列を用意
    Dim FileSize As Variant
    
    FileSize = FileLen("C:\temp\1.jpg")         '画像ファイルサイズを取得
    ReDim FileSource(0 To FileSize - 1)         'バイト型の配列をサイズに合わせて宣言しなおす
    Open "C:\temp\1.jpg" For Binary As #1       '画像ファイルをバイナリで開く
    Get #1, , FileSource                        '配列に画像ファイルのバイナリデータを入れる
    Close #1                                    'ファイルを閉じる
        
    Rs.Open "T_商品画像マスタ", CurrentProject.Connection, adOpenDynamic, adLockOptimistic  'テーブルをレコードセット変数に代入

    Rs.AddNew                       'レコードの追加
        Rs!商品画像ID = 1           'IDの代入
        Rs!商品画像 = FileSource    '画像ファイルのバイナリをvarbinary(max)型フィールドに代入
    Rs.Update

    Rs.Close: Set Rs = Nothing      'レコードセット変数を閉じる

    On Error Resume Next
    Dim Rs As New ADODB.Recordset
    Dim FileSource() As Byte                        'バイト型の配列を用意
    Dim FileName As String
    
    Rs.Open "SELECT * FROM T_商品画像マスタ WHERE 商品画像ID = 1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic   '商品画像IDが1のレコードセットを取得

    If Not (Rs.EOF And Rs.BOF) Then
        Rs.MoveFirst
        FileSource = Rs!商品画像                    'バイト型の配列に「商品画像」varbinary(max)型フィールドを代入
    End If

    Rs.Close: Set Rs = Nothing                      'レコードセット変数を閉じる
        
    Open "C:\temp\2.jpg" For Binary As #1           'C:\temp\2.jpgというファイルをオープン
    Put #1, , FileSource                            'バイト配列の内容（「商品画像」）を書き込み
    Close #1                                        'ファイルを閉じる

INSERT INTO T_商品画像マスタ(商品画像ID,商品画像) SELECT 1 AS 商品画像ID,BulkColumn FROM OPENROWSET(BULK N'C:\temp\1.jpg', SINGLE_BLOB) As pic

UPDATE T_商品画像マスタ SET 商品画像 = BulkColumn FROM OPENROWSET(BULK N'C:\temp\1.jpg', SINGLE_BLOB) As pic WHERE 商品画像ID=1"