Office中国论坛/Access中国论坛

标题: 如何在ACCESS中将图片上传到MSSQL中啊 [打印本页]

---

作者: 徐阿鹏    时间: 2006-8-17 20:01
标题: 如何在ACCESS中将图片上传到MSSQL中啊
我在有ACCESS做一个人力资源管理的系统,请问如何员工的照片上传到数据库里啊!

那位好心人能告诉我啊!!!!

---

作者: zyz    时间: 2006-8-18 20:08
使用ADO Recordset.

先以二进制方式打开照片文件,将其读入一个数组,然后用Recordset直接将数组的内容写入图片字段.

---

作者: 徐阿鹏    时间: 2006-8-18 20:42
不会,能否写清楚点,最好有实例!

---

作者: nylgwsf9    时间: 2006-8-21 23:22
在ACCESS的工具箱是有一个叫结合物件框,拖到表单上,然后资料来源选你的图片栏位名称.执行后在该控件是按右键选插入物件,找到图片即可.

---

作者: LeeTien    时间: 2010-4-25 21:36
Dim rs As New ADODB.Recordset//sql   字段是二进制的bmp  连接表显示是ole对象
    Dim Istm As ADODB.Stream
    rs.Open "SELECT 图片 FROM dbo.图库 WHERE id=" & [Forms]![图库]![id], CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Istm = New ADODB.Stream
    With Istm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write rs("图片")
        .SaveToFile "c:\image.jpg"
    End With
    Me.Image1.Picture = "c:\image.jpg"
    rs.Close
    Istm.Close
    Kill "c:\image.jpg"
    Set rs = Nothing
    Set Istm = Nothing//请教sql<image>在access的操作

---

作者: LeeTien    时间: 2010-4-25 21:36
Dim rs As New ADODB.Recordset//sql   字段是二进制的bmp  连接表显示是ole对象
    Dim Istm As ADODB.Stream
    rs.Open "SELECT 图片 FROM dbo.图库 WHERE id=" & [Forms]![图库]![id], CurrentProject.Connection, adOpenKeyset, adLockOptimistic
    Set Istm = New ADODB.Stream
    With Istm
        .Mode = adModeReadWrite
        .Type = adTypeBinary
        .Open
        .Write rs("图片")
        .SaveToFile "c:\image.jpg"
    End With
    Me.Image1.Picture = "c:\image.jpg"
    rs.Close
    Istm.Close
    Kill "c:\image.jpg"
    Set rs = Nothing
    Set Istm = Nothing//

---

作者: seanfree    时间: 2010-5-20 16:07
先实习一下

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3