如何使用vb和oracle加载和检索图片 [英] How to load and retrieve picture using vb and 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

这是我的完整代码，首先在oracle表数据库中使用vb插入图片，然后在vb的图片框中显示这些图片按此申请记录.......

但它显示错误的路径和图片没有显示在图片框中

请帮助......... ......

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...............

推荐答案

看看这里 http://bytes.com/topic/visual-basic/insights/641546-blob-retrieve-image-stored-database [ ^ ]

这篇关于如何使用vb和oracle加载和检索图片的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！