设为首页收藏本站

融智技术学院

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1226|回复: 0

在表的附件字段之间传递图片

[复制链接]
meng 发表于 2011-9-7 18:19:12 | 显示全部楼层 |阅读模式
        在Access2007中如果,想在两个表的附件之间传递文件,可以用如下的语句:
        With rstBIPO
                    With .Fields("bipoimage").Value
                        If Dir(strPicPath) <> "" Then
                            Kill strPicPath
                        End If
                        .Fields("filedata").SaveToFile (strPicPath)
                        If .RecordCount > 0 Then
                            .MoveFirst
                            Do Until .EOF
                                .Delete
                                .MoveNext
                            Loop
                        End If
                    End With
                End With
                With rstPart
                    .Edit
                    Set rstPic = .Fields("partimage").Value
                    With rstPic
                        If .RecordCount > 0 Then
                            .MoveFirst
                            Do Until .EOF
                                .Delete
                                .MoveNext
                            Loop
                        End If
                        If Dir(strPicPath) <> "" Then
                            .AddNew
                            .Fields("filedata").LoadFromFile strPicPath
                            .Update
                            Kill strPicPath
                        End If
                    End With
                    .Update
                    .Close
                End With
                Set rstPart = Nothing
            End If

您需要登录后才可以回帖 登录 | 注册

本版积分规则

新突破电商

小黑屋|手机版|Archiver|融智技术学院 ( 京ICP备09018999号  

GMT+8, 2018-4-19 17:51

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表