While myReader.Read ... If myReader(i).GetType.ToString = "System.Byte[]" Then Dim imagedata() As Byte = CType(myReader(i), Byte()) Dim myParameter As SqlParameter = New SqlParameter("@Image", SqlDbType.Image, imagedata.Length) myParameter.Value = imagedata sqlCmd.Parameters.Add(myParameter) sSQL += myReader.GetName(i) + "=@Image, " Else ... sqlCmd.CommandText = sSQL sqlCmd.ExecuteNonQuery() End While
Dim image() As Byte = Nothing image = CType(dr("Picture"), Byte()) Dim strfn As String = Convert.ToString(DateTime.Now.ToFileTime()) Dim fs As FileStream = New FileStream("C:\Temp\" + strfn + ".bmp", FileMode.CreateNew, FileAccess.Write) fs.Write(image, 0, image.Length) fs.Flush() fs.Close()