oracle - 如何将图片添加到数据库中？

Question

我创建了一个表 mypics，其中包含一列 BLOB 数据类型。

现在我需要实现一个vb6代码来选择/插入/更新这个表中的数据，但是我不知道如何处理BLOB列......

SQL> desc mypics Name Null？类型

---

PID 非空数字 (38)

PNAME 字符(10)

图像块

请帮忙

Answer 1

这是一些示例代码，可帮助您入门。假设一个名为 tblImages 的表具有 3 个字段。

字段数据类型大小
图片图像          
ID 诠释 4

将磁盘上文件中的图像添加到数据库

Set strStream = New ADODB.Stream
strStream.Type = adTypeBinary
strStream.Open
strStream.LoadFromFile strFileName

strSQL = "SELECT ID, Picture FROM tblImages"
Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = cn
    .Source = strSQL 
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With

rs.AddNew   
rs.Fields("ID").Value = ID
rs.Fields("Picture").Value = strStream.Read
rs.Update
rs.Close
Set rs = Nothing

要将文件从数据库提取到磁盘文件：

strSQL = "SELECT Picture FROM tblImages WHERE ID = " & ID               
Set rs = New ADODB.Recordset
With rs
    .ActiveConnection = cn
    .Source = strSQL
    .Open
End With

If Not (rs.BOF And rs.EOF) Then
    Set strStream = New ADODB.Stream
    strStream.Type = adTypeBinary
    strStream.Open    
    strStream.Write rs!Picture
    strStream.SaveToFile TempPath, adSaveCreateOverWrite        
    strStream.Close
    Set strStream = Nothing        
End If    
rs.Close
Set rs = Nothing

我希望这有帮助。