В это поле грузится бинарные данные (это tiff файл или jpg - не критично). Как выбрать файл и сохранить его - я знаю. А как сделать что-то типа preview? Т.е. просмотр файла из БД без сохранения. Чую, что надо как-то поток направить в какой-то компонент, который может потоки читать, а вот какой, я не знаю.
ТАБЛИЦА создается так:
create table archive (id bigint IDENTITY (1,1), title varchar (255), descr varchar(255), bin image not null)
Я делаю так для сохранения в файл:
- Код: Выделить всё
Dim Conn_2_save As New ADODB.Connection
Dim Rs_2_save As New ADODB.Recordset
.
.
.
.
Conn.Open "provider=SQLOLEDB;Data Source=" & DBHost & ";Initial Catalog=" & DBName & ";Integrated Security=SSPI;"
SQL = "Select id,title,bin from archive where id=" + Trim(Str(Rs("id").Value))
Rs_2_save.Open SQL, Conn_2_save, adOpenStatic
mystream.Type = 1
mystream.Open
mystream.Write Rs_2_save("bin")
mystream.SaveToFile CommonDialog1.filename, 2
это все понятно. Как и куда направить поток(?) чтобы посмотреть содержимое поля bin, не сохраняя его, а отобразить в куда-нибудь типа Picturebox???
Если, я например делаю так:
- Код: Выделить всё
Set Label1.DataSource = Rs_2_save
Label1.DataMember = "title"
то оно пишет Unable to bind to field or DataMember: 'title'
понятно, что можно сделать так
- Код: Выделить всё
Label1.caption = Rs_2_save("title")
но нужно для картинки, поэтому и мучаюсь с текстовым полем, чтобы потом быстро все адаптировать для картинок.
Еще есть у компонента Label какие-то свойства DataFormat какой-то и его можно поставить в "рисунок". Есть еще там же DataField и DataSource с DataMember. Может в них дело?????