Проблема: База данных и картинки...

[hludens]

Дано:
База данных (старый формат) mdb
в ней таблица с картинками. Необходимо эти картинки сохранить как файлы...

Легко вывести через стандартные объекты data + image+SavePicture
НО!
Вообще у меня для всех остальных операций програ использует DAO 3.6 (а объект дата норовит юзать 3.5)
При попытке инсталировать это все на ХП (делал на 2000) был послан нафиг... говорит ошибка доступа

Собственно вопрос.

КАК избавится от 3.5? Как выдрать картинки и сохранить их через DAO 3.6 не используя стандартый data+image

т.е. пример.

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

Set rs = db.OpenRecordset("SELECT image from table")
Do While Not rs.EOF
a=rs.fields(0)
ЧТО сдесь делать чтобы выдрать картинку и сохранить ее в файл?
rs.MoveNext
loop



P.S. Догадываюсь что вопрос а\поднимался неоднократно, но Поиском не нашел прямого ответа на него. Есть сохранение через массив из DATA... И то не понял...

[Alexanbar]

Можно использовать ADO Data Control вместо Data

[hludens]

А без контролов можно сделать?
Собственно вся программа у меня написана так как показано в примере, так что плодить интерфейсы неохота .
Можно ли поместить рисунок из базы данных в image при помощи DAO 3.6 ? Или вообще минуя image сохранить его на диск? Должен же существовать такой способ?

[Лёха_Virus]

Загоняешь сначала в байтовый массив и сохраняешь его на диск.

Set rs = db.OpenRecordset("SELECT image from table")
Do While Not rs.EOF
Dim barr() As Byte
barr = rs.Fields(0)
Open "C:\pictemp.bmp" For Binary As #1
Put #1, , barr
Close #1
rs.MoveNext
loop

[hludens]

ХМ...
Я примерно так и пытался, вот только
получается при этом
Вот это.

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

lt  Ц\  BMЦ\      6   (   џ
     
      \                  юоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬюоЬю


Вместо вот этого

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

BM¬"Q     6   (     w 
         u
  u
          ¢ú£ÿáÖàìåÖíÜ╛┼╛ÜíÜgngmtmvztswqprlikejjdvvpïïࣥöäê}rwhfiZaeR_bLfkPêèm¬¡ìÑúäñúüñóÇÑúü¼ñå░¿è▓¬ì╢¼Ä│ºà┤¿


Так что чегото в этом примере нехватает...

[hludens]

Я таки поборол проблему!
Спасибо за участие. Помогла смесь двух ответов в разных ветках.
Насколько я понимаю в конце файла остались пара лишних нулей но на изображение это не влияет

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

Set db = DAO.OpenDatabase(bn)

Set rs = db.OpenRecordset("select image, id from image")
Do While Not rs.EOF
Dim barr() As Byte
barr = rs.Fields(0).GetChunk(8, 999000)
Open  Trim(Str(rs.Fields(1))) & ".bmp" For Binary As #1
Put #1, , barr
Close #1
rs.MoveNext
Loop


И последний вопрос (чисто в целях улучшения кода, все уже и так работает)
Эта цифра 999000 взята от балды, а вернее из наблюдения что больше метра там картинок нету... А как по умному поставить? Функция LEN неожиданно подвела дав значение в 2 раза меньше чем надо.

[hCORe]

Может быть, использовать LenB?