Click here to Skip to main content
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB6 Oracle
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 23:23pm
surkhi623
Edited 23-Jan-13 23:54pm
RDBurmon9.1K
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 OriginalGriff 390
1 Sergey Alexandrovich Kryukov 329
2 Afzaal Ahmad Zeeshan 244
3 BillWoodruff 210
4 Maciej Los 192
0 OriginalGriff 5,560
1 DamithSL 4,476
2 Maciej Los 3,942
3 Kornfeld Eliyahu Peter 3,480
4 Sergey Alexandrovich Kryukov 3,175


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

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100