How to retrieve images from ODBC and VB without using files?

[Luis Su�rez]

Hi,

We want to retrieve some image from Cach� using Cach� and ODBC. We get an
stream and this we can copy to a disk file. Does anyone know how to convert
from stream to image directly without copying to a file?

Our code is:

Public Function GetImage(ID As String) As Image
Dim rsQuery As ADODB.Recordset
Dim MyStream As New ADODB.Stream
MyStream.Type = adTypeBinary

Set rsQuery = Nothing
Set rsQuery = New ADODB.Recordset

OpenCacheODBC

'Execute Query
rsQuery.Open "select TestPicture from SQLUser.SamplePicture where
SQLUser.SamplePicture.ID='" & ID & "'", cn_Cache, adOpenForwardOnly,
adLockReadOnly

If Not rsQuery.EOF Then
    If Not IsNull(rsQuery.Fields(0)) Then
        MyStream.Open
        MyStream.Write rsQuery.Fields(0)
        MyStream.SaveToFile GlobalLocalPath & "\newimage.gif",
adSaveCreateOverWrite
        MyStream.Close
    End If
End If

CloseCacheODBC