PictureBox и Recordset

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
mnzol
Новичок
Новичок
 
Сообщения: 34
Зарегистрирован: 29.09.2004 (Ср) 11:02

PictureBox и Recordset

Сообщение mnzol » 23.08.2005 (Вт) 12:49

Есть рекордсет в нем поле с картинками. Как бы так сделать, чтобы PictureBox отображал картинки автоматически при задании DataSource и DataField. Сейчас они дружить отказываются

mnzol
Новичок
Новичок
 
Сообщения: 34
Зарегистрирован: 29.09.2004 (Ср) 11:02

Сообщение mnzol » 23.08.2005 (Вт) 15:40

Хмм... никто не знает

Может надо уточнить. Есть таблица аксеса, в которой имеется поле типа "Поле объекта OLE". В него вставлен файл картинки 1.bmp.
Если делаю так:
Set Picture.DataSource = rst.DataSource
Picture.DataField = "Фотография"
вместо фотографии - болт.
Если сделать форму в аксесе вставив в неё объект "поле объекта OLE" фотография есть.

Пробовал даже так:

Dim Photo As prjGDIplus.Image
Dim DataP() As Byte

Private Sub Adodc1_MoveComplete(...)

If LenB(pRecordset!Фотография) > 0 Then
DataP = pRecordset!Фотография
set Photo = CreateImageFromMemory(DataP)
Ошибка InvalidParametr ...
В картинках этих я 0 :oops:
Куда рыть не знаю
Может ну например определенный формат для 1.bmp

Konst_One
Член-корреспондент академии VBStreets
Член-корреспондент академии VBStreets
Аватара пользователя
 
Сообщения: 3041
Зарегистрирован: 09.04.2004 (Пт) 13:47
Откуда: Химки

Сообщение Konst_One » 23.08.2005 (Вт) 16:00

GetChunk-ом ее надо :)

mnzol
Новичок
Новичок
 
Сообщения: 34
Зарегистрирован: 29.09.2004 (Ср) 11:02

Сообщение mnzol » 23.08.2005 (Вт) 16:57

Не понял как GetChunck помочь может
Сделал так:

l = pRecordset!Фотография.ActualSize
If l> 0 Then
DataP = pRecordset!Фотография.getchunck(l)
set Photo = CreateImageFromMemory(DataP)

Ошибка InvalidParametr ...


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: SemrushBot и гости: 117

    TopList