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 ShowPic()
Dim bytedata() As Byte
Dim destfile As Integer
Dim file As String
Dim filelen As Long
Dim numlock As Integer
Dim leftover As Long
Dim i As Integer
Const blocksize = 100000
 
file = App.Path & "/mypic/Book1.xls"
       destfile = FreeFile
       Open file For Binary As destfile
       filelen = LOF(destfile)
numlock = filelen / blocksize
    leftover = filelen Mod blocksize
        bytedata() = RES(0).GetChunk(leftover)
            Put destfile, , bytedata()
    For i = 1 To numlock
        bytedata() = RES(0).GetChunk(blocksize)
        Put destfile, , bytedata()
    Next i
 
Close destfile
End Function
 
Error is:
Item cannot be found in requested name or ordinal........
bytedata() = RES(0).GetChunk(leftover)
 
Please help....
Posted 24-Jan-13 18:55pm
surkhi623
Edited 13-Feb-13 11:56am
v3

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

  Print Answers RSS
0 BillWoodruff 330
1 Mathew Soji 309
2 Maciej Los 295
3 DamithSL 225
4 Afzaal Ahmad Zeeshan 217
0 OriginalGriff 6,369
1 Sergey Alexandrovich Kryukov 5,973
2 DamithSL 5,183
3 Manas Bhardwaj 4,673
4 Maciej Los 4,025


Advertise | Privacy | Mobile
Web03 | 2.8.1411019.1 | Last Updated 14 Feb 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