Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB6Oracle
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
 
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 23-Jan-13 22:23pm
surkhi623
Edited 23-Jan-13 22:54pm
RDBurmon8.3K
v3

1 solution

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

  Print Answers RSS
0 Sergey Alexandrovich Kryukov 668
1 OriginalGriff 396
2 Tadit Dash 345
3 sanket saxena 329
4 Peter Leow 193
0 Sergey Alexandrovich Kryukov 12,109
1 OriginalGriff 7,326
2 Peter Leow 5,003
3 Abhinav S 4,003
4 Maciej Los 3,575


Advertise | Privacy | Mobile
Web01 | 2.8.140421.2 | Last Updated 27 Jan 2013
Copyright © CodeProject, 1999-2014
All Rights Reserved. Terms of Use
Layout: fixed | fluid