Конференция VBStreets

Голову сломал.

В базе .mdb в поле объекта OLE находяться файлы картинок jpg. Необходимо сохранить отдельно на диск. В VB6 всё прозрачно:

Код: Выделить всё

Dim bytB() As Byte
Set rs = CreateObject("ADODB.Recordset")
rs.Open strSQL, strConn, 1, 1
Open strFullFileName For Binary Access Write As #1
       bytB = rs.Fields("Image").Value
       Put #1, , bytB
Close

В PB ни как не могу получить байтовый массив:

Код: Выделить всё

pRec.Open "SELECT * FROM ImgTab ", pCon, %adOpenKeyset, %adLockOptimistic, %adCmdText
DIM pRev AS VARIANT
DIM bytB() AS BYTE
OPEN strTempFile FOR BINARY ACCESS WRITE AS #1
        pRev = pRec.Collect("Image")
        pRev -> bytB()------------------------?
        PUT #1, , bytB
CLOSE #1

Прошу помощи

Как всегда всё просто
http://www.jose.it-berater.org/smfforum/index.php?PHPSESSID=cbc0282d76362d8aa5f897f1325caa96&topic=4235.msg14742#msg14742
ссылка на пример извлечения bitmap из поля объекта OLE.
Не много урезал, поскольку у меня в поле двоичные данные.