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 OriginalGriff 490
1 Maciej Los 305
2 Richard MacCutchan 270
3 Mathew Soji 220
4 BillWoodruff 210
0 OriginalGriff 8,834
1 Sergey Alexandrovich Kryukov 7,477
2 DamithSL 5,689
3 Maciej Los 5,329
4 Manas Bhardwaj 4,986


Advertise | Privacy | Mobile
Web03 | 2.8.1411028.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