ADODB.Stream - VB

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

Привет всем!
У меня такой вопрос мне надо добавить ворд доки в SQL и загрузить эти доки из базы. я как то добавляю данные в базу но Load делать не могу. Если кто нибудь знает пожалуста подскайите и лудше на примере.
Спасибо.

Решение задачи: «ADODB.Stream»

textual
                            Листинг программы 
                        

                            <font color="00AA00">'Из базы</font>
<font color="blue">Dim</font> FotoData() <font color="blue">As</font> <font color="blue">Byte</font>
    <font color="blue">If</font> rsData(<font color="teal">"Image"</font>).ActualSize > <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
        FotoData = rsData(<font color="teal">"Image"</font>).Value
        <font color="blue">Open</font> <font color="teal">"c:\doc1.doc"</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>
    <font color="blue">End</font> <font color="blue">If</font>

<font color="00AA00">'В базу. Таки открою секрет</font>
<font color="blue">Dim</font> FotoData() <font color="blue">As</font> <font color="blue">Byte</font>
    <font color="blue">If</font> FotoName <> <font color="teal">""</font> <font color="blue">Then</font>
        <font color="blue">Open</font> <font color="teal">"c:\doc1.doc"</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>).Value = FotoData
    <font color="blue">End</font> <font color="blue">If</font>

                        