VB6.0里如何读取和保存ORACLE8.0里的BLOB字段(急+100

Question

不知你的BLOB字段放的是什么，我只用过读取和保存图象。

Answer 1

以下下是我程序中的一段，form上有commondialog,picture（picfields,datafield对应数据库中的blob字段），oRec是recordset对象：
Private Sub cmdPic_Click()
Dim oPic As New StdPicture
Dim oStream As New Stream
Dim binFile As Variant
Dim sFile As StringcdlgOpen.Filter = "图片文件(bmp;jgp;gif;ico)|*.bmp;*.jpg;*.gif,*.ico"
cdlgOpen.ShowOpen
sFile = cdlgOpen.FileName
If Not IsNull(sFile) And Trim(sFile) <> "" Then
    oStream.Mode = adModeReadWrite
    oStream.Type = adTypeBinary
    oStream.Open
    oStream.LoadFromFile sFile
    binFile = oStream.Read(-1)
    
    Set oPic = LoadPicture(sFile)
    Set picFields.Picture = oPic
    oRec("CAR_PHOTO").AppendChunk binFile
End If
Set oStream = Nothing
Set oPic = Nothing
End Sub