CodeItBetter Programming Another VB Programming Blog

'Database - How to Read Image from Data Base which is stored in Binary format.
Option Explicit
 
Dim cn As New ADODB.Connection
Dim rs As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, I As Integer, FileName As String
Const ChunkSize As Integer = 16384
Const conChunkSize = 100
 
Private Sub Form_Load()
    cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Pubs;Data Source=Test"
    Dim strsql As String
    Set rs = Nothing
    Set rs = New Recordset
    strsql = "SELECT * FROM pub_info where pub_id = '9999'"
    rs.Open strsql, cn, adOpenForwardOnly, adLockReadOnly
    ShowPic
End Sub
 
Private Sub ShowPic()
    DataFile = 1
    Open "pictemp" For Binary Access Write As DataFile
    Fl = rs!logo.ActualSize    ' Length of data in file
    If Fl = 0 Then Close DataFile: Exit Sub
    Chunks = Fl \ ChunkSize
    Fragment = Fl Mod ChunkSize
    ReDim Chunk(Fragment)
    Chunk() = rs!logo.GetChunk(Fragment)
    Put DataFile, , Chunk()
    For I = 1 To Chunks
        ReDim Buffer(ChunkSize)
        Chunk() = rs!logo.GetChunk(ChunkSize)
        Put DataFile, , Chunk()
    Next I
    Close DataFile
    FileName = "pictemp"
    Picture1.Picture = LoadPicture(FileName)
End Sub