Retrieve vb.netを使用してSQL Serverに格納されたexcelファイル

Question

vb.netを使用していくつかのExcelファイルを処理するデスクトップアプリケーションがあります。これらのファイルはSQL Serverデータベースに格納されています。私は取得しています

Try 
     conDCS.Open() 
     comDCS.Connection = conDCS 
     comDCS.CommandType = CommandType.Text 
     comDCS.CommandText = "select top 2 [Filename], [File] " & _ 
          "from tblFiles (nolock) " & _ 
          "where ([Filename] like 'DIG%' or [Filename] like 'FAC%') and " & _ 
          "(UploadDate>='" & FromDate & "' and UploadDate<'" & ToDate & "')" 
     comDCS.ExecuteNonQuery() 
     rdrDCS = comDCS.ExecuteReader 
     If rdrDCS.HasRows Then 
      While rdrDCS.Read 
       Dim imageInBytes As Byte() = rdrDCS(1) 
       Dim memoryStream As System.IO.MemoryStream = New System.IO.MemoryStream(imageInBytes, False) 
       Dim image As System.Drawing.Image = System.Drawing.Image.FromStream(memoryStream) 
       image.Save(TempPath & rdrDCS(0)) 
      End While 
      ToProcess = True 
     End If 
     rdrDCS.Close() 
    Catch ex As Exception 
     ToProcess = False 
     MessageBox.Show("Error accessing to the files: " & ex.Message) 
    Finally 
     conDCS.Close() 
    End Try 

：ここに は、私が持っているコードです。この行では、「パラメータが有効ではありません」：私は、このエラーは、無効な画像データに関連していることを理解している

Dim image As System.Drawing.Image = System.Drawing.Image.FromStream(memoryStream) 

しかし、私はそれが問題であるかもしれないことを理解できません。

imageInBytesの長さは41473です。また、配列の一部の項目には値としてゼロがあります。

ここで何が間違っているのでしょうか、それとも誰かがこれを達成するために動作するコードを提供できますか？

Answer 1

私たちは、ファイルにデータベースフィールドからファイルを保存するために一般的な方法を使用します。

Public Function FieldToFile(ByVal sFileName As String, ByVal theField As Object) As Boolean 
    ' Exceptions are handled by the caller 

    If theField IsNot DBNull.Value Then 
     Using oStream As New System.IO.FileStream(sFileName, IO.FileMode.Create, IO.FileAccess.Write) 
      If oStream IsNot Nothing Then 
       Dim aBytes As Byte() 

       aBytes = DirectCast(theField, Byte()) 

       oStream.Write(aBytes, 0, aBytes.Length) 
       oStream.Close() 
      End If 
     End Using 
    End If 

    Return True 
End Function 

次のようにこれを呼び出すことができます。

Call FieldToFile(someFileName, rdrDCS(1)