使用流对象保存和显示图片

打开vb6,新建工程。

添加两个按钮,一个image控件

注意:Access中的photo字段类型为OLE对象.

SqlServer中的photo字段类型为Image

.

'** 引用 Microsoft ActiveX Data Objects 2.5 Library 及以上版本

‘2.5版本以下不支持Stream对象

Dim iConcstr As String

Dim iConc As ADODB.Connection

 

'保存文件到数据库中

Sub s_SaveFile()

    Dim iStm As ADODB.Stream