Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Картинка в поле text  [new]
Lukich
Member

Откуда: Зелик
Сообщений: 275
Здравствуйте!
Картинки хранятся в поле таблицы типа text (MSSQLServer'2000)
Сохраняю на диск следующим образом (из ADP'2000):

Private Sub Кнопка0_Click()
Dim mstream As New ADODB.Stream
Dim rs As New ADODB.Recordset

rs.Open "SELECT img_smalldata, img_type FROM images WHERE img_id=123", CurrentProject.Connection, adOpenKeyset, adLockOptimistic
mstream.Type = adTypeText 'adTypeBinary '
mstream.Open
mstream.WriteText (rs.Fields(0).Value) 'Write
mstream.SaveToFile CurrentProject.Path & "\qwe.gif", adSaveCreateOverWrite
rs.Close
End Sub

Все работает, только файл сохраняется текстовый(((

Как мне получить всетаки картинку?
...
mstream.Type = adTypeBinary
mstream.Open
mstream.Write (rs.Fields(0).Value) 
...
не работает((
18 ноя 04, 17:09    [1117945]     Ответить | Цитировать Сообщить модератору
 Re: Картинка в поле text  [new]
Lukich
Member

Откуда: Зелик
Сообщений: 275
ау!
Никто не сталкивался с хранением картинок в поле text?
горит!!!
19 ноя 04, 10:11    [1119309]     Ответить | Цитировать Сообщить модератору
 Re: Картинка в поле text  [new]
Shurgenz
Member

Откуда: Питер
Сообщений: 1938
не уверен, что поможет, но, мне кажется, стоит порыть в эту сторону:

CreateObject("Scripting.FileSystemObject")
19 ноя 04, 10:25    [1119381]     Ответить | Цитировать Сообщить модератору
 Re: Картинка в поле text  [new]
Lukich
Member

Откуда: Зелик
Сообщений: 275
Shurgenz
не уверен, что поможет, но, мне кажется, стоит порыть в эту сторону:

CreateObject("Scripting.FileSystemObject")


порыл, но ничего полезного из Scripting.FileSystemObject для моего случая не вынес(((
может есть еще мысли?
19 ноя 04, 11:33    [1119748]     Ответить | Цитировать Сообщить модератору
 Re: Картинка в поле text  [new]
АлексейК
Member

Откуда: http://www.msdatabase.ru , Moscow
Сообщений: 7683
http://kozin1.narod.ru/newsite/index.html?picjpg.htm
19 ноя 04, 11:55    [1119856]     Ответить | Цитировать Сообщить модератору
 Re: Картинка в поле text  [new]
Lukich
Member

Откуда: Зелик
Сообщений: 275
АлексейК
http://kozin1.narod.ru/newsite/index.html?picjpg.htm


работает!
Dim rs As New ADODB.Recordset

rs.Open "SELECT img_smalldata, img_type FROM images WHERE img_id=123", CurrentProject.Connection, adOpenKeyset, adLockOptimistic

  Dim Filedata() As Byte, filename
 
         filename = CurrentProject.Path & "\qwe.jpg"
 
         ReDim Filedata(Len(rs(0)) - 1)
 
         Filedata() = rs(0)
 
         Open filename For Binary Access Write As #1
 
             Put #1, , Filedata()
 
         Close #1

но проблема осталась - файлы получаются текстовые(((
19 ноя 04, 12:40    [1120119]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить