Есть MSSQL, где лежит файлег в ячейке с типом image
Возможно ли увидеть прогресс скачки файла?
Модератор: Ramzes
FireFenix писал(а):Есть MSSQL, где лежит файлег в ячейке с типом image
Возможно ли увидеть прогресс скачки файла?
Dim Image As Image
Dim ByteArray() As Byte = Nothing
Dim MemoryStream As MemoryStream = Nothing
Dim Command As New SqlCommand("", Connection)
Select Case Type
Case Types.MajorObject.Class
Command.CommandText = "SELECT * FROM class WHERE id='" & Id.ToString & "';"
Case Types.MajorObject.Subclass
Command.CommandText = "SELECT * FROM subclass WHERE id='" & Id.ToString & "';"
Case Types.MajorObject.Prototype
Command.CommandText = "SELECT * FROM prototype WHERE id='" & Id.ToString & "';"
End Select
Try
Using Query As SqlDataReader = Command.ExecuteReader()
Query.Read()
'...
'Tables.Class.Image - Константа, которая хранит номер столбца
'...
If Not Query.IsDBNull(Tables.Class.Image) Then
ByteArray = DirectCast(Query.GetValue(Tables.Class.Image), Byte())
MemoryStream = New MemoryStream(ByteArray)
Image = Image.FromStream(MemoryStream)
End If
End Using
Catch ex As Exception
MsgBox(ex.ToString)
End Try
FireFenix писал(а):
- Код: Выделить всё
ByteArray = DirectCast(Query.GetValue(Tables.Class.Image), Byte())
MemoryStream = New MemoryStream(ByteArray)
Image = Image.FromStream(MemoryStream)
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 26