stream对象输出表中的“二进制”图片

简单人生　发表于：2011-08-31 12:01:09 　

“图片收集”表中含有两个字段为编号和图片
假设目前只有一条记录显示为

编号图片
001 二进制数据

请问，我要在窗体的按钮点击事件中，通过ADO的stream对象，如何将001的图片原原本本的输出到D盘的“图片”文件夹

具体代码可以帮我写吗？感激！

Top

张万里发表于：2011-08-31 14:34:34

Set istm = New ADODB.Stream
  With istm
    .Mode = adModeReadWrite
    .Type = adTypeBinary
    .Open
    .Write rs1("IMG")
    '这里注意了,如果当前目录下存在test1.jpg,会报一个文件写入失败的错误.
     .SaveToFile Application.CurrentProject.Path & "\temp." & rs1("KZM")
   End With

Top

简单人生发表于：2011-08-31 23:30:48

将你的代码复制进入按钮的单击事件，不成功！

再请求你修改一次了

Top

张万里发表于：2011-09-01 10:53:21

这个代码是需要你自己理解后,稍加修改就可以的,不要只等现成的,这个不是学习代码的好习惯

Top

简单人生发表于：2011-09-01 11:09:37

你先给代码我先实现这功能先，我会认真看的

恳请了！

Top