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