如何将图片添加到数据库中？答案

【问题标题】：How to add picture into database?如何将图片添加到数据库中？
【发布时间】：2013-01-23 17:00:44
【问题描述】：

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

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

SQL> desc mypics 无名？类型

PID NOT NULL NUMBER(38)

PNAME CHAR(10)

图像块

请帮忙

【问题讨论】：

标签： oracle vb6

【解决方案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

我希望这会有所帮助。

【讨论】：