From: Patrick Spence <patrick@...>
Date: 2006-08-17T22:44:12+09:00
Subject: Storing animated .gif images

The following code throws the error indicated in the code. Apparently 
this only appears to happen with animated gifs. Other image formats; 
jpg, etc., are ok. A VB version of this code, which also uses ADO, works 
w/o any problems.

require 'win32ole'

ADTYPETEXT = 0
ADTYPEBINARY = 1

ADSTATECLOSED = 0
ADSTATEOPEN = 1
ADSTATEEXECUTING = 4
ADSTATEFETCHING = 8

ADOPENKEYSET = 1
ADLOCKOPTIMISTIC = 3

begin

  imageFile = "dj.gif"    #-- this is an animated gif!

  st = WIN32OLE.new("adodb.stream")
  st.Type = ADTYPEBINARY
  st.Open
  st.loadFromFile(imageFile)

  puts("Size of image file: #{st.size()} bytes")

  oCn = WIN32OLE.new("adodb.connection")
  oCn.open("Provider=sqloledb;Data Source=(local);Initial 
Catalog=xxxxx;Integrated Security=SSPI;")

  oRs = WIN32OLE.new("adodb.recordset")
  oRs.open("SELECT * FROM xxxx", oCn, ADOPENKEYSET, ADLOCKOPTIMISTIC)

  oRs.addNew()

  #-- store the name of the image file
  oRs.fields("imageFile").value = imageFile

  #-- throws the following error when the next line is executed
=begin
  OLE error code:80040E21 in Provider
  Multiple-step OLE DB operation generated errors. Check each OLE DB 
status value, if available. No work was done.
  HRESULT error code:0x80020009
  Exception occurred.
=end
  oRs.fields("imageBinary").value = (st.read().to_s())

  oRs.update()

rescue Exception => ex

  puts("Exception: #{ex.message()}")

ensure

  #-- close and release recordset and database objects
  unless oRs.nil?
    unless oRs.state == ADSTATECLOSED
      oRs.close
    end
    oRs = nil
  end

  unless oCn.nil?
    unless oCn.state == ADSTATECLOSED
      oCn.close
    end
    oCn = nil
  end

  unless st.nil?
    st.close()
  end

end

-- 
Posted via http://www.ruby-forum.com/.