Click here to Skip to main content
15,907,497 members
Please Sign up or sign in to vote.
0.00/5 (No votes)
See more:
VB
Private Function GetPic()     //to load picture into table
Dim filelen As Long
Dim numlock As Integer
Dim leftover As Long
Const blocksize = 100000
Dim pic As String
Dim bytedata() As Byte
Dim sfile As Integer
sql = "select PICS from student_record_database "   //empty field with no pictures
RES.Open sql, CON, adOpenDynamic, adLockOptimistic
    sfile = App.Path & "/mypic/Book1.xls"            //error : type mismatch
        Open sfile For Binary Access Read As #1
            filelen = LOF(sfile)
    If filelen = 0 Then
        Close sfile
            MsgBox ("empty or not found")
    Else
        numlock = filelen / blocksize
            leftover = filelen Mod blocksize
        ReDim bytedata(leftover)
            Get sfile, , bytedata()
                RES(1).AppendChunk bytedata()
        ReDim bytedata(blocksize)
            For i = 1 To numlock
                Get sfile, , bytedata()
                    RES(1).AppendChunk bytedata()
            Next i
    RES.Update
       Close sfile
    End If
End Function


VB
Private Function ShowPic()     //to retrieve picture from table 
Dim bytedata() As Byte
Dim file As String
Dim filelen As Long
Dim numlock As Integer
Dim leftover As Long
Const blocksize = 100000

file = App.Path & "\image1.jpeg"
        Open file For Binary As #1
numlock = filelen / blocksize
    leftover = filelen Mod blocksize
bytedata() = RES(1).GetChunk(leftover)
Put file, , bytedata()
    For i = 1 To numlock
        bytedata() = RES(1).GetChunk(blocksize)
        Put file, , bytedata()
    Next i
Close file
End Function


Here is my full code to first insert pictures using vb in oracle table database and then display those pictures in picture box of vb application as per there records.......
But it is showing errors for path and picture is not shown in picture box
Please help...............
Posted
Updated 23-Jan-13 22:54pm
v3

1 solution

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)



CodeProject, 20 Bay Street, 11th Floor Toronto, Ontario, Canada M5J 2N8 +1 (416) 849-8900