存放在数据库中的图片如何在VB中显示出来（不通过产生临时文件方法）

存放在数据库中的图片如何在VB中显示出来（不通过产生临时文件方法）高分求解不通过产生临时文件？不懂我过去做的都是通过中间文件那就存的时候直接把picture的每点的内容存到数据库，然后在for i=picture.width for j=picture.height setpixel~~ nextnext'保存图片到数据库中Private Sub cmdSave_Click() If Trim(txtPic.Text) = "" Then MsgBox "请选择一个图片文件" Else Dim rs As New ADODB.Recordset Dim stm As ADODB.Stream '创建一个文件流对象 Set stm = New ADODB.Stream rs.Open "Select * from picture where 1=2", conn, 3, 2, 1 '=========从磁盘中读取二进制文件信息=============== stm.Type = adTypeBinary '设置文件流类型（二进制） stm.Open '打开文件流对象 stm.LoadFromFile Trim(txtPic.Text) '读取文件信息 rs.AddNew '向记录集对象增加一条新记录 rs.Fields("filename").Value = Trim(txtPic.Text) '保存文件路径名 rs.Fields("pic").Value = stm.Read '保存图片文件的二进制信息 rs.Update '将记录集中新增加的记录保存到数据库中 rs.Close '关闭记录集对象 stm.Close '关闭文件流对象 Set rs = Nothing '释放记录集资源 Set stm = Nothing '释放文件流资源 MsgBox "ok" End IfEnd Sub'显示图片Private Sub cmdDisplay_Click() ' Dim rs As New ADODB.Recordset '定义记录集对象，同时进行实例化 rs.Open "Select * from Picture", conn, 3, 2, 1 '打开记录集对象 '设置图像控件的数据源 Set imgDisplay.DataSource = rs '设置图像控件的数据字段 imgDisplay.DataField = rs.Fields("pic").Name' rs.Close '关闭记录集对象' Set rs = Nothing '释放记录集资源End Sub