• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• Save the image in dataBase

Save the image in dataBase

Save the image in dataBase

API Declarations


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




Rate Save the image in dataBase

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub cmdSave_Click()
    rs.AddNew

     SavePicture

    rs.Update

end sub 
private sub SavePicture()

    Dim strFileNm as string 
    DataFile = 1
    Open strFileNm  For Binary Access Read As DataFile
        Fl = LOF(DataFile)   ' Length of data in file
        If Fl = 0 Then Close DataFile: Exit Sub
        Chunks = Fl \ ChunkSize
        Fragment = Fl Mod ChunkSize
        ReDim Chunk(Fragment)
        Get DataFile, , Chunk()
        rs!logo.AppendChunk Chunk()
        ReDim Chunk(ChunkSize)
        For i = 1 To Chunks
            Get DataFile, , Chunk()
            rs!logo.AppendChunk Chunk()
        Next i
    Close DataFile
end sub