VB读数据库图片出来。·问题 ······！！

[niaorenzaixian]

数据库中含有 文本数据。以及二进制数据。二进制是图片数据。

是这样的 texe1.text 控件上绑定的 文本数据 image控件上是图片（但是图片是二进制进数据库的。并显示出来的） 因为要把文本数据，以及图片数据生成到 word 指定位置。我用的标签的方法。


对于文本数据是这么操作的 这样既不用写记录集 文本数据成功导出到WORD文件并且在指定位置。在移动数据记录时候 也不用单独写查询方式

wdApp.Selection.GoTo wdGoToBookmark, , , "姓名"
wdApp.Selection.TypeText Text1.Text 'TEXT1绑定的

但是图片如何插入呢 在IMAGES控件上的图片？ 这些图片在数据库里是二进制存进去的。

我看有个例子是这么读的
Call ReadImage(RS.Fields("zhaopian")) '读取照片 这里读的记录集。这样就必须要考虑到移动问题。不如直接读控件方便

wdApp.Selection.GoTo wdGoToBookmark, , , "照片" '读取照片 这里读的记录集。这样就必须要考虑到移动问题。不如直接读控件方便

但是插入时提示找不到IMAGETMP.BMP
插入
wdapp.Selection.InlineShapes.AddPicture Filename:= _
App.Path & "\ImageTmp.bmp", _
LinkToFile:=False, SaveWithDocument:=True

函数如下

Private Function ReadImage(blobColumn As ADODB.Field) As String
    '取得一个临时性文件
    Dim strFileName As String

    Dim FileNumber      As Integer      '文件号
    Dim DataLen             As Long         '文件长度
    Dim Chunks              As Long         '数据块数
    Dim ChunkAry()      As Byte         '数据块数组
    Dim ChunkSize       As Long         '数据块大小
    Dim Fragment        As Long         '零碎数据大小
    Dim lngI                As Long '计数器
    
    On Error GoTo errHander
        strFileName = App.Path & "\ImageTmp"

    ChunkSize = 2048                    '定义块大小为 2K
    If IsNull(blobColumn) Then Exit Function

    DataLen = blobColumn.ActualSize         '获得图像大小
    If DataLen < 8 Then Exit Function   '图像大小小于8字节时认为不是图像信息
        FileNumber = FreeFile               '产生随机的文件号
    
    Open strFileName For Binary Access Write As FileNumber     '打开存放图像数据文件
    Chunks = DataLen \ ChunkSize        '数据块数
    Fragment = DataLen Mod ChunkSize    '零碎数据
    If Fragment > 0 Then            '有零碎数据，则先读该数据
            ReDim ChunkAry(Fragment - 1)
            ChunkAry = blobColumn.GetChunk(Fragment)
            Put FileNumber, , ChunkAry      '写入文件
    End If

    ReDim ChunkAry(ChunkSize - 1)             '为数据块重新开辟空间
    For lngI = 1 To Chunks                              '循环读出所有块
            ChunkAry = blobColumn.GetChunk(ChunkSize)   '在数据库中连续读数据块
            Put FileNumber, , ChunkAry()    '将数据块写入文件中
    Next lngI
    Close FileNumber            '关闭文件
    
    ReadImage = strFileName
    
    Exit Function
    
errHander:
    ReadImage = ""
End Function

----------------------

就算上面读出来。但是到生成的时候必须有条查询语句。否则都是第一条数据库数据。 而直接绑定到控件的就不存在这样问题 但是图片又无法读出。 所以谁有好的方法。我又不想单独做个界面来做导出。

[王二.麻子]

高级的不知道。
实验了这个。，，把图片从数据库显示在PictureBox，把Picturebox的image放在剪切板。。在word里粘贴。。
Clipboard.Clear
clipboard.SetData picture1.Image ,2
或者是不是要使用api，把从数据库出来的2进制放剪切板。。
或者把数据库的图片存文件里面去，在word里面插入图片，，来自文件。。。给他个文件名，。。录制个宏就看到了。 Selection.InlineShapes.AddPicture FileName:="D:\我的文档\My Pictures\_...jpg", _
LinkToFile:=False, SaveWithDocument:=True
反正你也操作word了，再操作他从文件插入个图片

[niaorenzaixian]

[Quote=引用 3 楼 spt_petrolor 的回复:]
高级的不知道。
实验了这个。，，把图片从数据库显示在PictureBox，把Picturebox的image放在剪切板。。在word里粘贴。。
Clipboard.Clear
clipboard.SetData picture1.Image ,2
或者是不是要使用api，把从数据库出来的2进制放剪切板。。
或者把数据库的图片存文件里面去，在word里面插入图片，，来自文件。。。给他个文件……
[/Quote]

问题是。我现在就是为了不存入图片到文件。要是那样备份数据库。就没意思了。同时还要备份图片文件夹。没意思。
你说粘贴到剪贴板的方式也行。思路我也知道。但是具体代码是撒呢。。。 ··

[niaorenzaixian]

······· 定期···

[dbcontrols]

strFileName = App.Path & "\ImageTmp.bmp"

[niaorenzaixian]

就算上面读出来。但是到生成的时候必须有条查询语句。否则都是第一条数据库数据。 而直接绑定到控件的就不存在这样问题 但是图片又无法读出。 所以谁有好的方法。我又不想单独做个界面来做导出。

[niaorenzaixian]

看有没有大神可以帮忙。再起顶起···