Вывод картинки из Access

[noob4ever]

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim sSQL As String

Private Sub Комманда1_Click()
Set db = DAO.OpenDatabase("C:\db.mdb")
sSQL = "SELECT Foto FROM [TABLE] WHERE ID=10"
Set rs = db.OpenRecordset(sSQL)

With rs
.MoveFirst 'Перемещаемся к первой записи
Do While Not .EOF 'Выполнять пока есть записи
Изображение1.Picture = .Fields(0)
.MoveNext 'Перемещаемся к следующей записи
Loop
End With

rs.Close
db.Close
End Sub

Вопрос! как сделать чтобы в Изображение1 загружалась картинка .Fields(0)????

Изображение1.Picture = .Fields(0)
не выходит(

[Amed]

А-та-та за невнимательность и игнорирование поиска.

1. Почитай вот этот топик (Какой ужас! Только представьте! На этой же странице!..)
2. В общем случае

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

Set Изображение1.Picture = .Fields(0)

[noob4ever]

) спасиба!

[noob4ever]

Set Изображение1.Picture = .Fields(0)
а что объявлять в stdpicture тогда??
ниче не получается

[Amed]

Как добавлена картинка в базу?
В топике по ссылке все расписано

[noob4ever]

вручную добавлена.
попутный вопрос а как из VB добавить?
и вообще в том примере я не пойму!
как мне связать с моим кодом?