Работа с полем типа image. - VB

Узнай цену своей работы

Формулировка задачи:

есть файл картинка.tif. в таблице есть поле 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>)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.833 из 5