Работа с полем типа image. - VB
Формулировка задачи:
есть файл картинка.tif. в таблице есть поле pict типа image.
как записать этот файл в таблицу в поле pict?
и еще, как только он туда будет записан, как его отобразить в image?
помогите, очень надо!!!
как записать этот файл в таблицу в поле pict?
и еще, как только он туда будет записан, как его отобразить в image?
помогите, очень надо!!!
Решение задачи: «Работа с полем типа image.»
textual
Листинг программы
<font color="00AA00">'в базу</font> <font color="blue">Dim</font> FotoData() <font color="blue">As</font> <font color="blue">Byte</font> <font color="blue">Open</font> <font color="teal">"pic.tif"</font> <font color="blue">For</font> Binary <font color="blue">As</font> #<font color="darkblue"><b>1</b></font> <font color="blue">ReDim</font> FotoData(<font color="darkblue"><b>0</b></font> <font color="blue">To</font> LOF(<font color="darkblue"><b>1</b></font>) - <font color="darkblue"><b>1</b></font>) <font color="blue">Get</font> #<font color="darkblue"><b>1</b></font>, , FotoData() <font color="blue">Close</font> #<font color="darkblue"><b>1</b></font> rsData(<font color="teal">"Image"</font>).AppendChunk FotoData <font color="00AA00">'из базы</font> FotoData = rsData(<font color="teal">"Image"</font>).GetChunk(rsData(<font color="teal">"Image"</font>).ActualSize) <font color="blue">Open</font> <font color="teal">"pic.tif"</font> <font color="blue">For</font> Binary <font color="blue">As</font> #<font color="darkblue"><b>1</b></font> <font color="blue">Put</font> #<font color="darkblue"><b>1</b></font>, , FotoData <font color="blue">Close</font> #<font color="darkblue"><b>1</b></font> imgPhoto.Picture = LoadPicture(<font color="teal">"pic.tif"</font>)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д