如何读取数据库里的OLE的二进值数据呀?我把附件加上!

如何读取里面的       "操作题 "     的       "题干 "     的二进制数据呢?用VB语法如何实现呢?请老师们帮忙!十分感谢!! --------------------编程问答-------------------- 二进制数据包括"文字"和图片!如何显示出来!请给予帮助! --------------------编程问答-------------------- http://topic.csdn.net/u/20070917/16/6098d99b-16f5-486f-8d0e-1d8f640474cb.html

这个帖子本人已经读过,但是要是文字和汉字混合的话,如何实现呢? --------------------编程问答-------------------- http://topic.csdn.net/t/20051208/10/4445526.html
<%
  '设置文件的大小及MIME类型
  Function   SetForDisplay(field,   contentType)
  contentType   =   LCase(trim(contentType))
  nFieldSize   =   field.ActualSize
  bytes   =   field.GetChunk(nFieldSize)
  Session("Bytes")   =   bytes
  Session("Type")   =   contentType
  End   Function
  %>

  <%
        sql   =   "select   *   from   news   where   id="   &   request("ID")
        Set   oRS   =   Server.CreateObject("ADODB.Recordset")
        oRS.CursorLocation   =   3
        strConn   =   "Driver={Microsoft   Access   Driver   (*.mdb)};DBQ="   &   Server.MapPath("data\db.mdb")
        oRS.Open   sql,   strConn
  SetForDisplay   oRS("附件"),ors("类型")
  '常见文件的MIME类型
  'GIF文件     "image/gif"
  'BMP文件   "image/bmp"
  'JPG文件   "image/jpeg"
  'zip文件   "application/x-zip-compressed"
  'DOC文件   "application/msword"
  '文本文件   "text/plain"
  'HTML文件   "text/html"
  '一般文件   "application/octet-stream"
          Set   oRS.ActiveConnection   =   Nothing
  %>
  <%         response.Expires   =   0
          response.Buffer     =   True
          response.Clear
          response.contentType   =   Session("Type")
          response.BinaryWrite   Session("Bytes")
          Session("Type")   =   ""
          Session("Bytes")   =   ""
          response.End

  %>
  ---------------------------------------------------
  以上是LYFUPLOAD组件示例中的下载.
  但是只能以othertest的名字保存,且只能在IE中打开.(另注:用以上两位楼主的命令没有实现)
  我写入数据库的内容如下:
  ss=obj.SaveFiletodb("file1")   '保存文件到数据库
  aa=obj.filetype("file1")   '得到文件的Content-Type
  rs("附件名")=ss
  rs("类型")=trim(aa)
  rs("附件").AppendChunk   obj.DBContent'BLOB数据不能直接赋值
  ------------------------------------------------------
(这个是ASP读取法,可是VB如何实现呢?) --------------------编程问答-------------------- Option Explicit
  Private Type mtest
          s   As String * 40
          x   As Long
          y   As Integer
  End Type

  Private Sub Command1_Click()       '写
          Dim m     As mtest
          With m
                  .s = "你好hello"
                  .x = 256
                  .y = 123
          End With
          Open "1.txt" For Binary As #1
          Put #1, , m
          Close #1

  End Sub

  Private Sub Command2_Click()       '读
          Dim m     As mtest
          Open "1.txt" For Binary As #1
          Get #1, , m
          Close #1
          MsgBox m.s
          MsgBox m.x
          MsgBox m.y
  End Sub
(这个是单个文件的读取转换,而数据库中读取VB代码如何实现?文字图片混合呀?) --------------------编程问答-------------------- 耐心的寻求一个解决的办法,等待中------

??????? --------------------编程问答-------------------- 一行文字加一个图片存到ACCESS数据库中.以OLE方式储存(变为二进制数据),要是取出来,怎么把文字和图片区分开来? --------------------编程问答-------------------- 不知楼主有没有读入和读出二进数据到access的代码了，如果有了，就好改了！

在读的时候把文字先读进去，然后加一个特殊字符作为分隔符，然后再读图片的数据。
在取数据的时候先全部取出来，然后通过分隔符的特征（已经存为二进制，注意找到此特征）区分哪部分是文本，哪部哪部分是图片。然后再把图片显示出来。

看了楼主上传的图片，想问问楼主为什么不在access的表中直接加一个字段存储此文本了？ --------------------编程问答-------------------- 对了，有个源码，是存取图片到数据库的，带控件，里面有详细的存储及读取图片的代码。楼主如需要，直接联系我！ --------------------编程问答-------------------- sky_hacker@163.com

补充：VB ,  数据库(包含打印，安装，报表)