Visual Basic, .NET, ASP, VBScript
 

   
   
     

Форум - Работа с данными

Страница: 1 |

 

  Вопрос: Access - OLE - jpeg = выгрузить на диск. Как? Добавлено: 27.06.06 18:46  

Автор вопроса:  rst8
Имеем Access БД в одной из таблиц которой в поле (OLE) храниться jpeg картинки записанные туда средствами Access.

Вопрос как автомаизировать их выдергивание от туда в папку на диске?

Ответить

  Ответы Всего ответов: 5  

Номер ответа: 1
Автор ответа:
 Alexandr.R



Вопросов: 9
Ответов: 115
 Web-сайт: gvin.net
 Профиль | | #1
Добавлено: 28.06.06 14:46
кароче вот код как засунуть image в Access
Dim fsPicture As FileStream = New FileStream(w, FileMode.OpenOrCreate, FileAccess.Read)
            Dim picData() As Byte = New Byte(CInt(fsPicture.Length)) {}
            fsPicture.Read(picData, 0, System.Convert.ToInt32(fsPicture.Length))
            fsPicture.Close()
'где w путь к image
cm.CommandText = "Insert into tbl (photo)VALUES(@ItemPicture)"
 cm.Parameters.Add("@ItemPicture", OleDb.OleDbType.Binary).Value = picData
            cm.ExecuteNonQuery()

а вот код как выгрузить

cm.CommandText = "select photo from tbl"
Dim MyData As Byte() = Nothing
                If blnNew = True Then PictureBox1.Image.Dispose()
                blnNew = True
                MyData = CType(dr.Item("photo";), Byte())
                Dim intData As New Integer
                intData = MyData.GetUpperBound(0)
                Dim fs As New FileStream("c:\tempimage.jpg", FileMode.OpenOrCreate, FileAccess.Write)
                fs.Write(MyData, 0, intData)
                fs.Close()
                MyData = Nothing

как видно из кода чтобы выгрузить image из таблицы в picturebox1 image сохроняется на диск С

Ответить

Номер ответа: 2
Автор ответа:
 rst8



Вопросов: 2
Ответов: 6
 Профиль | | #2 Добавлено: 29.06.06 18:39
Спасибо за ответ, подскажите только это код для чего (VB.net ?) Просто я все время Делфи занимался. Если от VB может скините проект?

Ответить

Номер ответа: 3
Автор ответа:
 Alexandr.R



Вопросов: 9
Ответов: 115
 Web-сайт: gvin.net
 Профиль | | #3
Добавлено: 29.06.06 18:52
Код VB.NET-овский. Разберись с подключением к базе ACCESS
через VB.NET и всё станет понятно.

Ответить

Номер ответа: 4
Автор ответа:
 Sun



Вопросов: 0
Ответов: 2
 Профиль | | #4 Добавлено: 27.07.07 12:51
В "MyData = CType(dr.Item("photo";), Byte())" dr это датаридер? как как он здесь связан не подскажите?

Ответить

Номер ответа: 5
Автор ответа:
 Sun



Вопросов: 0
Ответов: 2
 Профиль | | #5 Добавлено: 30.07.07 08:55
а всё, разобрался, спасибо за код, оч помог

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам