在VB中，如何对ORACLE中的BLOB字段进行存取操作

Use Field.GetChunk 和Field.AppendChunk.
请看下面的例子
Private Sub Load()
        
    Dim Cnn As New Connection
    Dim Qs As String
    Dim Rs As Recordset
    Dim i As Integer
    Dim var As Variant
    Dim getCount As Long
    
    On Error GoTo eh
    Qs = "Select * From longtable"
    Cnn.Open "Driver={Microsoft ODBC for Oracle};Server=Demo;UID=system;Pwd=manager"
    Set Rs = Cnn.Execute(Qs)
    If Not Rs.EOF Then
        
        Do While getCount < Rs("content").ActualSize
           var = Rs("content").GetChunk(100)
           getCount = getCount + 100
           Debug.Print var
        Loop
    End If
    Rs.Close
    Set Cnn = Nothing
    
eh:
    Print Err.Description
    Set Rs = Nothing
    Set Cnn = Nothing
    
    
End Sub
AppendChunk也一样
Rs("content").AppendChunk var 
...