В базе .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
Прошу помощи
