word文書の画像をsqlデータベースに保存

Question

word文書のすべての画像をsqlデータベースに保存します。 InlineShapesコレクションを使って画像を解析する方法について、いくつかのコードサンプルが見つかりました。これはうまく動作します。ただし、SQL Serverのイメージ列にイメージを格納する方法の例がありません。

InlineShapeオブジェクトをデータベースに格納している例は誰でも投稿できますか？ commandまたはrecordsetオブジェクトを使用していますか？

更新：ここでは、コード

Sub SavePictures() 

Dim SQL As String 
Dim RS As ADODB.Recordset 
Dim cnBon As ADODB.Connection 
Dim intCount As Integer 
Dim i As Integer 

SQL = "Select [ID] ,[Datei] ,[Seite] ,[Bild] from Bilder Where 1=0" 

strConn = "working Connection string" 

Set cnBon = New ADODB.Connection 
cnBon.Open strConn 


Set RS = CreateObject("ADODB.Recordset") 
RS.Open SQL, cnBon, adOpenKeyset, adLockOptimistic, adCmdText 


    For i = 1 To InlineShapes.Count 

     If InlineShapes.Item(i).Type = wdInlineShapePicture Then 

      RS.AddNew 


      RS("Datei") = ActiveDocument.Name 
      RS("Seite") = i 
      'This is where I'm stuck. How do I Access the Picture to save it in the Recordset? 
      RS("Bild") = InlineShapes.Item(i) 

      RS.Update 

     End If 
    Next i 


RS.Close 
cnBon.Close 

Set RS = Nothing 
Set cbbon = Nothing 

End Sub 

Answer 1

ここでは、作業コードは

Sub SavePictures() 

Dim SQL As String 
Dim RS As ADODB.Recordset 
Dim cnBon As ADODB.Connection 
Dim intCount As Integer 
Dim i As Integer 

SQL = "Select [ID] ,[Datei] ,[Seite] ,[Bild] from Bilder Where 1=0" 

strConn = "working Connection string" 

Set cnBon = New ADODB.Connection 
cnBon.Open strConn 


Set RS = CreateObject("ADODB.Recordset") 
RS.Open SQL, cnBon, adOpenKeyset, adLockOptimistic, adCmdText 


    For i = 1 To InlineShapes.Count 

     If InlineShapes.Item(i).Type = wdInlineShapePicture Then 

      RS.AddNew 


      RS("Datei") = ActiveDocument.Name 
      RS("Seite") = i 
      'This is where I'm stuck. How do I Access the Picture to save it in the Recordset? 
      RS("Bild") = InlineShapes.Item(i).Range.EnhMetaFileBits 

      RS.Update 

     End If 
    Next i 


RS.Close 
cnBon.Close 

Set RS = Nothing 
Set cbbon = Nothing 

End Sub 

です